Test=record
a: Integer;
b: Integer;
end;
function MyThreadFun(var Param: Test): Integer; stdcall;
begin
Form1.Memo1.Text := IntToStr(Param.a);
Result := 0;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
Id: Dword;
P: test;
begin
p.a:=5;
Createthread(nil, 0, @MyThreadFun, @p, 0, Id);
end;
关键字词:
