Регистрация dll

← →
S (2002-10-18 09:07) [0]

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

← →
Poirot (2002-10-18 09:23) [1]

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

← →
S (2002-10-18 09:31) [2]

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

← →
Digitman (2002-10-18 09:41) [3]

>S

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

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

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

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

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

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

← →
han_malign (2002-10-18 09:57) [5]

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

← →
Digitman (2002-10-18 10:10) [6]

>S

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

← →
han_malign (2002-10-18 11:02) [7]

примерно так(работоспособность не проверял)
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;

Регистрация dll Найти похожие ветки