unitunit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,dialogs, stdctrls;
const
timer_id = 200;
type
tform1 =class(tform)
label1: tlabel;
btkilltime: tbutton;
btsettime: tbutton;
procedurebutton1click(sender: tobject);
procedurebtkilltimeclick(sender: tobject);
procedurebtsettimeclick(sender: tobject);
private
public//
wm_timechange
只在使用者手動改變系統時間時才會產生作用，且只需直接定義就起作用。
procedurewmtimechange(varmessage: twmtimechange);messagewm_timechange;
// wm_timer
需配合killtimer
和settimer
才能起作用；它保持與系統時間同步觸發事件；
procedurewmtimer(varmessage: twmtimer);messagewm_timer;
end;
var
form1: tform1;
implementation
proceduretform1.wmtimechange(varmessage: twmtimechange);
begin
showmessage('sss');
end;
proceduretform1.wmtimer(varmessage: twmtimer);
begin
label1.caption:=timetostr(now);
end;
proceduretform1.btkilltimeclick(sender: tobject);
begin
//killtimer
作用：向
windows
刪除時間訊息；引數
200必須與
settimer
中引數200
保持一致，此引數代表所註冊的訊息id；
killtimer(self.handle, 200); // killtimer(self.handle, timer_id);
end;
proceduretform1.btsettimeclick(sender: tobject);
begin
//
settimer
作用：向
windows
註冊時間訊息；引數
1000
代表每隔
1秒觸發一次
wm_timer
訊息；
settimer(self.handle, 200, 1000, nil); // settimer(self.handle, timer_id, 1000, nil);
end;
end.
delphi中ShellExecute使用詳解
如果將filename引數設定為 mailt 協議格式，那麼該函式將啟動預設郵件客戶程式，如microsoft outlook 也包括microsoft outlook express 或netscape messanger。若使用者機器中安裝了多個郵件客戶程式，則該函式將根據windows 9x ...
delphi中ShellExecute使用詳解
nil,nil,sw shownormal 格式二 http 網域名稱 網頁檔名。如 shellexecute handle,open default.htm nil,nil,sw shownormal 如果將filename引數設定為 mailt 協議格式，那麼該函式將啟動預設郵件客戶程式，如mi...
delphi中ShellExecute使用詳解
delphi parameters 如果將filename引數設定為 mailt 協議格式，那麼該函式將啟動預設郵件客戶程式，如microsoft outlook 也包括microsoft outlook express 或netscape messanger。若使用者機器中安裝了多個郵件客戶程式，...