Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Запуск exe файла из приложения

Автор: PIF 23.2.2005, 17:26

Скажите пожалуйст, как мне из своего приложения запустить exe файл, находящийся в папке с приложением?
Заранее премного благодарен!!!
P.S. Если можно, приведите пример

Автор: _hunter 23.2.2005, 17:37

а поискать слабо?
CreateProcess() или WinExec() или ShellExecute()

Автор: PIF 23.2.2005, 17:42

Нет не слабо, просто надеялся на подсказку профессионалов!

Автор: The MASTER 24.2.2005, 07:27

Код

ShellExecute(handle, 'open', 'имя файла', nil, nil, sw_shownormal);

Автор: Александра 24.2.2005, 10:56

Цитата(The @ 24.2.2005, 07:27)

Код

ShellExecute(handle, 'open', 'имя файла', nil, nil, sw_shownormal);

только не забудьте добавить модуль ShellAPI! (uses ShellAPI)

Автор: Rennigth 24.2.2005, 11:20

как вариант:

Код



var
  lStartupInfo: TStartupInfo;
  lProcessInf: TProcessInformation;
  lProgPath : string;
begin
  ZeroMemory(@lStartupInfo, SizeOf(lStartupInfo));
  lStartupInfo.cb := SizeOf(lStartupInfo);
  ZeroMemory(@lProcessInf, SizeOf(lProcessInf));

  lProgPath := ExtractFilePath(ParamStr(0)) + 'YourProg.exe';

  CreateProcess(PChar(lProgPath),nil, nil, nil,
      False, CREATE_DEFAULT_ERROR_MODE or NORMAL_PRIORITY_CLASS, nil, nil,
      lStartupInfo, lProcessInf);

Автор: -=mike=- 24.2.2005, 12:15

Можно немного проще:

1) Кинуть на форму ActionManager
2) Щелкнуть на нем 2 раза
3) Правой кнопкой на поле -> NewStandartAction
4) В списке ищем TFile -> TFileRun
5) добавляем в код:

FileRun1.FileName:='prog.exe';
FileRun1.Execute;

лучше

Код


try
  FileRun1.FileName:='prog.exe'; 
  FileRun1.Execute;
except
end;

Автор: p0s0l 26.2.2005, 14:54

Перенесенно из раздела Delphi