Realisierung Programm wurde gewisse Zeit nicht bedient ?

[Deep-Sea]

Eine weitere Möglichkeit (nicht ausführlich getestet):

Delphi-Quellcode:

var
  LastInputTime: DWord;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  Case Msg.Message of
    WM_KEYFIRST..WM_KEYLAST, WM_MOUSEFIRST..WM_MOUSELAST:
      If Msg.Message <> WM_MOUSEMOVE then LastInputTime := GetTickCount;
  end;
end;

Ob das nun so schlau ist, sich ins OnMessage-Event einzuklinken ... ka