Arsip: Deteksi perubahan jam sistem


by LuriDarmawan in Serba Neka more 16 years ago 2418
Untuk mendeteksi perubahan jam sistem, dapat dilakukan dengan meng-intercept message WM_TIMECHANGE
Contoh implementasinya seperti ini:

type
TForm1 = class(TForm)
Label1: TLabel;
private
procedure MyMessage(var Msg: TWMTimeChange); message WM_TIMECHANGE;
{ Private declarations }
public
{ Public declarations }
end;
...
procedure TForm1.MyMessage(var Msg: TWMTimeChange);
begin
if Msg.Result=0 then
Form1.Label1.Caption:='OK';
end;
Syntax Highlighted with https://pascal-id.org/syntax



Silahkan dicoba dan tentu TetapSEMANGAT!
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com