求使用TThread产生多进程的最简单例子

Question

求使用TThread产生多进程的最简单例子

Answer 1

TThread只能生成多线程.
这是一个例子.
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;  TMyThread = class(TThread)
  private
    FMyThreadID: integer;
  public
    constructor Create(CreateSuspended: Boolean; MyThreadID:integer);overload;
    procedure execute;override;
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  TestThread: TMyThread;
begin
  for i := 0 to 9 do
  begin
    TestThread := TMyThread.Create(false, i+1);
  end;
end;{ MyThread }constructor TMyThread.Create(CreateSuspended: Boolean; MyThreadID: integer);
begin
  inherited Create(CreateSuspended);
  FMyThreadID := MyThreadID;
end;procedure TMyThread.execute;
begin
  Showmessage('线程'+IntToStr(FMyThreadID));
end;end.