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

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

Регистрация dll [D6, Win2k]

S ©   (2002-10-18 09:07:00) 

Подскажите как программно зарегистрировать dll? И определить зарегистрировалась ли она?

---

han_malign   (2002-10-18 11:02:00) [1]

примерно так(работоспособность не проверял)
sCLSID - CLSID сервера
function ServerRegistered(sCLSID: TGUID; aFullDLLPath: string): boolean;
var _h: HKEY;
_s,sKey: string;
chValue: array[0..MAX_PATH]of char;
dwType,dwSize: dword;
begin
sKey:="CLSID\"+GuidToString(sCLSID)+"\InprocServer32";
Result:=(RegOpenKeyEx(HKEY_CLASSES_ROOT,PChar(sKey),0,KEY_READ,_h)
=ERROR_SUCCESS)and
((_h<>0)and(_h<>INVALID_HANDLE_VALUE));
//по идее достаточно - ключ есть иладно
if(not Result)then exit;
dwType:=REG_SZ; dwSize:=sizeof(chValue);
//Значение (default), путь к DLL
Result:=(RegQueryValueEx(_h,"",nil,@dwType,PByte(@chValue),@dwSize)
=ERROR_SUCCESS)and(dwSize<>0);
if(Result)then begin
SetString(_s,chValue,dwSize);
Result:=(UpperCase(aFullDLLPath)=UpperCase(_s));
if(Result)then begin
dwType:=REG_SZ; dwSize:=sizeof(chValue);
//Значение ThreadingModel, обычно "Apartment"
Result:=(RegQueryValueEx(_h,"ThreadingModel",nil,@dwType,PByte(@chValue),@dwSize)
=ERROR_SUCCESS)and(dwSize<>0);
if(not Result)then exit;
SetString(_s,chValue,dwSize);
Result:=_s="Apartment";
end;
end;
RegCloseKey(_h);
end;


---

Digitman   (2002-10-18 10:10:00) [2]

>S

Пример есть в Делфи-демо-проекте BSS (scktsrvr.dpr)

---

han_malign   (2002-10-18 09:57:00) [3]

regsvr - просто вызывает функцию DLL
STDAPI DllRegisterServer(void)
которая прописывает в реестр все необходимые ключи(собственно регистрируется)
З.Ы. Соответственно STDAPI DllUnregisterServer(void)

---

S   (2002-10-18 09:53:00) [4]

То: Digitman
Если вас не затруднит не моглибы Вы написать часть кода? По поводу поиска в реестре.

---

Digitman   (2002-10-18 09:41:00) [5]

>S


> Можно зарегистрировать путем виндов (regsvr *.dll), но это
> не красиво


Почему некрасиво ? Если это можно сделать не только "вручную", но и программно ?
regsvr32.exe - обычное приложение, его можно программно стартовать любым удобным способом, передав в кач-ве параметра имя регистрируемой ActiveX DLL


> нельзя проверить если она уже была инсталирована в систему


Почему же нельзя ? Достаточно просканировать реестр на предмет наличия записей о регистрации интересующей фабрики класса (при нахождении заодно и сравнить имя/путь файла, фигурирующего в default-параметре ключа InProcServer)

---

S   (2002-10-18 09:31:00) [6]

Это arctivX сервер автоматизации. Можно зарегистрировать путем виндов (regsvr *.dll), но это не красиво и потом нельзя проверить если она уже была инсталирована в систему.

---

Poirot   (2002-10-18 09:23:00) [7]

А что из себя у тебя представляет длл... если просто набор функций - регить необязательно, ну типпа рег - это запись её как шаред длл и инкримент счётчика, а если это COM тоды RTFM

---

Наверх