Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Путь к своей DLL ...


TUserClass ©   (2008-06-20 10:13:00) 

Всем привет, всех с пятницей...

Как уже наверн всем известно :) - пишу тулбар для ie.

И возникла проблема получения виректории где лежит моя DLL ... Ибо вместе с ней идет chm-файл справки, и при инсталяции эта справка попадает в туже директорию, что и dll-ка. и хотелось бы ее shellexecte'ом запускать, но как я узнаю, где она лежит? Раньше всегда делал так:

var
 ExDir : string; // Директория в которой лежит мой EXE

...

 ExDir := Application.ExeName;
 While (ExDir[Length (ExDir)] <> '\') do begin
   Delete (ExDir, Length (ExDir), 1);
 end;


Но теперь, естественно, Application.ExeName возвращает путь к IE. Как бы мне найти путь к моей DLL ??

П.С.

Модераторы, не посчитайте за офф-топ, но хотел бы поблагодарить Поросенка Винни-Пуха, зато что помог решить проблему с классами в моем предыдущем вопросе - весьма простое и гениальное решение он мне дал..:)


TUserClass   (2008-06-20 11:50:00) [1]


> Anatoly Podgoretsky ©   (20.06.08 11:46) [5]


Да я сам не понял зачем. Но раз и так работает, то ОК ... Просто сначал планировалось при отсутствии файла писать мессадж, мол файл [путь + 'Help.chm'] не найден. А писать в сообщении файл C:\PROGRA~1\Borland\Delphi\Projects\IEBar\help.chm' не найденкак т не красиво - но позже я отказался от этой идеи с сообщением :)


Anatoly Podgoretsky   (2008-06-20 11:46:00) [2]

> TUserClass  (20.06.2008 10:28:02)  [2]

Зачем тебе в нормальном виде для ShellExecute?


TUserClass   (2008-06-20 10:37:00) [3]


> clickmaker ©   (20.06.08 10:30) [3]


ААААААААААА.....оно и так работает. Всем тысяча благодарностей.

For I := 0 to 999 do begin
 ShowMessage ('Благодарность!');
end;


clickmaker   (2008-06-20 10:30:00) [4]

а какая разница?
ну вызови GetLongPathName, если уж так хочется


TUserClass   (2008-06-20 10:28:00) [5]


> Игорь Шевченко ©   (20.06.08 10:16) [1]


ЭЭЭЭЭЭЭЭЭЭ....есть небольшая проблемка.... GetModuleFileName(HInstance)возвращает мне вот такую бяку:

C:\PROGRA~1\Borland\Delphi\Projects\IEBar\ProjectNam~1.DLL

Мне бы в нормальном/полном виде как-нить :)


Игорь Шевченко   (2008-06-20 10:16:00) [6]


> Как бы мне найти путь к моей DLL ??


GetModuleFileName(HInstance)


Наверх

Титульная страница Поиск, карта сайта Написать письмо