Синтаксис
procedure RunApplication(AClientName, AFileName: string; const AParameters: string = ''; AShowCmd: Integer = 1);
Описание
Запускает приложение на заданном десктоп-клиенте. Не работает на web-клиентах, т.к. запуск приложений запрещен в браузерах. AFileName - путь к приложению. AParameters (необязательный параметр) - параметры запуска. Если требуется запустить приложение на ПК-сервере, то в качестве первого параметра AClientName необходимо использовать специальную константу SS_SERVER_NAME.
AShowCmd(необязательный параметр) - определяет как должно быть показано окно запускаемого приложения. Может принимать следующие значения:
Значение |
Описание |
---|---|
SW_HIDE |
Скрыть окно приложения и активировать другое окно. |
SW_SHOWNORMAL |
Активировать и отобразить окно. |
SW_SHOWMINIMIZED |
Отобразить в свернутом виде. |
SW_SHOWMAXIMIZED |
Отобразить в развернутом виде. |
SW_SHOWNOACTIVATE |
Отобразить окно в текущем размере и позиции. Активное окно оставить активным. |
SW_SHOW |
Отобразить окно в текущем размере и позиции. |
SW_MINIMIZE |
Свернуть окно и активировать следующее окно верхнего уровня. |
SW_SHOWMINNOACTIVE |
Отобразаить окно в свернутом виде. Активное окно оставить активным. |
SW_SHOWNA |
Отобразить окно в текущем состоянии. Активное окно оставить активным. |
SW_RESTORE |
Отобразить окно. Если окно свернуто или развернуто, то восстановить его в первоначальных размерах и позиции. |
SW_SHOWDEFAULT |
Активировать и отобразить окно. |
Пример кода для клиента
begin
{ запустить блокнот на клиенте "Client_Name" }
RunApplication('Client_Name', 'notepad.exe');
{ запустить калькулятор на клиенте, который вызвал скрипт }
RunApplication(GetClientName, 'calc.exe');
{ запустить bat-файл на клиенте "Client_Name" }
RunApplication('Client_Name', 'D:\Моя папка\mybat.bat');
{ запустить браузер на клиенте, который вызвал скрипт и открыть страницу http://simple-scada.com }
RunApplication(GetClientName, 'C:\Program Files\Internet Explorer\iexplore.exe', 'http://simple-scada.com');
{ запустить Paint на клиенте, который вызвал скрипт и открыть изображение с удаленного ПК }
RunApplication(GetClientName, 'mspaint.exe', '"\\192.168.1.10\Моя_папка\Изображение1.jpeg"');
{ открыть диск D в проводнике Windows }
RunApplication(GetClientName, 'explorer.exe', 'D:\');
{ открыть документ Excel }
RunApplication(GetClientName, 'excel.exe', 'D:\MyFile.xlsx');
end.
Пример кода для сервера
begin
{ запустить калькулятор на сервере }
RunApplication(SS_SERVER_NAME, 'calc.exe', '');
{ запустить bat-файл на сервере }
RunApplication(SS_SERVER_NAME, 'D:\Моя папка\mybat.bat', '');
end.