драсте мне нужно выполнить определеную операцию после определеного времени простоя я это реализовал вот так [EM]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 {дейст ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83171