![]() |
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 07:20 PM. |