SASGIS

  procedure LoadProc(var proc; const procName: string);

  begin

    pointer(proc) := GetProcAddress(DllHandle, pchar(procName));

    if pointer(proc) = nil then begin

      raise EBerkeleyDBExeption.Create(

        'Function ''' + procName + ''' not found in ' + DllName

      );

    end;

  end;

function GetProcAddress(hModule: HMODULE; lpProcName: LPCSTR): FARPROC; external kernel32 name 'GetProcAddress';

function GetProcAddress(hModule: HMODULE; lpProcName: LPCWSTR): FARPROC;

begin

  if ULONG_PTR(lpProcName) shr 16 = 0 then // IS_INTRESOURCE

    Result := GetProcAddress(hModule, LPCSTR(lpProcName))

  else

    Result := GetProcAddress(hModule, LPCSTR(AnsiString(lpProcName)));

end;