2,497
社区成员
发帖
与我相关
我的任务
分享
procedure TActionThread.Execute;
begin
CoInitializeEx(nil, COINIT_MULTITHREADED);
try
while Not Terminated do begin
//DoSomething
end;
finally
CoUninitialize;
end;
end;