[SKIPtr]

драсте мне нужно выполнить определеную операцию после определеного времени простоя
я это реализовал вот так

Код:

const tp = 3; {время простоя}

var
  tda : DWord;
  liInfo: TLastInputInfo;


function Ida : DWord;
var a : integer;
begin
  a := (tda - liInfo.dwTime) DIV 60000;
  Result := a;
end;

procedure Form.Timer1Timer(Sender: TObject);
var t : DWord;
begin
  tda := GetTickCount;   
  liInfo.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(liInfo);
  t := Ida;
  if t = tp then
      {действие при простое}
end

после того как приходит время действия при простое
действие запускаеться каждый раз при входе в таймер
а мне нужно шоб после действия таймер простоя начал отщет заново