1С, Вызов функций WIN API, Shell, WScript.Shell, Shell.Application, COMОбъект, Bat, C#, VB.Net, Net, КомандаСистемы, ЗагрузитьВнешнююКомпоненту, эмуляция нажатия клавиш, запуск внешних приложений

1С

Процедура Кнопка1Нажатие(Элемент)
   Shell = Новый COMОбъект("WScript.Shell");
   Shell.SendKeys("{CAPSLOCK}"); //Нажать эту кнопку
   Shell.Run("calc"); //Запустить калькулятор
   Shell.AppActivate("Конфигуратор"); //Сделать активным окно, чье имя начинается с "Конфигуратор"
   Shell.Run(BatFile, 0, -1); //Запустить батник "BatFile", без открытия DOS окна, c ожиданием окончания работы
КонецПроцедуры

Специальные клавиши = {}   {CAPSLOCK}
Ctrl+A   = ^(A)
Shift+А = +(А)
Alt+А    = %(А)

-------------------------------------------------------------------------------------------------------------------
Процедура КомандаАПИ(парам1, парам2)
   Shell = Новый COMОбъект("WScript.Shell");
   Shell.Run(парам1, парам2);
КонецПроцедуры

КомандаАПИ("rundll32 shell32, SHHelpShortcuts_RunDLL PrintersFolder", true); //открыть диалог "Принтеры"
КомандаАПИ("rundll32 SHELL32, SHHelpShortcuts_RunDLL FontsFolder", true); //открыть диалог "Шрифт"
КомандаАПИ("rundll32 user32, SetCursorPos", true); //переместить курсор мыши в нижний правый угол
КомандаАПИ("rundll32 user32, mouse_event", true); //сгенерировать нажатие мыши
КомандаАПИ("rundll32 user32, LockWorkStation", true); //заблокировать компьютер

-------------------------------------------------------------------------------------------------------------------
Shell = Новый COMОбъект("Shell.Application"); //Свернуть все окна
Shell.MinimizeAll();

-------------------------------------------------------------------------------------------------------------------
КомандаСистемы("shutdown -r"); //перегрузить компьютер
КомандаСистемы("gpedit.msc"); //запуск групповых политик

-------------------------------------------------------------------------------------------------------------------
Cсылки о "WScript.Shell" (WHS, реестр, запуск программ, ярлыки, файловая система, чтение и редактирование файлов, сеть, сетевое окружение, Microsoft Office, Word, Excel)
http://www.forum.mista.ru/topic.php?id=5265&kb=1
http://itland.ru/forum/index.php?showtopic=6096

-------------------------------------------------------------------------------------------------------------------
Создание внешних компонент для 1C с помощью C#, VB.Net, Net Framework
http://kb.mista.ru/article.php?id=56
http://www.kb.mista.ru/article.php?id=62
http://www.rsdn.ru/article/dotnet/cs1c.xml
http://www.rsdn.ru/Forum/Message.aspx?mid=751285

Теги: 1С, Вызов функций WIN API, Shell, WScript.Shell, Shell.Application, COMОбъект, Bat, C#, VB.Net, Net, КомандаСистемы, ЗагрузитьВнешнююКомпоненту, эмуляция нажатия клавиш, запуск внешних приложений