1 类：

  type

   MYPARA=record

   title:pchar; //标题

   str:pchar;

   flag:integer; //标志

   end;

   PMYPARA=^MYPARA;

 变量：   ThreadId1:DWORD;

          p:PMYPARA;

        CSprintjz:TRTLCriticalSection; {临界区信息} 

        h2:THandle;

 .打印线程：

         {初始化打印单据参数}

          getmem(p,sizeof(p));//分配内存

          p.title:='结帐单';    //

          p.str:='';   //空 表示是第一次打印

          p.flag:=;

  //开启线程：

      h2:=CreateThread(nil, , @printjzdd,p,, ThreadId1);

 //线程函数printjzdd：

 function   printjzdd(Para:PMYPARA):integer;stdcall;

   begin   {进入打印线程的临界区}

   EnterCriticalSection(CSprintjz);

   result:=-;

    try

    new( Pprintoneember);

    Pprintoneember.No:=;

    Pprintoneember.tt:=pchar('');    Pprintoneember.flag:=Para^.flag;

    Pprintoneember.tdh:=g_tdh;

    Pprintoneember.dd:=pchar('');

    Pprintoneember.Tno:=pchar(g_Tno);

    {打印订单}

    printdd_one(Pprintoneember);

    MainForm.Memo1.Lines.Add('启动打印订单线程');

    except

      LeaveCriticalSection(CSprintjz);

      MainForm.Memo1.Lines.Add('启动打印订单线程err');

      exit;

    end;

    MainForm.Refreshzp();

    MainForm.htsj();{统计营业额 }

    LeaveCriticalSection(CSprintjz);

     result:=;

   end;