Текущий архив: 2003.10.23;
Скачать: CL | DM;

Вниз

Запуск exe файла   Найти похожие ветки 

← →
jazz   (2003-10-09 18:32) [0]

Как загрузить exe файл?? и очень нужное как определить закончил этот exe файл свой запуск..

---

← →
MBo ©   (2003-10-09 18:34) [1]

createprocess.
FAQ и форум API

---

← →
Zew ©   (2003-10-09 20:24) [2]

Например можно вот так
function WinExecAndWait(Path: PChar; Visibility: Word): Word;
var
InstanceID: THandle;
Msg: TMsg;
begin
InstanceID := WinExec(Path, Visibility);
if InstanceID < 32 then { значение меньше чем 32 указывает на ошибку }
WinExecAndWait := InstanceID
else
repeat
while PeekMessage(Msg, 0, 0, 0, pm_Remove) do
begin
if Msg.message = wm_Quit then
Halt(Msg.WParam);
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
until
GetModuleUsage(InstanceID) = 0;
WinExecAndWait := 0;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2003.10.23;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.014 c