Error: regular procedure and method pointer

[noname_06]

Использую D7. Есть код, перевод с С++
Если добавляю его в новый проект (temp-rabotaet.rar в аттаче), все компилируется и работает. Если добавляю в свое приложение - получаю ошибку компиляции.
*О необходимости вызова функции в callback как static; читал, но D7 не поддерживает его (и работает без этого), в D XE3: [dcc32 Error] Unit1.pas(40): E2376 STATIC can only be used on non-virtual class methods.

program DisableLowLevelKeys;

uses
 Windows, Messages;

const
 LLKHF_ALTDOWN  = KF_ALTDOWN shr 8;
 WH_KEYBOARD_LL = 13;

type

 TKBDLLHOOKSTRUCT = record
   vkCode: DWORD;
   scanCode: DWORD;
   flags: DWORD;
   time: DWORD;
   dwExtraInfo: DWORD;
 end;
 PKBDLLHOOKSTRUCT = ^TKBDLLHOOKSTRUCT;

var
 hhkLowLevelKybd: HHOOK;

//------------------------------------------------------------------------------

function LowLevelKeyboardProc(nCode: integer;  wParam: WPARAM;  lParam: LPARAM): LRESULT; stdcall;
var
 fEatKeystroke: boolean;
 p: PKBDLLHOOKSTRUCT;
begin
 fEatKeystroke := false;
 if nCode = HC_ACTION then
   begin
     case wParam of
       WM_KEYDOWN,
       WM_SYSKEYDOWN,
       WM_KEYUP,
       WM_SYSKEYUP:
         begin
           p := PKBDLLHOOKSTRUCT(lParam);
           fEatKeystroke := ((p^.vkCode = VK_LWIN) or (p^.vkCode = VK_RWIN)) or
                            ((p^.vkCode = VK_TAB) and ((p^.flags and LLKHF_ALTDOWN) <> 0)) or
                            ((p^.vkCode = VK_ESCAPE) and ((p^.flags and LLKHF_ALTDOWN) <> 0)) or
                            ((p^.vkCode = VK_ESCAPE) and ((GetKeyState(VK_CONTROL) and $8000) <> 0)) or
                            ((p^.vkCode = VK_F4) and ((p^.flags and LLKHF_ALTDOWN) <> 0));
         end;
     end;
   end;
 if fEatKeystroke then
   result := 1
 else
   result :=  CallNextHookEx(0, nCode, wParam, lParam);
end;

//------------------------------------------------------------------------------

begin
 // Install the low-level keyboard & mouse hooks
 hhkLowLevelKybd := SetWindowsHookEx(WH_KEYBOARD_LL, LowLevelKeyboardProc, hInstance, 0);

 // Keep this app running until we're told to stop
 ShowMessage('Work');

 // Remove hooks
 UnhookWindowsHookEx(hhkLowLevelKybd);
end.

[Stilet]

hhkLowLevelKybd := SetWindowsHookEx(WH_KEYBOARD_LL, @LowLevelKeyboardProc, hInstance, 0);

[noname_06]

@LowLevelKeyboardProc пробовал, требует передать функции параметры, а что ей передавать то и не в курсе. Отдельно создавать функцию и отлавливать WPARAM и LPARAM? Непонятно, почему в пустом проекте работает, а в других не хочет.

[iworm2009]

program DisableLowLevelKeys;

uses
 winapi.Windows, vcl.dialogs, Messages;

const
 LLKHF_ALTDOWN  = KF_ALTDOWN shr 8;
 WH_KEYBOARD_LL = 13;

type

 TKBDLLHOOKSTRUCT = record
   vkCode: DWORD;
   scanCode: DWORD;
   flags: DWORD;
   time: DWORD;
   dwExtraInfo: DWORD;
 end;
 PKBDLLHOOKSTRUCT = ^TKBDLLHOOKSTRUCT;

var
 hhkLowLevelKybd: HHOOK;

//------------------------------------------------------------------------------

function LowLevelKeyboardProc(nCode: integer;  wParam: WPARAM;  lParam: LPARAM): LRESULT; stdcall;
var
 fEatKeystroke: boolean;
 p: PKBDLLHOOKSTRUCT;
begin
 fEatKeystroke := false;
 if nCode = HC_ACTION then
   begin
     case wParam of
       WM_KEYDOWN,
       WM_SYSKEYDOWN,
       WM_KEYUP,
       WM_SYSKEYUP:
         begin
           p := PKBDLLHOOKSTRUCT(lParam);
           fEatKeystroke := ((p^.vkCode = VK_LWIN) or (p^.vkCode = VK_RWIN)) or
                            ((p^.vkCode = VK_TAB) and ((p^.flags and LLKHF_ALTDOWN) <> 0)) or
                            ((p^.vkCode = VK_ESCAPE) and ((p^.flags and LLKHF_ALTDOWN) <> 0)) or
                            ((p^.vkCode = VK_ESCAPE) and ((GetKeyState(VK_CONTROL) and $8000) <> 0)) or
                            ((p^.vkCode = VK_F4) and ((p^.flags and LLKHF_ALTDOWN) <> 0));
         end;
     end;
   end;
 if fEatKeystroke then
   result := 1
 else
   result :=  CallNextHookEx(0, nCode, wParam, lParam);
end;

//------------------------------------------------------------------------------

begin
 // Install the low-level keyboard & mouse hooks
 hhkLowLevelKybd := SetWindowsHookEx(WH_KEYBOARD_LL, @LowLevelKeyboardProc, hInstance, 0);

 // Keep this app running until we're told to stop
 ShowMessage('Work');

 // Remove hooks
 UnhookWindowsHookEx(hhkLowLevelKybd);
end.

не вдумываясь получил на выхлоп ShowMessage('Work') .. у меня хе3

[iworm2009]

если пишите в юните то ничего не меняется в порядке использования. объявлять в секции private ее не надо.

[noname_06]

Сообщение от iworm2009

выхлоп ShowMessage('Work')

Любопытненько, как это Delphi не опознал родную до мозга костей процедуру

Сообщение от iworm2009

если пишите в юните то ничего не меняется в порядке использования.

В теории - да, на практике - как видите влияет.

Сообщение от iworm2009

объявлять в секции private ее не надо

Пардон, а где тогда? Объявлять как public, или, может, как метод от TForm1?

[iworm2009]

1. выхлоп - это значит showmessage произошел
2. на практике ничего не поменял
3 в вашем нерабочем примере убрал из private, и поднял тело функции выше ее первого использования дописав stdcall;
а и естесственно не LowLevelKeyboardProc а @LowLevelKeyboardProc

ps. у вас есть рабочий пример, разве не видно разницы

[iworm2009]

если вам все таки оч надо функцию привязать к форме то вызов как то так

hhkLowLevelKybd:= SetWindowsHookEx(WH_KEYBOARD_LL, @TForm1.LowLevelKeyboardProc, hInstance, 0);

[Пепел Феникса]

Сообщение от iworm2009

если вам все таки оч надо функцию привязать к форме то вызов как то так

hhkLowLevelKybd:= SetWindowsHookEx(WH_KEYBOARD_LL, @TForm1.LowLevelKeyboardProc, hInstance, 0);

нельзя так, вызов метода отличается от вызова процедуры, ибо в первый передается Self

[phomm]

Как уже сказали, выкинуть из методов формы вообще (ни private, ни public, просто в модуле положить, Вы ведь даже не обращаетесь к членам формы в функции), в старых дельфи нельзя использовать указатели на методы класса для передачи в винапи. После переброски функции в модуль использовать с @ или функцией Addr
Теория http://www.gunsmoker.ru/2008/12/static-delphi.html