第二種寫法和第一種差不多，唯一的區別是，第一種方法多了乙個訊息佇列。
所有的執行緒建立的時候都沒有訊息佇列，直到它呼叫任何乙個user或者gdi函式位置
unitunit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls;
type
tform1 =class(tform)
mmo1: tmemo;
procedureformcreate(sender: tobject);
procedureformdestroy(sender: tobject);
private
public
end;
var
timerid : integer;
mymsg : tmsg;
form1: tform1;
implementation
proceduretimerproc( window : hwnd ;message,idevent :uint; dwtime: dword);stdcall;
begin
form1.mmo1.lines.add('running...');
end;
proceduretform1.formcreate(sender: tobject);
begin
timerid := settimer(0,0,1000,@timerproc);
end;
proceduretform1.formdestroy(sender: tobject);
begin
killtimer(0,timerid);
end;
end.
SetTimer函式的使用
settimer函式的用法 1 用wm timer來設定定時器 先請看settimer這個api函式的原型 uint ptr settimer hwnd hwnd,視窗控制代碼 uint ptr nidevent,定時器id，多個定時器時，可以通過該id判斷是哪個定時器 uint uelapse,時...
SetTimer函式的使用
什麼時候我們需要用到 settimer 函式呢？當你需要每個一段時間執行一件事的的時候就需要使用 settimer 函式了。使用定時器的方法比較簡單，通常告訴 windows 乙個時間間隔，然後 windows 以此時間間隔週期性觸發程式。通常有兩種方法來實現 傳送 wm timer 訊息和呼叫應用...
Win32程式設計 SetTimer的使用
settimer函式和wm timer訊息是win32 api中最基本的玩意兒了，任何初學win32 api程式設計的人都應該對此很熟悉吧。在這篇文章中，讓我們來深入了解一下和settimer相關的使用和應用。uint ptr settimer hwnd hwnd,uint ptr nidevent...