LoadLibrary не возвращает Handle

[Unit]

Dll лежит в одной папке с исполняемым файлом программы.
LoadLibrary при вызове в программе, постоянно возвращает 0
В Delphi всё работает, и VTFLib_Init возвращает True.
Пробовал добавлять {$mode DELPHI}{$H+} , положительного результата не дало.

ОС: Win 7
Lazarus 0.9.30.4 r35940 FPC 2.6.0 x86_64-win64-win32/win64

Код Dll:

Код: Выделить всё

library Core;

function CR_GetInteger: Integer; stdcall; export;
begin
  Result:= 2013;
end;

{ Export }
exports
  CR_GetInteger name 'CR_GetInteger';

begin

end.


В приложении:

Код: Выделить всё

uses dynlibs;

Код: Выделить всё

function VTFLib_Init: Boolean;
begin
  Result := False;
  if LoadLibrary('Core.dll') <> 0 then
    Result := True;
end;


[B4rr4cuda]

Попробуйте указать полный путь к библиотеке.

[Unit]

Всё так же.. А вот библиотека user32.dll странным образом отдаёт Handle.

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, dynlibs;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption :=  'Handle: '              + IntToStr( LoadLibrary('Core.dll') );
  Label2.Caption :=  'Handle(Полный путь): ' + IntToStr( LoadLibrary('D:\App\Core.dll') );
  Label3.Caption :=  'Handle(user32.dll): '  + IntToStr( LoadLibrary('user32.dll') );
end;

end.

[Юра]

Попробуй почитать текст ошибки после неудачного вызова LoadLibrary.
SysErrorMessage(GetLastError)

[Unit]

Понял в чём проблема была, не удаётся подгрузить Dll x86.
А в Delphi можно.

Причём библиотека была скомпилирована в Delphi. После компиляции в Lazarus всё заработало.

[Юра]

Гы, действительно 64-бит экзешник, скомпиленый Лазарусом, никак не сможет загруизить 32-бит ДЛЛ