Дельфи ShellExecute?

Question

[Porto_b]

Вообщем основное приложение запускает Project1.exe программу которая находится в папке control методом :

...
ShellExecute(Handle, 'open', 'control\Project1.exe', nil, nil, SW_HIDE);
...

В свою очередь в Project1.exe прописано открыть файл который находится там же где и он сам.

Если запустить приложение Project1.exe прямо то все открывает работает. Ну а если запустить с основного приложения которая находится выше уровнем то возникает ошибка(не находит файл).

Можно обойтись в Project1.exe прописав абсолютный путь относительно главного приложения control/file.txt но правильно ли это? Опять таки если запустить напрямую то он его естественно не найдет. Абсолютный путь относительно дисков тоже не вариант.

Answer 1

[Hemul GM]

Нужно указывать рабочий каталог при запуске с помощью shellexecute

Answer 2

[Игорь]

IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + 'относительный путь до файла'

Comments

[Porto_b]

не работает

ShellExecute(Handle, 'open', 'control\Project1.exe', nil, IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + PChar('\control'), SW_HIDE);

[Игорь]

Porto_b,

Для начала, посмотрите что возвращает

IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)))

Include Trailing Path Delimiter

[Porto_b]

Игорь, я сделал так и работает:

var spath : string;
begin
  Getdir(0,spath);
  ShellExecute(0, nil, PChar(spath+'\control\Project1.exe'), nil, PChar(spath+'\control'), SW_HIDE);