1.线程代码： procedure TTest.Execute; var i:integer; begin { Place thread code here } OnTerminate:=Form1.Done; if WaitForSingleObject(HMux,INFINITE)=WAIT_OBJECT_0 then begin for i:= 1 to 128 do begin Garry[i]:=form1.Getnum(); sleep(5); end; end; //ReleaseMutex(HMux); end;
end. 2.主体 procedure TForm1.Button1Click(Sender: TObject); begin HMux:=CreateMutex(nil,false,nil); TTest.Create(false); TTest.Create(false); end;
delphi 手动装载驱动文件提示： RROR (1058): The driver is marked as disabled (Start=4) in its service database entry. 是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
