Program Belli süre kullanılmadığnda Ekran Koruyucu gibi şifre sorsun

[ismailcozar]

Yaptığımız programı belli bir süre kullanmadığımız ve tekrar kullanmak istediğimizde şifre sorsun istiyorum nasıl yapabilirim.
Şimdiden teşekkürler

[necmettinaslan]

bunun için TLastInputInfo objesinden şöyle faydalanabilirsin:

örnek bir fonksiyon yapalım:
fonksiyon tanımı: function BosSaniye: DWord;

fonksiyon kodları:


function TForm1.BosSaniye: DWord;
var
liInfo: TLastInputInfo;
begin
liInfo.cbSize := SizeOf(TLastInputInfo) ;
GetLastInputInfo(liInfo) ;
Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end;

bu fonksiyon sisteme dokunulmayan süreyi saniye cinsinden verir.

bunun gönderdiği değeri bir timer ile sürekli sorgulatıp eğer
değer istediğin rakama ulaşmışsa istediğin işleri yaptırabilirsin.

kolay gelsin