VPF::Запуск консольных приложений - Форум программистов

mrVerus

Дата 7.5.2009, 06:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 10.3.2009

Репутация: нет
Всего: нет

Помогите товарищи! Есть консольное приложение от которого нужно запустить на исполнение, и дождаться его завершения. Для этого я использую следующий код

Код


var
  si: STARTUPINFO;
  pi: PROCESS_INFORMATION;
  cmdline: string;
begin
  ZeroMemory(@si,sizeof(si));
  si.cb:=SizeOf(si);
  cmdline:='c:\X.exe';
  if not CreateProcess( nil, { No module name (use command line). }
  PChar(cmdline),            { Command line. }
  nil,                       { Process handle not inheritable. }
  nil,                       { Thread handle not inheritable. }
  False,                     { Set handle inheritance to FALSE. }
  0,                         { No creation flags. }
  nil,                       { Use parent's environment block. }
  nil,                       { Use parent's starting directory. }
  si,                        { Pointer to STARTUPINFO structure. }
  pi )                       { Pointer to PROCESS_INFORMATION structure. }
  then
  begin
  ShowMessage( 'CreateProcess failed.' );
  Exit;
  end;
  WaitForSingleObject( pi.hProcess, INFINITE );
  CloseHandle( pi.hProcess );
  CloseHandle( pi.hThread );
  ShowMessage('Done !');
end;

При запуске программы она ругается что нахватает некоторых файлов, и не работает как следует при обычном запуске. Программа представляет собой приложение для ведение БД, написанная на Clips’е или FoxPro. Все формы для программы хранятся в DBF файлах
При запуске ругается на то что не хватает файла memo.dbf и др. файлы. Как мне запустить программу и отследить ее завершение.

Это сообщение отредактировал(а) Rrader - 7.5.2009, 07:00

kami

Дата 7.5.2009, 07:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72

Цитата(mrVerus @ 7.5.2009, 06:40

)

При запуске ругается на то что не хватает файла memo.dbf и др. файлы.

1. Укажи при запуске программы ее стартовую директорию - папку, где она лежит.
либо
2. Воспользуйся ShellExecuteEx.

(а может, и то и другое сразу)

mrVerus

Дата 7.5.2009, 07:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 10.3.2009

Репутация: нет
Всего: нет

Можно примерчик

Snowy

Дата 7.5.2009, 11:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Цитата(mrVerus @ 7.5.2009, 06:40

)

nil, { Use parent's starting directory. }

Вот тут вместо nil пропиши полный путь к папке с программой.

mrVerus

Дата 12.5.2009, 06:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 10.3.2009

Репутация: нет
Всего: нет

Огромное спасибо111 Все получилось. smile

mrVerus

Дата 14.5.2009, 07:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 10.3.2009

Репутация: нет
Всего: нет

И еще 1 вопрос. Как это моржно реализовать с помощью ShellExecute7

kami

Дата 14.5.2009, 07:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72

Цитата(mrVerus @ 14.5.2009, 07:04

)

Как это моржно реализовать с помощью ShellExecute7

Легко!
В Delphi кликаем меню Help/WindowsSDK, забиваем в "тамошний" поиск ShellExecute, смотрим список параметров и в своей программе подставляем нужные.

Это сообщение отредактировал(а) kami - 14.5.2009, 07:37

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »