Delphi临界区的使用

在开发一个平板点餐软件后台订单打印程序时，使用线程订单打印，为防打印阻塞使用临界区。

 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;