Определение функции в DLL

Материал из DRKB

Определение функции в DLL[править | править код]

Данная функция определяет присутствие нужной функции в библиотеке (dll) и, в случае нахождения искомой функции возвращает 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;



Source: Взято из http://forum.sources.ru
ID: 01986