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

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

Как определить путь к dll библиотеки com сервера

Priest ©   (2007-01-09 14:39:00) 

Ком сервер находится в библиотеки com.dll и лежит в каталоге C:\com\. Как внутри сервера получить этот путь? Application.ExeName возвращает путь к dllhosx.exe

---

Priest   (2007-01-09 15:04:00) [1]

сделал так

function ExtractDllFilePath: string;
 var
   DllFileName: array[0..MAX_PATH] of char;
   i: Integer;
 begin
   Result := '';
   FillChar(DllFileName, sizeof(DllFileName), #0);
   GetModuleFileName(hInstance, DllFileName, sizeof(DllFileName));
   Result := '';
   for i := 0 to MAX_PATH do
     if DllFileName[i] = #0 then break
     else
       Result := Result + DllFileName[i];
   Result := ExtractFilePath(Result);
 end;

---

umbra   (2007-01-09 14:52:00) [2]

посмотреть в реестре. HKCR\CLSID\{GUID вашего сервера}\InprocServer32\{по умолчанию}

---

Наверх