Вопрос к спецам по WinAPI

[slyubez]

Приветствую уважаемых коллег.

Прошу подсказать, чем можно в FPC заменить строчку, которая компилируется в Delphi:

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

@HtmlHelpAProc:=GetProcAddress(HtmlHelpModule, 'HtmlHelpA'); 

Ругается таким сообщением:

helpunit.pas(432,7) Error: Can't assign values to an address

Объявление типа:

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

THtmlHelpAProc=function(hWndCaller: HWND; pszFile: PAnsiChar; 
 uCommand: UINT; dwData: DWORD): HWnd; stdcall;

[hinst]

не надо @ в Mode-ObjFPC ;
либо вставить {$mode Delphi} в начале исходного кода модуля

[kazalex]

slyubez
Либо включи режим совместимости с Delphi {$mode delphi}, либо перепиши код:

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

HtmlHelpAProc:=THtmlHelpAProc(GetProcAddress(HtmlHelpModule, 'HtmlHelpA')); 

[slyubez]

Коллеги, спасибо. Код скомпилировался, но, увы, пока не заработал. Я решил остаться в режиме FPC и заменил код, как показано выше, но функция WinAPI работать не хочет, хотя отладчик показывает, что параметры передаются верно. Сообщений не выдается. Попробую сейчас отловить код ошибки.

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

function _HtmlHelpSetup : Boolean;
begin
  if (HtmlHelpModule = 0)
   then begin
            HtmlHelpModule := LoadLibrary('hhctrl.ocx');
            if (HtmlHelpModule <> 0)
            then HtmlHelpAProc:=THtmlHelpAProc(GetProcAddress(HtmlHelpModule, 'HtmlHelpA'));           
          end;
  Result:=Assigned(HtmlHelpAProc);
end;

function HtmlHelpA(hWndCaller: HWND; pszFile: PAnsiChar; uCommand: UINT;
                   dwData: DWORD): HWND;
begin
  Result := 0;
  if _HtmlHelpSetup
   then Result := HtmlHelpAProc(hWndCaller, pszFile, uCommand, dwData);
end;

Добавлено спустя 54 минуты 12 секунд:
Не заметил косяк в имени файла. Теперь всё завелось. Ещё раз спасибо за подсказки.