Как определить время простаивания системы?
function LastInput: DWord;
var
LInput: TLastInputInfo;
begin
LInput.cbSize := SizeOf( TLastInputInfo );
GetLastInputInfo( LInput );
Result := GetTickCount - LInput.dwTime;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Caption := Format( 'Система простаивает %d ms', [LastInput] ); end; |