頭部
type
TMyThread = class(TThread)
protected
procedure Execute; override;
end;
procedure TMyThread.Execute;
begin
CoInitialize(nil); //如果不加這句,會提示未調用CoInitialize
//中間調用控件的話,控件前要加上窗口名稱,不然訂不了來,如
form1.adoconnection
form1.adoquery.close;
CoUninitialize;
end;
//執行多線程
procedure TForm1.Button1Click(Sender: TObject);
begin
//TMyThread.Create(false); 或者下面這句
with TMyThread.Create(True) do Resume;
end;