Eingabe oder Tastendruck im Form pauschal abfragen

[Aviator]

Wenn du die Unit Winapi.Windows eingebunden hast, sollte er das automatisch finden.

Zitat von hoika:

Hallo,

die verlinkten Beispiele ist ein bisschen overdressed.

Aber das Stichwort ist Hook [...]

Hooks werden nur so wie ich es weiß öfters von Virenscannern erkannt. Ob das jetzt bei diesem auch der Fall ist weiß ich nicht. Habe auch noch nie mit Hooks arbeiten müssen. TLastInputInfo ist eben relativ einfach zu verwenden und kann regelmäßig über einen TTimer abgefragt werden.

Hier nur ein kleines Beispiel wie ich es umgesetzt habe:

Delphi-Quellcode:

LastInputInfo.cbSize := SizeOf(TLastInputInfo);
if GetLastInputInfo(LastInputInfo) then begin
  if ((GetTickCount - LastInputInfo.dwTime) >= Cardinal(InactivityValue * 60000)) then begin
    DoLockDatabase(True);  // Sperrt in meinem Fall die Datenbank
  end;
end;