FAQ |
Calendar |
![]() |
|
Programming Share, tanya jawab, saling bantu antar programmer dengan berbagai macam bahasa pemrograman. |
![]() |
|
Thread Tools |
#1
|
||||
|
||||
![]()
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... ![]() 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; .... ![]() Terkait:
|
![]() |
|
|