Может кто подскажет, как из прикладного кода запусить другое приложение?
Есть ли возможность их запускать в синхронном и асинхронном режимах?
Есть ли возможность задавать параметры запуска?
Как из прикладного кода запусить другое приложение?
Модераторы: m0p3e, edward_K, Модераторы
-
- Постоянный гость
- Сообщения: 74
- Зарегистрирован: 23 июн 2007, 23:07
- Откуда: ТопСофт, Минск
Код: Выделить всё
function ExecProgram (aFileName, aParamStr, aTitle : string;
aRunFlags : integer;
var aExitCode : integer
) : integer;
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
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
а эт вам для их теста
.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
-
- Постоянный гость
- Сообщения: 74
- Зарегистрирован: 23 июн 2007, 23:07
- Откуда: ТопСофт, Минск