Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Дата и Время    >>    wait
   
 
 Wait - Задержка для .BAT файлов   Александр Токарев 05.07.1997

Программа делает паузу на заданное число секунд



1k 
 

Wait.pas Программка, ждущая заданное из командной строки число секунд. Ничего замысловатого, но очень полезна при написании батников. Alexander Tokareff 2:5077/27, dwalin@mol.mn --- Program Wait; Uses Crt, Use32; Const ErrStr = 'Usage: wait time_to_wait_in_seconds [-quiet]'; Var i, j, err : integer; be_quiet : boolean; Begin if ( ParamStr(1) = '' ) then begin Writeln( ErrStr ); Halt; end; Val( ParamStr( 1 ), i, err ); if ( err <> 0 ) then begin Writeln( ErrStr ); Halt; end; if ( ParamStr( 2 ) = '-quiet' ) then be_quiet := true else be_quiet := false; for err := i downto 1 do begin if ( not be_quiet ) then Write( ' ', #13 + 'Sleeping for ', err, ' second(s)...'#13 ); Delay( 1000 ); end; End.