Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Получить имя ЕХЕ, из ActiveX Dll 
:(
    Опции темы
Feliastre
Дата 13.7.2005, 09:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 48
Регистрация: 17.11.2004

Репутация: нет
Всего: нет
Ситуация такая.
Есть програмуля, которая использует ActiveX Dll. Как внутри этой библиотеки получить имя ИСПОЛНЯЕМОГО файла. Поясняю.

Dll может лежать в другом каталоге, а App.Path выдаёт путь до Dll.
PM MAIL ICQ   Вверх
__Sergey__
Дата 13.7.2005, 10:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 67
Регистрация: 21.1.2005

Репутация: 4
Всего: 4
Странно smile , длл находится в адресном пространстве проги и вроде
App.Path должна выдавать именно путь к проге.
Может это в отладочном режиме App.Path дает путь к длл?
Пробовать лень smile smile
Добавлено @ 10:41
Или используй АПИ ф-цию GetModuleFileName smile
PM MAIL   Вверх
Feliastre
Дата 13.7.2005, 10:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 48
Регистрация: 17.11.2004

Репутация: нет
Всего: нет
__Sergey__ Даже не в отладочном режиме она выдаёт путь до библиотеки. А вот насчёт GetModuleFileName спс... попробую...

Но вопрос остаёцца открытым

--------------------------------
А GetModuleFileName требует Хандл ту модуль. Это откуда берёццо?!
smile

Это сообщение отредактировал(а) Feliastre - 13.7.2005, 11:01
PM MAIL ICQ   Вверх
__Sergey__
Дата 13.7.2005, 11:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 67
Регистрация: 21.1.2005

Репутация: 4
Всего: 4
Сделай проперти в длл и передай туда App.hInstance из проги.
Добавлено @ 11:15
Или опять же GetModuleHandle(vbNullString) если используеш GetModuleFileName.
Добавлено @ 11:18
Я так понял надо пример использования smile , вот
Код

      Private Declare Function GetModuleFileName Lib "kernel32" _
         Alias "GetModuleFileNameA" _
         (ByVal hModule As Long, _
         ByVal lpFileName As String, _
         ByVal nSize As Long) As Long

         Dim strFileName As String
         Dim lngCount As Long

         strFileName = String(255, 0)
         lngCount = GetModuleFileName(App.hInstance, strFileName, 255)
         strFileName = Left(strFileName, lngCount)
PM MAIL   Вверх
Feliastre
Дата 13.7.2005, 11:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 48
Регистрация: 17.11.2004

Репутация: нет
Всего: нет
__Sergey__ Приведённый тобой код даёт имя ДЛЛ.

А передать из Экзе в ДЛЛ я не могу. Потому что Экзе - не мой.

Это сообщение отредактировал(а) Feliastre - 13.7.2005, 11:29
PM MAIL ICQ   Вверх
__Sergey__
Дата 13.7.2005, 12:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 67
Регистрация: 21.1.2005

Репутация: 4
Всего: 4
Вместо App.hInstance использовал GetModuleHandle(vbNullString)?
Добавлено @ 12:14
Или так попробуй GetModuleHandle("ИмяПроги.exe").
А интересно, как не твоя прога использует твою длл (если это не хук smile )???!!!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0793 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.