Developing.ru

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

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

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

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

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

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

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

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

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

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

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

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

и все.