Bildschirmsperre verhindern?

[t.roller]

Wenn ein Timer läuft, kann man das Resetten des LastInput-Wertes interessanter gestalten:

Delphi-Quellcode:

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin // Timer1.Interval:= 1000;
  Label1.Caption:= INTTOSTR(LastInput);
  if LastInput>60000 then  // 60sec
    keybd_event(0,0,0,0);
end;