Как из прикладного кода запусить другое приложение?

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Friendlyman
Постоянный гость
Сообщения: 74
Зарегистрирован: 23 июн 2007, 23:07
Откуда: ТопСофт, Минск

Как из прикладного кода запусить другое приложение?

Сообщение Friendlyman »

Может кто подскажет, как из прикладного кода запусить другое приложение?
Есть ли возможность их запускать в синхронном и асинхронном режимах?
Есть ли возможность задавать параметры запуска?
m0p3e
Местный житель
Сообщения: 1386
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва

Сообщение m0p3e »

Код: Выделить всё

function ExecProgram (aFileName, aParamStr, aTitle : string;
                      aRunFlags : integer;
                      var aExitCode : integer
                     ) : integer;
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

vipprogr.chm рулит. Там расписаны ключики для aRunFlags
а эт вам для их теста
.Form frmExecProg
.ard
.create view vvv as select katorg.nrec ;
.begin
var aDosCode, aErrorCode : integer;
aDosCode:=ExecProgram('start','"D:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE" D:\DOC\PRINT.DOC','Печать файла', 0, aErrorCode);
message('ExecProgram(Winword.exe,D:\DOC\PRINT.DOC '+string(aDosCode)+'/'+string(aErrorCode)) ;
end.
.endform
Friendlyman
Постоянный гость
Сообщения: 74
Зарегистрирован: 23 июн 2007, 23:07
Откуда: ТопСофт, Минск

Сообщение Friendlyman »

Спасибо!
Хватило просто подсказки как функция называется.
А детали почитал в vipprogr.chm
Ответить