Ĺadny brzuch
Witam
Szukam na google jakiegoś kodu lub przykładu jak wykryć czy kursor myszki w obrębie formy porusza się. Jeśli się nie porusza to nalicza czas 5 min po czym zamyka program. A jeśli w tym czasie 5 min poruszy się to zeruje czas i czeka aż przestanie działać i znowu nalicza czas.
Szukam ale bez rezultatu.
Ma ktoś jakiś pomysł jak to wykonać ?
z góry dziękuje
function TfMain.SecondsIdle: DWORD; var liInfo: TLastInputInfo; begin liInfo.cbSize := SizeOf(TLastInputInfo); GetLastInputInfo(liInfo); Result := (GetTickCount - liInfo.dwTime) div 1000; end;
Zwraca Ci w sekundach, kiedy była ostatnia akcja w programie (ruch myszą albo wciśnięcie klawisza)
dzięki Misiek :)
a Mógłbyś mi napisać jak z tej funkcji skorzystać ?
Użytkownik ari123 edytował ten post 25 grudzień 2009, 13:50
Wystarczy spytać wujka Google...
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Szukam na google jakiegoś kodu lub przykładu jak wykryć czy kursor myszki w obrębie formy porusza się. Jeśli się nie porusza to nalicza czas 5 min po czym zamyka program. A jeśli w tym czasie 5 min poruszy się to zeruje czas i czeka aż przestanie działać i znowu nalicza czas.
Szukam ale bez rezultatu.
Ma ktoś jakiś pomysł jak to wykonać ?
z góry dziękuje
function TfMain.SecondsIdle: DWORD; var liInfo: TLastInputInfo; begin liInfo.cbSize := SizeOf(TLastInputInfo); GetLastInputInfo(liInfo); Result := (GetTickCount - liInfo.dwTime) div 1000; end;
Zwraca Ci w sekundach, kiedy była ostatnia akcja w programie (ruch myszą albo wciśnięcie klawisza)
dzięki Misiek :)
a Mógłbyś mi napisać jak z tej funkcji skorzystać ?
Użytkownik ari123 edytował ten post 25 grudzień 2009, 13:50
Wystarczy spytać wujka Google...