进程线程
关注
分享
扫一扫
seagull327
若大的世界
展开
-
建立线程监视
var Form1: TForm1; Hprocess: THandle; implementation {$R *.dfm} function MyThread(P: Pointer): DWORD; stdcall; begin if WaitForSingl转载 2011-02-10 15:22:00 · 815 阅读 · 0 评论 -
多线程临界区Demo
var iCount: integer = 0; iThread: integer = 0; //线程计数 THreadID: Cardinal; CS: TRTLCriticalSection; //线程临界区 function myThreaFunc(p: Pointer): DWORD; stdcall; var i: Integer; begin inc(i原创 2013-10-21 23:41:43 · 836 阅读 · 0 评论