Народ, подскажите, как сделать паузу - 5 сек. в форме обработки. Чтобы процессор не грузила на 100%?

управляемые формы

Начало = ТекущаяДата();
Пока не ТекущаяДата() >= Начало + 5 Цикл
КонецЦикла;

Хотя смысл задачи не очень ясен.

предупреждение

(2) скрипт будет грузить процессор на 100%

надо типа

ping -n 5 127.0.0.1

только как засунуть это

Строка = "ping -n 5 127.0.0.1";
Шелл = Новый COMОбъект("WScript.Shell");
Шелл.Run(Строка, 0, -1);

(6)После выполнения этой команды 1С не остановит работу. ping будет выполняться сам по себе и 1С продолжит нагружать процессор.

Мой вариант:
ВремяНачала = ТекущаяУниверсальнаяДатаВМиллисекундах();
Пока ТекущаяУниверсальнаяДатаВМиллисекундах() - ВремяНачала < 5000 Цикл КонецЦикла;

(7) Ошибаетесь, все работает.

(9)Пробовал?
Хотя с другой стороны, процессор выделит ресурсы для команды ping и для 1С. И ресурсы ping могут быть использованы. Тут надо просто проверить на практике. Будет работать или нет.

(10) Да, пробовал.

Чо, после рана шелла 1с остановит-таки свою рабу?

(11)Буду иметь ввиду.
Интересно, может быть кто-то предложит вариант решения (0) не выходя из 1С.

А что обработка ожидания уже не катит?

(13) http://infostart.ru/public/16230/

ПодключитьОбработчикОжидания("ВторойАктМарлезонскогоБалета", 5, истина)

у меня раньше использовалась вот такая процедура :
Процедура Спать(СкокоСпать)                                    Экспорт
    Если СкокоСпать = 0 Тогда
        Возврат
    КонецЕсли;
    ПутьСкрипта = КаталогВременныхФайлов()+"SleepScript.vbs";
    СкриптФайл = Новый ТекстовыйДокумент;
    СкриптФайл.ДобавитьСтроку("WScript.Sleep("+Формат(СкокоСпать*1000, "ЧГ=0")+")");
    СкриптФайл.Записать(ПутьСкрипта, КодировкаТекста.OEM);
    WSHShell = Новый COMОбъект("WScript.Shell");
    WSHShell.Run("wscript.exe """+ПутьСкрипта+"""", 0, Истина);
    УдалитьФайлы(ПутьСкрипта);
КонецПроцедуры

да по-идее, если процессор 4=х ядерный, будет грузиться только 1 ядро

ЗапуститьПриложение("timeout 5",,Истина);

ПодключитьОбработчикОжидания("ОбработчикОжидания", 5, Истина);