Как работает ShellExecute, не могу установить рабочую папку?

Question

[Porto_b]

У меня основная программа запускает программу_1 методом ShellExecute

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

Программа_1 в свою очередь должна открыть файл.txt. Но она его не открывает потому что непонятно как установить в методе рабочую папку правильно.

Comments

[Hemul GM]

А в предыдущем вопросе не мог спросить?

[Hemul GM]

Гугл совсем не работает?

Answer 1

[Hemul GM]

У shellexecute настолько параметров. Наведи на метод и посмотри. Надеюсь догадаешься, что Directory - это рабочий каталог

Comments

[Porto_b]

Не работает поэтому я спросил как должен работать.

[Hemul GM]

Porto_b, так покажи как ты пробовал каталог домашний указать? В коде выше нет даже намека

[Hemul GM]

Porto_b, самая первая ссылка в Гугле
platonov-andrei.narod.ru/Delphi/FuncAPI/ShellExecu...

[Porto_b]

Hemul GM, по разному пробовал, вот например

var spath : string;
begin
  Getdir(0,spath);

  ShellExecute(Handle, 'open', 'control\Project1.exe', nil, PChar(spath+'\control'), SW_HIDE);    //НЕ РАБОТАЕТ
  ShellExecute(0, nil, PChar(spath+'control\Project1.exe'), nil, PChar(spath+'\control'), SW_HIDE); //НЕ РАБОТАЕТ

[Porto_b]

Все работает. тема закрыта.

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