Registriert seit: 8. Nov 2006
1.360 Beiträge
Delphi 10.3 Rio
|
Re: If not mouse move ???
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?"
|