If not mouse move ???

[SaFu]

Schönen abend

Gibt es sowas wie

Delphi-Quellcode:

 if not mouse.move then
  begin 
   form1.close;
  end;

:gruebel:

[Dani]

Was soll mouse.move denn können?

[SaFu]

achso wenn die maus längere Zeit nich bewegt worden ist soll das Prgramm geschlossen werden und es soll die Form mit der Anmeldung(Form1 wieder auf gehen

habe es bis jetzt so aber dann schließt es immer nach einer gewissen zeit

Delphi-Quellcode:

procedure TForm2.Timer1Timer(Sender: TObject);
begin
if not mouse.
 Form2.Close;
 Form4.Close;
 Form5.Close;
 Form6.Close;
 Form7.Close;
 Form10.Close;
 Timer1.Enabled:= False;
end;

[Dani]

Ich kenne keine Funktion, die dir liefert, ob innerhalb einer bestimmten Zeitspanne die Maus bewegt wurde, sorry. Du könntest aber einen TTimer erweitern, und dann mit Mouse.CursorPos...

[bitsetter]

Hi,

wäre nicht GetLastInputInfo was für dich?

[SaFu]

ja das wäre sowas aber wo finde ich das für delphi oder habe ich das übersehen


Bei mir würde es so sein wenn der Anwender was macht wird er Trotzdem nach der Eingestellten zeit aus dem Programm geschmissen deshalb wäre es schön wenn erst überprüft wir ob länger nichts gemacht würde wie bei einem screensaver

[bitsetter]

Wie lange keine Benutzereingaben mehr erfolgt
Kannst ja mal ausprobieren.

[Die Muhkuh]

Delphi-Quellcode:

var
  info: tagLASTINPUTINFO;
begin
  info.cbSize := SizeOf(tagLASTINPUTINFO);
  GetLastInputInfo(info);

  Label1.Caption := 'Letzter Input (sek): ' + IntToStr((GetTickCount - info.dwTime) div 1000);

[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;

:-D :cheers: