HELP: auto log off program dengan Delphi

[Braincode]

Agan.. agan sekalian ada yang pernah bikin auto log off software yang dibikin pake delphi? Ceritanya ketika software itu sedang idle selama waktu yang ditentukan ex. 5 menit maka otomatis log off...

:loveindonesia

THX AGAN-AGAN SEMUA...SAYA DAH NEMU SOLUSINYA

pake TApplication event onmessage dan juga pake TTimer interval 1000 event onTimern


Code:

.....
var
frmMain: TfrmMain;
idletime : integer;
....

procedure TfrmMain.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
Case msg.message of
WM_KEYFIRST..WM_KEYLAST, WM_MOUSEFIRST..WM_MOUSELAST :
idletime:=0
end;
end;

procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
inc(idletime);
Label1.Caption := Format('System IDLE last %d seconds', [idletime]) ;
if idletime=10 then
begin
Timer1.Enabled:= false;
idletime:=0;
//procedure logout
logout;
end;
end;
....





:loveindonesia

</div>