Forum
Bildirimler
Hepsini Temizle
Yazılım Genel
2
Yazılar
2
Üyeler
0
Reactions
884
Görüntüleme
Konu başlatıcı
Merhaba arkadaşlar,
Delphi XE'de yazmakta olduğumuz bir programımız var. Program bizim parametre olarak belirleyeceğimiz süre boyunca kullanılmazsa otomatik olarak kapatılmalı giriş ekranına geri dönmelidir. Yani windows gibi mouse, klavye kullanılmadığı zaman gibi bir kontrol olmalıdır. Yardımcı olabilir misiniz bu konuda?
İyi çalışmalar.
Gönderildi : 18/01/2018 13:56
Merhaba,
GetLastInputInfo asağıdakine benzer bir kullanımı iş görür sanırım.
function SecondsIdle: DWord;
var
liInfo: TLastInputInfo;
begin
liInfo.cbSize := SizeOf(TLastInputInfo);
GetLastInputInfo(liInfo);
Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Caption := Format('Sistem son %d sn. boyunca aktif değildi. ', [SecondsIdle]);
end;
Gönderildi : 20/01/2018 03:59
