Programın Idle süresi nasıl bulunur (Çözüldü)

[adelphiforumz]

S.A.

Bir projeyi çalıştırdıktan sonra eğer 5 dk. boyunca hiç bir işlem yapılmamışsa
programı tekrar şifre giriş ekranına yönlendirmek istiyorum
fakat bunu her formun üzerine gidip mouse hareketlerini yada bir tuşa basıldımı diye kontrol etmeden yapabilmenin kolay bir yolu varmıdır.

Aşağıdaki gibi bir kod buldum fakat bu kod windowsun tamamı için beklenen süreyi algılıyor benim istediğim ise sadece program için bekleme süresini bulmak

Teşekürler

Kod: Tümünü seç

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

[ikra]

Bir adet Timer at ve MainForm'un onDeactivate eventinde enable et. süresini de 5dk olarak ayarla.
MainForm'un onActivate eventinde de Timer'i disable et.

[SimaWB]

Denemedim ama MainForm'un onDeactivate'i main form dışında başka form kullanıyorsan da tetiklenecektir. Dolayısıyla kullanıcı mainform'da değil ama programı kullanmaya devam ederken sen süreyi başlatmış olursun ki bu da sorununu çözmez.
Bence Application.OnIdle'da timer kullanmak gerekli. Program Idle durumundan çıkarsa yani programa herhangi bir mesaj gelirse bu sefer Application.OnMessage tetiklenecektir. Bu 2 event'i kontrol ederek istediğini yapabilirsin.

[thelvaci]

Belki bu makale işinize yarayabilir.

http://www.tugrulhelvaci.com/?p=115

[adelphiforumz]

teşekkürler