If not mouse move ???

[SaFu]

Hey danke das funktioniert super

Also ich muss echt mal sagen das das Forum echt geil ist

hab es jetzt so

Delphi-Quellcode:

procedure TForm2.Timer1Timer(Sender: TObject);
begin
if SecondsIdle > 10 then
begin
 Form1.Show;
 Form2.Close;
 Form4.Close;
 Form5.Close;
 Form5.Close;
 Form7.Close;
 Form10.Close;
end;
 Label1.Caption := Format('System IDLE last %d seconds', [SecondsIdle]) ;
end;

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