computer inaktiv

function LastInput: DWord;
var
  LInput: TLastInputInfo;
begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := GetTickCount - LInput.dwTime;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If LastInput > 60000 Then
  ShowMessage('inaktiv over 1 min.');
end;

Takker for hjælpen Snowball :)

Det var så lidt, og tak for karma :)

Det var så lidt :)