Код импорта c BorDebug.dll С++ переписать на Delphi

Eсть BorDebug.dll и есть unit к этой dll на С++ как переписать его под Delphi

сколько я не пытался загрузить процедуры в delphi ничего не выходит GetProcAddress всегда = NIL что я не так делаю.

procedure BorDebugLoad;
var P:Pointer;
 procedure Loc(S:LPCWSTR);
 begin
   P:= GetProcAddress(BorDebugHandle, S);
   if P<>nil then
   P:=P; // всегда NIL NULL
 end;
begin
  P:=nil;
  BorDebugHandle := SafeLoadLibrary(bordebug_dllname);

  if BorDebugHandle <> 0 then
  begin
    Loc('BorDebugRegisterFile');
    Loc('BorDebugUnregisterFile');
    Loc('BorDebugSubSectionDirOffset');
    Loc('BorDebugSubSectionCount');
    Loc('BorDebugSubSection');
    Loc('BorDebugModule');
    Loc('BorDebugModuleSegment');
    Loc('BorDebugStartSymbols');
    Loc('BorDebugNextSymbol');
    Loc('BorDebugDumpBrowserInfo');
    Loc('BorDebugSymbolCOMPILE');
    Loc('BorDebugSymbolREGISTER');
    Loc('BorDebugSymbolCONST');
    Loc('BorDebugSymbolUDT');

  end;
end;

Ответы (0 шт):