Delphi 创建线程（API）

(*----下面这个程序介绍了我们在使用线程及未使用线程二种情况下，运行该程序的反

　　应。当点UsedThread按钮时，则建立一个线程，这时我们可以在程序进行计算的同

　　时，改变窗体的尺寸及移动它。当按下NoUsedThread按钮时，不建立线程，我们会发

　　现在程序没有计算完之前根本不能做其它任何事情！

unit Unit1;
　　
interface
　　
uses
　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　Dialogs, StdCtrls, Buttons;
　　
type
　TForm1 = class(TForm)
　　UsedThread: TBitBtn;
　　NoUsedThread: TBitBtn;
　　procedure UsedThreadClick(Sender: TObject);
　　procedure NoUsedThreadClick(Sender: TObject);
　private
　　{ Private declarations }
　public
　　{ Public declarations }
　end;
　　
var
　Form1: TForm1;
　　
implementation
　　
{$R *.dfm}
　　
function MyThreadFunc(P:pointer):Longint;stdcall;
var
　i:longint;
　DC:HDC;
　S:string;
begin
　DC:=GetDC(Form1.Handle);
　for i:=0 to 500000 do begin
　　S:=Inttostr(i);
　　Textout(DC,10,10,Pchar(S),length(S));
　end;
　ReleaseDC(Form1.Handle,DC);
end;
　　
procedure TForm1.UsedThreadClick(Sender: TObject);
var
　hThread:Thandle;//定义一个句柄
　ThreadID:DWord;
begin
//创建线程，同时线程函数被调用
　hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);
　if hThread=0 then
　messagebox(Handle,'Didn’tCreateaThread',nil,MB_OK);
end;
　　
procedure TForm1.NoUsedThreadClick(Sender: TObject);
begin
　MyThreadfunc(nil);
　//没有创建线程时，直接调用线程函数
end;
end.