скан-код клавиши

[CraZZZy-GameRRR]

Определяю скан-код нажатой клавиши этой процедурой. Получаю ошибку.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
  Scan: Byte;

begin
  asm
    mov ah,10h
    int 16h
    mov Scan,ah
  end;
  Form1.Caption := IntToStr(Scan);
end;

[Terran]

Возможно, прерывание Int 16h не поддерживается данной версией BIOS, поэтому ошибка.

[MalCer]

Прерывания свято хранятся windows, а вы пытаетесь их использовать. Такое катит только под DOS!!! Terran, все известные биос держат это прерывание.

[CraZZZy-GameRRR]

Так как делать-то?

[W0LF]

Гляньте исходник, там реализовано то что вам надо

[CraZZZy-GameRRR]

Ого! Мудрёно очень. Не поможете разобраться?

[W0LF]

Так выкидуйте с исходника всё что вам ненужно и получите свой скан-код

Вот пожалуйста...

[CraZZZy-GameRRR]

Спасибо! А почему он клавишу Alt игнорирует?

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

это считается системной клавишей, поидее при получении сообщения в параметре передается её состояние(или другое сообщение при нажатом альте, не помню)

[CraZZZy-GameRRR]

Прочитал статью про хуки - немного понял. Сделал так:

function LowLevelKeyboardProc(nCode: integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  pkb: aHookKEYCODE;
begin
  pkb := aHookKEYCODE(lParam);
  if wParam = WM_KEYDOWN then
    begin
    Form1.Edit1.Text:=IntToStr(pkb.vkCode);
    Form1.Edit2.Text:=IntToStr(pkb.scanCode);
    end
  else if wParam = WM_SYSKEYDOWN then
    begin
    Form1.Edit1.Text:=IntToStr(pkb.vkCode);
    Form1.Edit2.Text:=IntToStr(pkb.scanCode);
    end;

  Result := - 1;
end;

Теперь и alt определяет!