Einzelnen Beitrag anzeigen

Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#9

Re: If not mouse move ???

  Alt 27. Mai 2007, 00:10
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;

"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat