一個簡單的多線程

頭部

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;