Случалось ли Вам, друзья мои, запускать обработки длительного периода работы (на час и более)? Разумеется, что смотреть и ждать - глупо, работаем с другим приложением. И через каждые 10 мин смотришь: не закончилась ли обработочка то. А как бы можно задать, что бы по окончании просемафорила, что , дескать, всё готово...
Сигнал(); не срабатывает. Есть ли какие идеи?

Я обычно использую предупреждение "Обработка завершена"- оно вываливается с сигналом

ЗапуститьПриложение("01-Wollt Ihr Das Bett In Flammen Sehen.mp3");

(2) Опередил :))

Например, в конце сделать КомандаСистемы("start c:\music\PohoronnyiMarsh.wma")

ещё вариация на тему:
ЗапуститьПриложение("%ProgramFiles%\Winamp\winamp.exe %ProgramFiles%\Winamp\winamp.m3u")

А у меня срабатывает :(
Что я делаю не так?

переменный типа %ProgramFiles% походу нельзя использовать.
тогда так:
Текст = СоздатьОбъект("Текст");
Текст.ДобавитьСтроку("""%ProgramFiles%\Winamp\winamp.exe"" ""%ProgramFiles%\Winamp\winamp.m3u""");
Текст.Записать(КаталогПользователя()+"123.bat");
ЗапуститьПриложение(КаталогПользователя()+"123.bat")

А ежели звуков(ни колонок, ни динамика) нет, как тогда? В Систрейе может чем-нибудь помигать ?

+(7) лучше так:
"start ""%ProgramFiles%\Winamp\winamp.exe"" ""%ProgramFiles%\Winamp\winamp.m3u"""

можно запустить скрипт, который будет раз в секунду эмулировать нажатие Scroll Lock

Разогнать винт, чтоб системник закачался и постучал по столу

(11) :))

(8) Можно шатдаун компу сделать. :-)

Можно еще открыть дверцу CD-ROM'а

можно поморгать монитором

Лучше закрыть,...... уронив чашку кофе

или позвонить модемом на мобилу

(17) Страниц на печать на все сетевые принтеры достаточно быстро сигнализируют

помигать кнопкой в панели задач. тут самахарбА нужен

(8) а аську сообщение бросить - она и пискнет и замигает

(to all) ну Вы и извращенцы....

запустить по окончании трояна, который переворачивает изображение на монитеоре

Еще можно во всех компах домена дверцу CD-ROM открыть...

Лучше закрыть,.... уронив все чашки кофе. Во всем домене

и разослать по корпоративному мылу радостную новость, что у прога закончилась обработка

(25) Не, лучше разослать по корпоративному мылу всю порнуху на винте.

(26) Синхронизировать порнуху на всех винтах в домене

26+ из кэша сервака фирмы ..

(27) надо как-то сигнализировать, что синхронизация закончилась

Записать результаты обработки на CD, раскрутить болванку в приводе, и открыв лоток послать болванку в программиста.

+(30) во всем домене

(30) тогда нужно еще оповещение, что болванка доставлена до адресата... хотя наверное оповещением будет ряд крепких выражений с его стороны

на днях передача была - чуваки всё проверяли.
1. взорвётся ли заправка от звонка мобильного (искра, статич. электричество)
2. что происходит с силиконовыми имплантантами в самолёте
3. что будет если раскрутить диск в 52x CD-ROMe

Так вот в последнем случае они рядом желеобразную копию человека положили. Из неё потом красиво осколки торчали :)) Прям как ёжик был.

(33) заправка для картриджей? ;)

2(34) ??

(35) ну я подумал вдруг порошок для заправки картриджей взрывается от мобилыы, так можно тогда  неплохое оповещение замутить с учетом (17)

(34) заправка-бензоколонка....причем она знатно так пыхнула у них там !

WshShell = CreateObject("WScript.Shell");
Для к=1 по 20 Цикл
WshShell.Run("%comspec% /c echo "+Симв(7),0,-1);
КонецЦикла;

(37) ну в принципе бензоколонка даже лучше. тогда по всем новостям объявят что у прога обработка закончилась

2(36) не, заправку им взорвать не получилось. Они короче добились в небольшом объёме нужной концентрации паров бензина взрывающейся от электр. искры (провода близко свели и ток пускали), но когда положили мобильник - нифига не взорвалось. Но впервом случае они проверяли стат. электричество (не ток из розетки, а тёрли об одежду фигню какую-то). Короче от этого бывает бум. Рекомендовали на заправке, выходя из тачки хвататься за корпус тачки (крышу например) дабы скинуть заряд.

А сидюки неопасны. Типа они тока в идеальных условиях (на дрели) взрываются часто, а в компе реже. И коробка не позволяет осколкам разлетаться.

(38) а про (19) что скажешь?

(32) В данном случае болванка сама евляется оповещением о своей доставке. Если УдарПоЛбу=1 Тогда доставленна по адрессу, иначе недоставленна.

(38) Здорово, она пищит! Причем, не через наушники, а через спикер!

(43) в наушники тоже пищит

Читаю и плакаю ;))))
Как развито мышление

(42)
Ожидается ключевое слово 'КонецЕсли' ('EndIf' ;)

А вообще, вы все супер!!! Просто мозговое торнадо!

Следующая ветка будет о том как проигрывать файлы в 1с без ВК, и не просто а по спискам воспроизведения и прочим.
Кстати чтоб открыть сиди-ром вот
...
Процедура Сформировать()
   MPlayer=createobject("WMPlayer.OCX.7");
   Для i=0 по MPlayer.cdromcollection.count-1 Цикл
       MPlayer.cdromcollection.item(i).eject();
   конеццикла;
КонецПроцедуры

А почему у меня все распахнулось? :)))
Как ты все это выцепляешь?

(48) Молоток!

(48) А закрыть можно ?

(49) Правдо -, создаю в ворде форму VBA захожу в Tools - Additional Control и зырю что есть в системе, добавляю на форму, жму F2 и смотрю что появилось, там все методы/свойства ну а потом в инет конечно, ну сначала пытаюсь найти в реестре в роот. Многое помню еще с вин 3.1 95 и nt 4, конечно без справочного материала никуда, неупомниш ведь все...

48 ->
MPlayer=createobject("WMPlayer.OCX.7");
{C:\JOB\1.ERT(4)}: Неудачная попытка создания объекта (WMPlayer.OCX.7)

(51) Недумал, наверно можно

(53) Медиаплейер нестоит...

(51) Да, можно.

для ц = 1 по 5 цикл
   Для i=0 по MPlayer.cdromcollection.count-1 Цикл
       MPlayer.cdromcollection.item(i).eject();
       MPlayer.cdromcollection.item(i).eject();
   конеццикла;
конеццикла;

2(55) это у тебя наверно не..
C:\Program Files\Windows Media Player\mplayer2.exe

глупо привязыватся к неуниверсальным объектам. открыть можно и более универсально.

Т.е. повторный запуск eject закрывает привод.

(57) Медиаплейер универсален если не трогать, так после многих перестроек на компе много чего несработает.
Могу сделать через АПИ и тоже в 1С без ВК

(59) а как (10) сделать?

(58) Нет, это метод от медиаплеера, для записи дисков, а там тока открывает по окончанию

(60) В смысле чтоб лампочка мигала ? Тогда через май любимый VBA...;)

блин, ну я же встрою половину этих способов оповещения себе в конфу. в базу знаний, вобщем.

Поосторожней с WMPlayer.OCX - у него есть дырка в памяти. Хост-процесс(в данном случае 1цэ) потом завершится не может...

(52)Да но нужно как то выяснять какой объект что умеет. Но в целом понят - только практика :)

(93) Что я делаю на VBA использцуй в крайних случаях, ну или это непостоянно весящие объекты (например как "разноцветные базы") если в терме будет у десятка усеров запущено мег 50-60 памяти сожрет, но загрузку проца конечно сильно не повысит

(64) Теперь может...

(67)Т.е. типа ты разрешаешь ему это сделать?

(64) Можно ведь сделать чтоб 1сэ небыл хост-приложением для WMPlayer,
Да, ты вправду тянешь(в смысле заслужено) на ник Билли Г, зарегил бы, а... А то ведь испаганят...

(68) Нет не-это имел ввиду, на новых ОС и с 9> вроде эта осх другая чюток...

(70)w2k и wXP относятся к новым ОС?

(71) Ну яж сказал, что еще и сам медиаплай... wmp.dll то другая...

(38) 1: На Win-98 не работает, ошибку правда не выдает.
    2: А как сделать, чтоб пищало непрерывно, а при нажатии ESC, например, прервалось.

(61) В MSDN написано, что еще и закрывает. Запусти (56).

WshShell = CreateObject("WScript.Shell");
   Стр="";
Пока ВвестиСтроку(Стр, "Прервать", 1, 0, 5) = -1 Цикл
   Стр="";
   Для к=1 по 20 Цикл
       WshShell.Run("%comspec% /c echo "+Симв(7),0,-1);
   КонецЦикла;
КонецЦикла;
...
Для 98 замени %comspec% на c:\command.com или %windir%\command\command.com

(74) Незакрывает, такие шутки еще на сайтах пробовал ;) можно в страничку, но подругому
<OBJECT ID=MediaPlayer CLASSID=CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6....

(76) После твоего кода в (48)(дверца отрылась), двд не видит диски, пришлось рестарт делать :(( . Даже заголовок диска не видит, причем, ни в какой программе - как будто диск пустой.