Delphi線程類 DIY

Delphi 封裝了一個很強大的線程類 TThread, 

我們也自己動手製作一個簡單的線程類

首先Type一個類

type  TwwThread = class    constructor Create; overload;    destructor Destroy; override;  private    m_hThread: THandle;//線程    m_ThreadID : TThreadID;  public    procedure Execute;  end;

function wwThreadProc(Thread: TwwThread): Integer;begin  Thread.Execute(); //end;constructor TwwThread.Create;begin  m_hThread := CreateThread(nil, 0, @wwThreadProc, Pointer(Self), 0, m_ThreadID); { 這裡的重點是第四個參數, 把類指標作為參數傳進去,這樣就可以執行類裡面的方法啦}end;destructor TwwThread.Destroy;begin  inherited;end;procedure TwwThread.Execute;begin  // 這裡寫上代碼end;

聲明一下:

var  myThread : TwwThread;

開始~

myThread := TwwThread.Create;