Hallo allerseits,
wenn ich untenstehenden Tipp verwenden will
startet die Anwendung mit einer Zugriffsverletzung.
Delphi selber startet die Anwendung einwandfrei (F9).
Nach der Zugriffsverletzung funktioniert zwar alles
aber trotzdem muss sie ja eine Ursache haben.
Zitat von
Luckie:
Delphi-Quellcode:
function SecondsIdle: DWord;
var
liInfo: TLastInputInfo;
begin
liInfo.cbSize := SizeOf(TLastInputInfo) ;
GetLastInputInfo(liInfo) ;
Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := Format('System IDLE last %d seconds', [SecondsIdle]) ;
end;