RSS订阅 | 匿名投稿
您的位置:网站首页 > 线程 > 正文

delphi Createthread的线程传参数(小熊论坛的)

作者:admin 来源: 日期:2011/8/16 8:48:42 人气: 标签:

 

 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;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: