Имя: Пароль:
1C
 
Системные звуки в 1С
0 dryu83
 
25.08.08
11:58
Подскажите, как в 1С сделать так, чтобы встроенный динамик компьютера издал какой-нибудь звук.
Что нужно для работы функции Сигнал() или подскажите команду системы для параметра функции КомандаСистемы().
1С 8.1, ОС Windows XP.
1 trdm
 
25.08.08
12:01
// глСервисВоспроизвести(ИмяФайла)
Функция глСигналБиппера(Умножитель = 1) Экспорт
   Для к=1 по 10*?(Число(Умножитель)>0,Число(Умножитель),1) Цикл
       глWScript_Shell.Run("%comspec% /c echo "+Симв(7),0,-1);
       Сигнал();
   КонецЦикла;
   Возврат "ОК!";
КонецФункции // глСервисВоспроизвести()
2 Андрюха
 
25.08.08
12:00
ЗапуститьПриложение("C:\MUSIC\bugaga.wav");
3 trdm
 
25.08.08
12:03
+(1) глWScript_Shell = CreateObject("WScript.Shell");
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший