Карта сайтаСсылкиКонтакты

Поиск функций в DLL

PDF Печать
Статьи
True если найдена, или False, если не найдена.


function FuncAvail (VLibraryname, VFunctionname: string;
        var VPointer: pointer): boolean; 
var 
   Vlib: tHandle; 
begin 
   Result := false; 
   VPointer := NIL; 
   if LoadLibrary(PChar(VLibraryname)) = 0 then 
       exit; 
   VPointer := GetModuleHandle(PChar(VLibraryname)); 
   if Vlib <> 0 then 
   begin 
     VPointer := GetProcAddress(Vlib, PChar(VFunctionname)); 
     if VPointer <> NIL then 
       Result := true; 
   end; 
end; 

По материалам http://delphi.3000.com


 

Добавить комментарий


Защитный код
Обновить