[delphi] wykrywanie nie obecnosci

czesc - mam problem - jak wykryc ze ktos nie robi nic na kompie np przez 5 min i wlaczyc wtedy forme...
cos jak działają wygaszacze ekranu ;D help me :DF

maesofamas napisał(a)

czesc - mam problem - jak wykryc ze ktos nie robi nic na kompie np przez 5 min i wlaczyc wtedy forme...
cos jak działają wygaszacze ekranu ;D help me :DF

hmm sprawdzić czy mysz przez 5 min nie zmieniła pozycji lub/i nie używali klawiatury ;]
prosto :d jak to chyba wiesz ;]

założyć hooka na myszkę i klawiaturę.

na win >= 2000 GetLastInputInfo

mam takei cos

function LastInput: DWord;
var
  LInput: TLastInputInfo;
begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := GetTickCount - LInput.dwTime;
end;

ale nie chce mi to dzialac .... misiek mzoe masz jakis pomysl ?

januchcia napisał(a)

ale nie chce mi to dzialac

sprecyzujesz?

do uses

StdCtrls, ExtCtrls

deklarujesz

  sekund:string;
  czas:integer;

wrzucasz funkcje

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

nastepnie w timerze

Caption := Format('%d ', [SecondsIdle]) ;
sekund := Format('%d', [SecondsIdle]) ;
czas:=strtoint(sekund);
if czas>=5 then begin
showmessage('czas bezczynnosci minal...') end else;

i to cala filozofia :)

tak oto mi chodzilo :D dzieki :D