摘要:
procedure MyThread; stdcall;begin while True do begin end;end;procedure Func;var hThread:THandle; ThreadId:Cardinal; str:string;begin str := '123'; hThread := CreateThread(nil, 0, @MyThread, nil, 0, ThreadId); if (WaitForSingleObject(hThread, 5000) = WAIT_TIMEOUT) then begin CloseHandle(hThr 阅读全文