В цикле нужна 2-х секундная пауза. Как это сделать?

Предупреждение("", 2)

Это конечно, но мне нужна таки гарантированно 2-х секундная, а если кто-то нажмет "ОК"... К сожалению, вариант не подходит.

Предупреждение("Не нажимайте ОК", 2)

Сделай пустой цикл и сверяй с ГетКаунтером() - если не прошло 2 сек - продолжаем цикл - но это приблизительно

  час="";
  минут="";
  сек="";
  час2="";
  минут2="";
  сек2="";
  вр=ТекущееВремя(час, минут, сек);
  Пока 1=1 Цикл
    вр=ТекущееВремя(час2, минут2, сек2);
    Если сек2-сек<2 Тогда
      Продолжить;
    Иначе
      Сообщить("Прошло 2 секунды");
      Прервать;
    КонецЕсли;
  КонецЦикла;
Правда этот код по теории конкретно жрёт ресурсы проца

(5) Вообще-то код не совсем верен - если запустить в 59 секунд, то все уже...
А в принципе, похоже, так и сделаю, только с часами и минутами.

(0) а разрешите полюбопытствовать - нафига? музыку исполняете?

(7) да, причем интересно почему именно 2

Все штатные методы грузят процессор, если не ошибаюсь :)
Нештатно только через ВК, например DialMail - там есть метод Ожидание(милисекунд), проц негрузится, что не маловажно, например, при работе на сервере

(9) народ, да вы не поняли, у человека проц шустрит, вот он и думает, как его обуздать :-)

Как нагнуть проц, можно посмотреть здесь :)
http://www.forum.odessa.ua/files/pic1_114.jpg
http://www.forum.odessa.ua/files/pic2.jpg

ии Раз..ии Два..вот

Лучше вот так:
Процедура Таймаут(МиллиСекунды)
  Темп=КаталогВременныхФайлов()+"sleep.vbs";
  Текст=СоздатьОбъект("Текст");
  Текст.ДобавитьСтроку("wscript.sleep "+СокрЛП(МиллиСекунды));
  Текст.Записать(Темп);
  cmdLine="wscript.exe "+Темп;
  WshShell=СоздатьОбъект("WScript.Shell");
  WshShell.Run(cmdLine, 0, -1);
  ФС.УдалитьФайл(Темп);
КонецПроцедуры

2(14): Это будет грузить проц.
Вариант (13) проц не грузит.

(16) >> проще открыть поток со слипом
Угу. Из 1С. А затем еще заниматься синхронизацией потоков внутренними средствами 1С...

(18) Запускал? Загрузку проца смотрел?

+19 Кстати, где в 7.7 такая процедура?

WshShell=СоздатьОбъект("WScript.Shell");
WshShell.Popup("",2);

(21) см. (2).
В конце концов воспользовался вариантом (14), за что Sadovnikov-у
большое спасибо.

Вариант (4) был практически таким же :) .... только надо было самому кодировать

http://www.forum.mista.ru/topic.php?id=127614&

ЗапуститьТаймер(?,,);
StartTimer(?,,);
Синтаксис:
ЗапуститьТаймер(<ИмяПроцедуры>,<ИнтервалВызова>,<ИдентификаторТаймера>)
Назначение:
Создает таймер с идентификатором <ИдентификаторТаймера> для выполнения процедуры, переданной в параметре <ИмяПроцедуры> через <ИнтервалВызова> секунд.
Параметры:
<ИмяПроцедуры> - строка кода 1С, который должен быть выполнен через <ИнтервалВызова> секунд.
<ИнтервалВызова> - число, количество секунд, через которое должен выполниться код, переданный в параметре <ИмяПроцедуры>.
<ИдентификаторТаймера> - строка, уникальный идентификатор таймера. Необходим для перезапуска и останова таймера.
 
и еще:
ЗапуститьТаймерНаВремя(?,,);
StartTimerOnTime(?,,);
Синтаксис:
ЗапуститьТаймерНаВремя(<ИмяПроцедуры>,<Часов>,<Минут>,<ИдентификаторТаймера>)
Назначение:
Создает таймер с идентификатором <ИдентификаторТаймера> для выполнения процедуры, переданной в параметре <ИмяПроцедуры> во время, переданное в параметрах <Часов> и <Минут>.
ВНИМАНИЕ!!! Если в процедуре <ИмяПроцедуры> не остановить таймер командой ОстановитьТаймер, то процедура будет выполняться бесконечно с интервалом в 1 минуту.
Параметры:
<ИмяПроцедуры> - строка кода 1С, который должен быть выполнен через <ИнтервалВызова> секунд.
<Часов> - число, количество часов, во сколько должен выполниться код, переданный в параметре <ИмяПроцедуры>.
<Минут> - число, количество минут, во сколько должен выполниться код, переданный в параметре <ИмяПроцедуры>.
<ИдентификаторТаймера> - строка, уникальный идентификатор таймера. Необходим для останова таймера.

(+26)Это для (20). Проц на самом деле не грузит.

Вы зачем весь гербарий выкурили...(с)
Где это вы в 7.7 видели?
(27) А вот сделай так задержку, а потом взгляни загрузку

на взлет, команда системы "pause"

(29)Да он просто не в курсе.

(29),(31) Господа, прекращайте мистифицировать (читай, разводить) ))
Где в 7.7 эти методы? вернее так, в состав какой ВК они входят? )

Нет вы ребята сделайте именно приостановку выполнения 1С...
Напишите код, он простой будет и поглядите загрузит, незагрузит?
Вам без цикла всеравно необойтись, а Nop или DoEvents в 1С отсутствуют...

2 (0) забей "nop"ами
один nop выполняется за 1 машинный цикл
Тебе потребуется 2млн циклов при скорости проца в 1МГц.
Для своего считай сам.

(34) сделай слип, но без "внешнего" скрипта

А мне кажется, чтобы сделать это штатными средствами, и при этом не грузить проц, надо объединить варианты 1 и 14:
  Н = _GetPerformanceCounter();
  Пока (_GetPerformanceCounter() - Н) < 5000 Цикл
      Предупреждение("Не нажимайте ОК. Хотя, вобщем-то все равно.", 2);
  КонецЦикла;

(37) И свернуть 1С...

(17)+(18)+(34) Оценил:)).