Путь к папке

[C_O_D_E]

Как получить из программы название диска, на котором расположена папка с юнитами? а лучше весь путь до юнитов.

[MOTOCoder]

То есть получить из программы путь к папке с исходниками модулей?

[C_O_D_E]

ну скажем, в разархивируем мы из EXE-шника файлы и каталоги, папку с юнитами куда-нить в D:\1 как передать этот путь в программу, всем параметрам использующим папки с данными(папки с данными находяться на одной ветке с папкой с модулями)

[MOTOCoder]

Все равно не совсем понятно - нужно при установке программы передать ей путь к папке с данными?

[BHy4ok]

Если честно вопрос тоже не совсем понятен. Как я понял надо узнать путь где находится сама программа ?
[syntax='Delphi']
ShowMessage(ExtractFilePath(Application.ExeName));
[/syntax]

[C_O_D_E]

Программе нужно вычислить путь куда ее занесли, и передать этот путь дополнительному материалу, вызываемому через ShellExecute

[MOTOCoder]

Путь к программе определяется так:
[syntax='Delphi']
ExtractFilePath(Application.ExeName);
[/syntax]

[Игорь Акопян]

чёто мы от темы отдалились, ща перенесу в отдельную... (название дал исходя из первого поста)
Пожелание на будущее: Определитесь поточнее с вопросом - получите более точный ответ

[C_O_D_E]

2 Игорь Акопян прошу прощения. С вопросом я определилась. с формулировкой проблемы!

2 MOTOCoder ExtractFilePath(Application.ExeName) возвращает значение STRING, а ShellExecute, когда передаешь ей путь, требует PAlignChar. {помоему так, хотя могла ошибиться в напмсании типа}
и как мне решить данный вопрос?

[MOTOCoder]

2 MOTOCoder ExtractFilePath(Application.ExeName) возвращает значение STRING, а ShellExecute, когда передаешь ей путь, требует PAlignChar. {помоему так, хотя могла ошибиться в напмсании типа}
и как мне решить данный вопрос?

Автоматическим приведением типов, т.е. просто пишете
[syntax='Delphi']
ShellExecute(PChar(ExtractFilePath(Application.ExeName)));
[/syntax]

и все.