Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Запуск внешнего приложения

[Salo]Phantom © (2007-05-16 12:31:00)
Помогите разобраться почему такой код выполняется не до конца (не запускается приложение)

procedure TfmMain.RunApp(AppPath: string);
var PMSI: TStartupInfo;
PMPI: TProcessInformation;
begin
CreateProcess(nil, @AppPath[1], nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil, PMSI, PMPI);
end;

procedure TfmMain.FormActivate(Sender: TObject);
begin
copyFile(PChar(UpdatePath), PChar(LocPath), True);
RunApp(LocPath); //-в этом месте отказался работать
Application.Terminate;
end;
Если же исползовать WinExec, то все работает, но его Delphi не рекомнедует:( Если же убрать впередиидущую операцию копирования и файл уже находится в нужном месте запуск происходит нормально!

Джо (2007-05-16 13:02:00) [1]
> [3] [Salo]Phantom (16.05.07 12:59)
> Действительно исправил RunApp, добавив в начале FillChar(PMSI,
> SizeOf(TStartUpInfo), 0)

Кроме того, нужно инициализировать поле PMSI.cb

Джо (2007-05-16 13:02:00) [2]
И проверять возвращаемое функцией значение.

[Salo]Phantom (2007-05-16 12:59:00) [3]
Действительно исправил RunApp, добавив в начале FillChar(PMSI, SizeOf(TStartUpInfo), 0); и все заработало. Спасибо за помощь. Дескрипторы тоже буду очищать, "мусор не стоит выносить из избы" :)

Сергей М. (2007-05-16 12:40:00) [4]

> почему

> не запускается приложение

Потому что в ходе работы функцииCreateProcess возникла ошибка.

Джо (2007-05-16 12:40:00) [5]
Структура TStartupInfo требует инициализации. Читать Справку по CreateProcess.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »