|
|||
Скачать Wait - Задержка для .BAT файлов
05.07.1997 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. | |||
© 2009–2024 Russian Pascal Developer Network.
Техническая площадка: ISBIZ Хостинг |