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

Вниз

Определить путь к DLL из EXE   Найти похожие ветки 

 
Ольга ©   (2011-03-23 15:48) [0]

Есть DLL, которая является COM-объектом. На компе у пользователя этих DLL разных версий расплодилось в N директориях. Я хочу при загрузке своей программы определить какая DLL была зарегистрирована. Пытаюсь прочитать путь из реестра, но, видимо, криво написанная функция выдает пусто. Текст функции:

function GetDLLPath(NameDLL: string): string;
var
  MyReg : TRegistry;
  ST: string;
  ListGUID: TStringList;
  i: Integer;
begin
 ListGUID:=TStringList.Create;
 MyReg := TRegistry.Create;
 MyReg.RootKey:=HKEY_CLASSES_ROOT;
 MyReg.OpenKey("CLSID", false);
 MyReg.GetKeyNames(ListGUID);
 MyReg.CloseKey;
 for i:=0 to ListGUID.Count-1 do
 if MyReg.OpenKey("\CLSID\"+ListGUID[i]+"\InprocServer32",FALSE) then
 begin
   if MyReg.GetDataType("InprocServer32")=rdString then
   begin
     ST:=MyReg.ReadString("InprocServer32");
     if POS(NameDLL,ST)>0 then
        Result:=ST;
   end;
 end;
 MyReg.Free;
 ListGUID.Free;
end;


 
Rouse_ ©   (2011-03-23 16:45) [1]

GetModuleHandle + GetModuleFileName


 
Игорь Шевченко ©   (2011-03-23 17:25) [2]


>  криво написанная функция выдает пусто


криво написанную функцию выпрямляют путем отладки


> Я хочу при загрузке своей программы определить какая DLL
> была зарегистрирована.


а что значит в данном контексте "какая" ? В каком каталоге ?

Допустим, C:\Documents and Settings\Foo\Рабочий стол


 
Ольга ©   (2011-03-24 16:50) [3]


> GetModuleHandle + GetModuleFileName

А ларчик просто открывался :)
Спасибо.


 
Ольга ©   (2011-03-24 16:53) [4]


> криво написанную функцию выпрямляют путем отладки

Согласна.
Но иногда, когда несколько часов тупо бьешься не туда, выпрямлялка перестает работать :)



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

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

Наверх




Память: 0.47 MB
Время: 0.269 c
2-1347120747
123456789igor
2012-09-08 20:12
2013.03.22
excel в delphi цикл по строкам


2-1339516288
простофан
2012-06-12 19:51
2013.03.22
запись состояния


2-1331960369
теркин
2012-03-17 08:59
2013.03.22
Взаимодействие модулей программы


2-1335292096
artemchik
2012-04-24 22:28
2013.03.22
настройка Delphi


2-1340107316
sas9568635
2012-06-19 16:01
2013.03.22
Написать процедуру задержки в эмуляторе процессора КР580