Задержать запуск
Добавлено: Пн апр 21, 2008 3:54 pm
Часто спрашивают "как задержать запуск (любой) программы" ?
Вот "программка" (это даже и программой тяжело назвать)
http://se2.com.ua/Rus/ck04at/~Sleep.zip
В архиве маленький исполнимый файл sleep.exe
Параметры:
Sleep <кол-во секунд задержки> [Show]
Если Show указывать - программа выводит обратный отсчет
Если нет - тихо стоит указанное время секунд
Пример:
Sleep 30 Show
Текст программы
Пользуйтесь, кому надо.
Вот "программка" (это даже и программой тяжело назвать)
http://se2.com.ua/Rus/ck04at/~Sleep.zip
В архиве маленький исполнимый файл sleep.exe
Параметры:
Sleep <кол-во секунд задержки> [Show]
Если Show указывать - программа выводит обратный отсчет
Если нет - тихо стоит указанное время секунд
Пример:
Sleep 30 Show
Текст программы
program Sleep1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var Secs,r1: integer;
begin
if ParamCount<1>0 then begin
for r1:=0 to Secs-1 do begin
if Uppercase(ParamStr (2)) ='SHOW' then
Write('Wait '+format('%3d',[Secs-R1])+' sec'+char(13));
Sleep(1000);
end;
end;
end.
Пользуйтесь, кому надо.