Нужна пауза (например секунд 20), с возможностью прерывания, но без загрузки процессора

Такой вариант не дает прервать процесс

// ===============================
Процедура Sleep(Миллисекунд) Экспорт
   ИмяФайла=КаталогПользователя()+"sleep.vbs";
   FSO=СоздатьОбъект("Scripting.FileSystemObject");
   Текст=FSO.OpenTextFile(ИмяФайла,2,1);
   Текст.WriteLine("wscript.sleep "+Миллисекунд);
   Текст.Close();
   cmdLine="wscript.exe """+ИмяФайла+"""";
   WshShell=СоздатьОбъект("WScript.Shell");
   WshShell.Run(cmdLine, 0, -1);
КонецПроцедуры    //Sleep


Для Инд=0 По Ждать Цикл
   Состояние(Сообщение+" (осталось "+(Ждать-Инд)+" сек.)");
   sleep(1000);
КонецЦикла;

ОбработкаОжидания + Кнопка "Отмена" на форме

Цикл от 1 до 1000000

ЗЫ Вторую цифру менять в зависимости от необходимого времени паузы.

Можно какое-нибудь предупреждение выводить с таймаутом 20 секунд, но все равно программа не даст что-то сделать во время паузы

Вопрос("Прервать?".......,"Да+Нет",20);

ну и в цикл завернуть, чтобы при «нет» продолжала ждать

Вопрос(<Текст_вопроса>,<Режим>,<Таймаут>)
Предупреждение(<Текст_сообщения>,<Таймаут>)

один я в белом ))
ввестистроку()

(6) Насколько я помню, подобный код грузит процессор

(7) плюспяцот, остальные варианты в топку

Что, всё настолько быстро работает, что нужно притормозить?
:)

Код частично не мой, де то тут и взял :)
Перем ПаузаМілісекунд;

// Пауза під час виконання
Функция sleep(ms)
   сек=цел(ms/1000);
   ВвестиСтроку(ms, "Пауза в мілісекундах", 100, 0, сек);
   Возврат Число(ms);
КонецФункции

ПаузаМілісекунд = 2000;
Потом в цикле де надо тормознуть:
ПаузаМілісекунд = sleep(ПаузаМілісекунд);

В таком варианте можно паузу динамично менять походу +/- и не глючит

Пердупреждение( ) вроде тоже с паузой

(12) с вечной, если чо

С диалогом бывают проблемы - если свернуть окно, то время в диалоге не идёт, и он закроется только после активизации программы.

с ввестистроку не бывает

+(0)ВК 1С++ объект "Система"
Метод

Уснуть
Sleep
Синтаксис:
Уснуть(КоличествоМиллисекунд)
Назначение:
Делает паузу путем вызова системной функции Sleep(КоличествоМиллисекунд).
Параметры:
КоличествоМиллисекунд - тип: Число. .
Возвращаемое значение:

Как вариант, который еще не озвучили, - таймер FormEx

как вариант:
для паузы менее 60 сек.

//_____________________________________________________________________________
Процедура Задержка(Врем, Текст = "Ожидание") Экспорт
   // Врем д.б. не более 60 сек    
   СекундыТекущие = Число(Прав(Строка(ТекущееВремя()),2));
   Секунды_С_Задержкой = СекундыТекущие + Врем;
   Если Секунды_С_Задержкой>60 Тогда
       Секунды_С_Задержкой = Секунды_С_Задержкой - 60;
   КонецЕсли;
   Если Секунды_С_Задержкой>=60 Тогда
       Секунды_С_Задержкой = Врем;
   КонецЕсли;
   Пока 1=1 Цикл  
       ПрошлоСекунд = Число(Прав(Строка(ТекущееВремя()),2)) - СекундыТекущие;
       Состояние(Текст+" прошло "+Врем+" секунд,  "+ПрошлоСекунд+" сек.");
       Если Число(Прав(Строка(ТекущееВремя()),2)) = Секунды_С_Задержкой Тогда
           Прервать;
       КонецЕсли;
   КонецЦикла;
   Состояние(" ");
КонецПроцедуры

Варианты с циклом - это не кошерно + 100% загрузка проца :)

(17) Во-во, я подозревал что что-то такое в формексе есть.

Со вводом строки все таки не сильно красиво получается

А стандартная ОбработкаОжидания секунды перепрыгивает, падла :)

Приблуду Ромикса попробуй, чтобы проц не грузить.

(20) А че с вводом строки некрасиво? Зато есть возможность менять время задержки динамично, другие способы такой возможности не дадут :)

еще один метод

Перем Таймер,Время;
//*******************************************
Процедура Сформировать()
   //Выставим 1 сек
   Таймер.IntervalBetweenEvents=1000;
   Таймер.Put_();                                    
   Старт=_GetPerformanceCounter();
   Время.NextEvent();
   Сообщить(_GetPerformanceCounter()-Старт);
   //Поменяем интервал на 10 сек
   Таймер.IntervalBetweenEvents=Таймер.IntervalBetweenEvents*10;
   Таймер.Put_();                                    
   Старт=_GetPerformanceCounter();
   Время.NextEvent();
   Сообщить(_GetPerformanceCounter()-Старт);
   
КонецПроцедуры


Процедура ПриОткрытии()
   Локатор=CreateObject("WbemScripting.SWbemLocator");
   Сервис=Локатор.ConnectServer();
   Интервал=Сервис.Get("__IntervalTimerInstruction");
   Таймер=Интервал.SpawnInstance_();
   Таймер.IntervalBetweenEvents=100000;
   Таймер.TimerId=_GetPerformanceCounter();
   Таймер.Put_();                                    
   Время=Сервис.ExecNotificationQuery("SELECT * FROM __TimerEvent WHERE TimerID = '"+Таймер.TimerId+"'");
КонецПроцедуры    // ПриОткрытии


Процедура ПриЗакрытии()
   Таймер.Delete_();
КонецПроцедуры    // ПриЗакрытии


(24) Не прерывается

(25) в курсе, просто как вариант паузы

То есть как обработка ожидания перепрыгивает секунды?