5,928
社区成员




unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
threadid:dword;
hthread:thandle;
procedure tt();
implementation
{$R *.dfm}
procedure tt();//线程要执行的函数
var i:integer;
begin
for i:=0 to 20000 do
form1.Edit1.Text:=inttostr(i);
end;
procedure TForm1.Button1Click(Sender: TObject);//
begin
hthread:=createthread(nil,0,@tt,nil,0,threadid); //创建线程并立即执行
if hthread=0 then
messagebox(handle,'创建失败',nil,mb_ok);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
suspendthread(hthread);//挂起线程
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
resumethread(hthread);//恢复线程
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
terminatethread(hthread,2);//结束线程
end;
end.