Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];

Вниз

Задержка в пакетном файле   Найти похожие ветки 

 
КиТаЯц ©   (2006-10-12 07:08) [0]

Господа, извините, что туплю (совсем DOS забыл)... Как сделать аналог Sleep(10000) в BAT-файле?
Спасибо.


 
Думкин ©   (2006-10-12 07:16) [1]

Написать соответсвующую утилиту самому.


 
КиТаЯц ©   (2006-10-12 07:35) [2]


> Думкин ©   (12.10.06 07:16) [1]


Спасибо. А в BAT-файле?


 
Думкин ©   (2006-10-12 07:41) [3]

> КиТаЯц ©   (12.10.06 07:35) [2]

Вот как сделаете, так потом и вставите.
Во-всяком случае, поиск по яндексу на данный момент наводит именно на такие размышления. Временные задержки иначе никак. Вроде.


 
skyle ©   (2006-10-12 07:42) [4]


> КиТаЯц ©   (12.10.06 07:35) [2]
>
> > Думкин ©   (12.10.06 07:16) [1]
>
>
> Спасибо. А в BAT-файле?

А в бат-файле её вызвать.


 
Некто ©   (2006-10-12 07:43) [5]

Лучше переписать бат-файл на wsh.


 
SlyFox ©   (2006-10-12 07:46) [6]

> [0] КиТаЯц ©   (12.10.06 07:08)
>Как сделать
> аналог Sleep(10000) в BAT-файле?
> Спасибо.


Научиться пользоваться поисковиками

http://www.yandex.ru/yandsearch?text=%E7%E0%E4%E5%F0%E6%EA%E0+%E2%F0%E5%EC%E5%ED%E8+%E2+bat-%F4%E0%E9%EB%E5

2-ая сверху


 
skyle ©   (2006-10-12 07:49) [7]

Батник :


echo Before Pause
call cscript 1.vbs
echo AfterPause


1.vbs :

WScript.Sleep(10000)


 
skyle ©   (2006-10-12 07:54) [8]


> SlyFox ©   (12.10.06 07:46) [6]
> Научиться пользоваться поисковиками
> http://www.yandex.ru/yandsearch?text=%E7%E0%E4%E5%F0%E6%EA%E0+%E2%F0%E5%EC%E5%ED%E8+%E2+bat-
> %F4%E0%E9%EB%E5
>
> 2-ая сверху


А чего это она такая здоровая? :(
39 килобайт...


 
SlyFox ©   (2006-10-12 07:59) [9]

> [8] skyle ©   (12.10.06 07:54)
> А чего это она такая здоровая? :(
> 39 килобайт...


Понятия не имею, я её не писал :) там и по первой сцылке есть и еще наверняка... человеку ж надо готовое...

меня вобще всегда такие вещи как "start /w", например, устраивали в батниках...


 
Думкин ©   (2006-10-12 08:00) [10]

> skyle ©   (12.10.06 07:54) [8]

В Дельфи 7 пустую программу консольную сделай - 39 424. Вот и ответ. :)


 
skyle ©   (2006-10-12 08:03) [11]


> Думкин ©   (12.10.06 08:00) [10]
> > skyle ©   (12.10.06 07:54) [8]
>
> В Дельфи 7 пустую программу консольную сделай - 39 424.
> Вот и ответ. :)


Ээээ, дарагой, зачем гвозди микроскопом забивать, да?

program Project1;
{$APPTYPE CONSOLE}
uses Windows;

var
 C : Cardinal;
 I : Integer;
begin
 if ParamCount < 1 then
   Exit
 else
   try
     Val(ParamStr(1), I, C);
     Sleep(I);
   except
   end;
end.


Delphi5
16 896 байт

Delphi7
15 872 байта

Ы?


 
Чапаев ©   (2006-10-12 08:09) [12]

> [0] КиТаЯц ©   (12.10.06 07:08)

