[Egorkaru]

Доброе утро. Подскажите мне, как запустить программу или файл из программы на Delphi 7?

[Alegun]

Вариантов море, напр. вот кусочек из drkb

Код:

uses ShellAPI;
…

var
h: hwnd;
begin
// Используем ShellExecute
if ShellExecute(h, 'open', 'readme.txt', nil, nil, SW_SHOW) < 32 then
   begin
     ShowMessage('Немогу выполнить ShellExecute !')
   end;
// Используем WinExec
if WinExec('Notepad c:\config.sys', SW_SHOW) < 32 then
   begin
     ShowMessage('Немогу выполнить WinExec !')
   end;
end;

а есть ещё ShellExecuteEx или CreateProcess...

[Egorkaru]

Сообщение от Alegun

Вариантов море, напр. вот кусочек из drkb

Код:

uses ShellAPI;
…

var
h: hwnd;
begin
// Используем ShellExecute
if ShellExecute(h, 'open', 'readme.txt', nil, nil, SW_SHOW) < 32 then
   begin
     ShowMessage('Немогу выполнить ShellExecute !')
   end;
// Используем WinExec
if WinExec('Notepad c:\config.sys', SW_SHOW) < 32 then
   begin
     ShowMessage('Немогу выполнить WinExec !')
   end;
end;

а есть ещё ShellExecuteEx или CreateProcess...

Спасибо. Это был первый вопрос, а второй такой: как запустить программу или файл из папки, где находится исходник программы на Delphi 7?

[Alegun]

С файлом вроде и так всё понятно, просто его имя в аргумент для запуска, и для сборки тоже самое

Код:

WinExec('proga.exe', SW_SHOW);

// или так
ShellExecute(0,nil,extractFileDir(ParamSTR(0))+'\proga.exe',nil,nil,SW_SHOWNORMAL);

[Egorkaru]

Сообщение от Alegun

С файлом вроде и так всё понятно, просто его имя в аргумент для запуска, и для сборки тоже самое

Код:

WinExec('proga.exe', SW_SHOW);

// или так
ShellExecute(0,nil,extractFileDir(ParamSTR(0))+'\proga.exe',nil,nil,SW_SHOWNORMAL);

Не работает.

[Alegun]

Путь до файла проверьте, напр.

Код:

ShowMessage(extractFileDir(ParamSTR(0))+'\proga.exe')

или тогда код показывайте, что гадать-то

З.Ы. попробуйте PChar(extractFileDir(ParamSTR(0))+'\proga.exe')