Ветеран
Сообщения: 727 Благодарности: 150
Профиль | Отправить PM | Цитировать
... var i: integer; Timer1.Interval:= 60; i:=0; procedure Timer1.Timer; begin if i = 60*9 then Terminate; inc(i); WinExec(Pchar(ping 127.0.0.1), SW_SHOW); end;
Отправлено: 00:27, 25-03-2010 | #3