Нумерация клавиш

[Vladya]

Кто нибудь может подсказать где взять (таблицу что ли), что бы там были описаны номера клавиш, тоесть для использовании в проге мне нужно написать что бы при нажатии на какую нить клавишу выполнялось действие, я знаю номера клавиш Delete и Enter (46 и 13), а остальные нет. Может кто нить подкинуть такую инфу?

[alex_fcsm]

таблица ASCII
http://ascii.org.ru/ascii.pdf

[DeKot]

Открой приложение во вложении.Жми клаву и записывай коды.

[Vladya]

спасибо, очень хорошая программа.

[Somebody]

Вот мой вариант с WinApi:

program KeyCode;
uses
  Windows, Messages;

var
  WindowClass: WNDCLASS;
  Mess: MSG;

function MainWndProc(hWnd: HWND; Msg: Cardinal;
  wParam, lParam: Integer): Integer; stdcall;
var
  Code, ScanCode, VirtKey: String;
begin
  Result := 0;
  case Msg of
    WM_CLOSE: DestroyWindow(hWnd);
    WM_DESTROY: PostQuitMessage(0);
    WM_KEYDOWN, WM_SYSKEYDOWN:
    begin
      Str(Lo(HiWord(lParam)), ScanCode);
      Str(wParam, VirtKey);
      Code := '';
      if Msg = WM_SYSKEYDOWN then
        Code:='(SYS) ';
      Code := Code + 'Scan ' + ScanCode;
      if lParam and $01000000 <> 0 then
        Code := Code + ' EXT';
      Code := Code + ' Virtual ' + VirtKey;
      MessageBox(hWnd, PChar(Code), 'Code', MB_OK);
    end;
    else
      Result := DefWindowProc(hWnd, Msg, wParam, lParam);
  end;
end;

begin
with WindowClass do
begin
  lpfnWndProc := @MainWndProc;
  hInstance := SysInit.hInstance;
  hIcon := LoadIcon(0, IDI_EXCLAMATION);
  hCursor := LoadCursor(0, IDC_ARROW);
  hbrBackground := 16;
  lpszClassName := ':-)';
end;
RegisterClass(WindowClass);
CreateWindowEx(0, ':-)', 'KeyCode', WS_VISIBLE or WS_SYSMENU,
  100, 100, 100, 100, 0, 0, hInstance, nil);
while GetMessage(Mess,0,0,0) do
  DispatchMessage(Mess);
halt(Mess.wParam);
end.