Ceriwis

Ceriwis (https://forum.ceriwis.com/forum.php)
-   Programming (https://forum.ceriwis.com/forumdisplay.php?f=63)
-   -   HELP: auto log off program dengan Delphi (https://forum.ceriwis.com/showthread.php?t=538973)

Braincode 11th November 2011 02:20 PM

HELP: auto log off program dengan Delphi
 

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>


All times are GMT +7. The time now is 01:32 PM.