Ошибка вроде простая, но не знаю, как её исправить

[mobilitialex]

Ошибка: left side cannot be assigned to

HookHandle:=SetWindowsHookEx(WH_KEY BOARD_LL, @KeyboardProc, HInstance, 0)

И тут

HookHandle:=0;

library DisableHotKeys;
uses
  SysUtils, Windows, Messages;
type
  KBDLLHOOKSTRUCT = record
    vkCode: DWORD;
    scanCode: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo:Pointer;
  end;
  PKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;
const
  HookHandle: hHook = 0;
  LLKHF_ALTDOWN  = KF_ALTDOWN shr 8;
  WH_KEYBOARD_LL = 13;
function KeyboardProc(nCode: integer; wParam: longint; lParam: longint): integer; stdcall;
var
  KeyStroke: boolean;
  p: PKBDLLHOOKSTRUCT;
begin
  KeyStroke := false;
  if (nCode = HC_ACTION) then
  begin
      case wParam of
        WM_KEYDOWN, WM_SYSKEYDOWN,
        WM_KEYUP,    WM_SYSKEYUP:
        begin
          p := PKBDLLHOOKSTRUCT(lParam);
          KeyStroke :=
              ( (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) );
// для Cotrl+Alt+Delete, к сожалению, не работает.
 //             ( (p^.vkCode = VK_DELETE) and ( (p^.flags and LLKHF_ALTDOWN) <> 0 ) and
//              ( (GetKeyState(VK_CONTROL) and $8000) <> 0));
        end;
      end;//case
  end;
  if KeyStroke then
    result := 1
  else
    result := CallNextHookEx(0, nCode, wParam, lParam);
end;
// установка, отключение ловушки
procedure Hook(lRun:Boolean); export; stdcall;
begin
 if lRun then
  HookHandle:=SetWindowsHookEx(WH_KEYBOARD_LL, @KeyboardProc, HInstance, 0)
 else
  begin
   UnhookWindowsHookEx(HookHandle);
   HookHandle:=0;
  end;
end;
exports Hook;
begin
end.

implementation


procedure Hook(lRun:Boolean) stdcall; external 'DisableHotKeys' name 'Hook';

procedure TForm1.FormCreate(Sender: TObject);
begin
 Hook(True);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Hook(False);
end

[veniside]

и тут

const
  HookHandle: hHook = 0;

[mobilitialex]

А как быть в этом случае?

[mobilitialex]

На этом форуме все такие умные просто п…. а когда просишь помочь, проблема, мол, у меня так все молчат, только и могут что обсирать, или написать какой-то бред и молчат.

Народ выкладываю полностью рабочий код блокировки клавиш: Win, Esc, Ctrl, Tab, F4, все файлы рабочие, сохраненные на Delph 2010, запускайте файл: ProjectGroup3.groupproj и будет вам счастье.

Тему можно закрыть!