Realisierung Programm wurde gewisse Zeit nicht bedient ?

[Bummi]

@himitsu
berechtigter Einwand, lässt sich aber berücksichtigen:

Delphi-Quellcode:

  public
    { Public-Deklarationen }
    FIdle:Dword;
    FLTC:Cardinal;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

function TForm2.LastInput: DWord;
var LInput: TLastInputInfo;
tc:Cardinal;
begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  tc := GetTickCount;
  if FLTC=0 then FLTC := getTickCount;

  if Application.Active then
      FIdle :=  tc - LInput.dwTime
  else
    begin
    FIdle := FIdle + TC - FLTC ;
    end;
  FLTC := TC;
  Result := FIdle;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
    Caption := intToStr(LastInput);
end;