[crashtuak]

Fus-Sheva, тут все зависит от того, каким образом нужно указать путь к exe - если можно указать вручную, то, например, можно создать ini файл с путями к exe, вручную его править, и грузить путь уже с ini. А можно просто по время исполнения программы запросит ввод путей к exe. Но если нужно найти требуемые exe автоматически, где бы они не находились, то тут мороки уже намного больше. Опишите более подробно задачу и требуемые результаты.

[Fus-Sheva]

К примеру, человек устанавливает программу "PROGA". Инсталятор ложит ее по умолчанию в папку с таким путем:
C:\Program Files\PROGA

Но человеку хочется установить эту программу в папку с таким путем D:\Games\PROGA (инсталятор позволяет изменить папку назначения). А вот в папке "PROGA" есть еще две папки, скажем Part1 и Part2

При запуске программы из папки "PROGA" Start.exe открывается форма на которой установлено две кнопки Part1 и Part1 при нажатии на одну из них должен запускаться исполняемый файл либо из папки Part1 (Start1.exe) либо из папки Part2 (Start2.exe)

Так понятней?

[Admiral]

Fus-Sheva можно определить папку приложения с помощью функции GetModuleFileName(). А к полученному пути поочередно прибавить (например с помощью функций работы со строками) требуемые относительные, Папка1\Start1.exe и Папка2\Start2.exe.

[Fus-Sheva]

Спасибо попробуем.

[Fus-Sheva]

Сделал следующим образом.
Пример:
Путь к папке с установленной программой: C:\Program Files\PROGA
Пути к файлам *.exe
C:\Program Files\PROGA\Start.exe
C:\Program Files\PROGA\Part1\Start1.exe
C:\Program Files\PROGA\Part2\Start2.exe

Потом примерно так:

Код:

 //объявляем строковые переменные
 Var Path: String;   
 Var Part1: String;  
 Var Part2: String; 
 
//Действие по "Кнопка-1"
 procedure TForm1.Button1Click(Sender: TObject);  
begin
 Path:=Application.ExeName; // получаем путь к Start.exe
 Path:=ExtractFileDir(Path);  // обрезаем название и расширение (Start.exe) 
 Part1:='\Part1\Start1.exe'; // присваиваем (прописываем) путь к Start1.exe в первой папке Part1
ShellExecute(handle,'open', PChar(Path + Part1), nil,nil,SW_SHOW);  //  к обрезанному пути Path дописываем путь к первой папке (Part1) и файлу Strat1.exe
end;

// Тоже самое делаем с "Кнопка-2" 
 procedure TForm1.Button2Click(Sender: TObject); 
begin
 Path:=Application.ExeName; 
 Path:=ExtractFileDir(Path);  
 Part2:='\Part2\Start2.exe';
ShellExecute(handle,'open', PChar(Path + Part2), nil,nil,SW_SHOW);
end;