Штатная утилитка только в WinXP x64 появилась...


 
КиТаЯц ©   (2006-10-12 08:10) [13]

Лана, перефразирую вопрос:
"можно-ли командами DOS сделать задержку выполнения пакетного файла на определенное количество секунд? Да или Нет?"
Спасибо.


 
skyle ©   (2006-10-12 08:11) [14]


> КиТаЯц ©   (12.10.06 08:10) [13]
> Лана, перефразирую вопрос:
> "можно-ли командами DOS сделать задержку выполнения пакетного
> файла на определенное количество секунд? Да или Нет?"


Если [5] и [7] не штатные средства - то нет.


 
Думкин ©   (2006-10-12 08:11) [15]

> skyle ©   (12.10.06 08:03) [11]

Ему нравится - видимо микроскопы есть. SysUtils дает столько.

А зачем try с пустым exception? Чего боишься и не обрабатываешь?


 
КиТаЯц ©   (2006-10-12 08:16) [16]


> skyle ©   (12.10.06 08:11) [14]


Ок. Спасибо.

ps Нашел как выкрутиться. Может кому пригодится:
ping -n 11 -w 1 127.0.0.1 > nul


 
Чапаев ©   (2006-10-12 08:18) [17]

> [16] КиТаЯц ©   (12.10.06 08:16)

фигасе дос...


 
skyle ©   (2006-10-12 08:26) [18]


> Думкин ©   (12.10.06 08:11) [15]
> > skyle ©   (12.10.06 08:03) [11]
> Ему нравится - видимо микроскопы есть. SysUtils дает столько.
> А зачем try с пустым exception? Чего боишься и не обрабатываешь?


Про SysUtils в курсе.
А не обрабатываю по двум причинам
1. Набросок
2. Нафик не надо. Шибко болтливая утилита - зло :)


> КиТаЯц ©   (12.10.06 08:16) [16]
> ps Нашел как выкрутиться. Может кому пригодится:
> ping -n 11 -w 1 127.0.0.1 > nul


Не, это реально круто.. А если на машине нет сетевой карты?


 
Чапаев ©   (2006-10-12 08:33) [19]

> [16] КиТаЯц ©   (12.10.06 08:16)

Да, кстати, и КАКУЮ задержку ты тут получить намерен? 11 миллисекунд? Ничего, что параметр w -- время до таймаута?


 
vidiv ©   (2006-10-12 08:54) [20]


> А если на машине нет сетевой карты?

ну и что что нет... сеть то всеравно работает


 
Чапаев ©   (2006-10-12 08:56) [21]

> [20] vidiv ©   (12.10.06 08:54)

Да ну??? А мне думалось, "сеть всё равно работает" под Win2000 и выше. Но уж никак не под DOS.


 
Думкин ©   (2006-10-12 08:57) [22]

> vidiv ©   (12.10.06 08:54) [20]

А если нет TCP/IP?


 
КиТаЯц ©   (2006-10-12 09:08) [23]

Господа, спасибо за советы пользоваться поисковыми системами, писать утилиты самостоятельно и т.д...
...но мне это необходимо для КОНКРЕТНОГО случая. На конкретной машине с win200 с сетью надо (было) поставить задержку в пакетном файле и не устанавливать дополнительное ПО (утилиты и пр.). Задача выполнена. Всем искренне спасибо за участие.
:)



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.49 MB
Время: 0.072 c
15-1161242512
Серьезный Сэм
2006-10-19 11:21
2006.11.05
Общий доступ


3-1157698560
angelsaint
2006-09-08 10:56
2006.11.05
как сделать ввод дат "до н.э."


2-1161099536
wewill
2006-10-17 19:38
2006.11.05
Проверка числового значения


2-1161316558
morda
2006-10-20 07:55
2006.11.05
ADO пароль на подключение


8-1143964344
MeF Dei Corvi
2006-04-02 11:52
2006.11.05
VST + Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский