delphi Createthread的线程传参数（小熊论坛的）

delphi Createthread的线程传参数（小熊论坛的）

转自：.html

unit1

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;type
Test=recorda: Integer;b: Integer;end;TForm1 = class(TForm)btn1: TButton;memo1: TMemo;procedure btn1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;function MyThreadFun(var Param:  Test): Integer; stdcall; //注，此行写成TForm1.MyThreadFun Createthread调用处会报错。

implementationuses Unit2;{$R *.dfm}function MyThreadFun(var Param:  Test): Integer; stdcall;
beginForm1.Memo1.Text := IntToStr(Param.a);Result := 0;
end;procedure TForm1.btn1Click(Sender: TObject);
varId: Dword;P: test;
beginp.a:=5;Createthread(nil, 0, @MyThreadFun, @p, 0, Id);
end;