Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.07.20;
Скачать: CL | DM;

Вниз

Путь к своей DLL ...   Найти похожие ветки 

 
TUserClass   (2008-06-20 10:13) [0]

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

Как уже наверн всем известно :) - пишу тулбар для 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 ??

П.С.

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


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


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


GetModuleFileName(HInstance)


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


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


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

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

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


 
clickmaker ©   (2008-06-20 10:30) [3]

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


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


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


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

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


 
Anatoly Podgoretsky ©   (2008-06-20 11:46) [5]

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

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


 
TUserClass ©   (2008-06-20 11:50) [6]


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


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



Страницы: 1 вся ветка

Текущий архив: 2008.07.20;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.018 c
2-1214192033
NewSer
2008-06-23 07:33
2008.07.20
Как программно настроить связь TQRChart с БД? (ADO)


15-1212343059
Style
2008-06-01 21:57
2008.07.20
Помогите пожалуйста


8-1183456228
разведчик
2007-07-03 13:50
2008.07.20
Степень "похожести" двух аудио фрагментов


1-1195232021
wipr
2007-11-16 19:53
2008.07.20
Окно программы становится недоступным (программа не отвечает)


2-1213614223
Рустам1
2008-06-16 15:03
2008.07.20
delete from