VPF::GetKeyNameText возвращает что-то неправильное

urix

Дата 6.3.2006, 18:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 26.12.2005

Репутация: 1
Всего: 1

Код


function GetSpecialName(AScanCode: cardinal): String;
var
  KeyName: array[0..255] of Char;
begin
  Result := '';
  if AScanCode <> 0 then begin
    GetKeyNameText(AScanCode, KeyName, SizeOf(KeyName));
    result := KeyName;
  end;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Label1.caption:='KeyName "'+GetSpecialName(Key shl 16)+'"';
end;

Запускаю, жму, например английскую "E", программа пишет "Pause". Жму "9" - пишет "Space", и так далее. Подскажите, где может быть ошибка
Добавлено @ 19:04
а для половины клавишь вообще возвращается пустая строка, и при этом SysErrorMessage(GetLastError()) говорит, что всё OK.

Snowy

Дата 6.3.2006, 19:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Потому что ей не нужен сканкод.
Ей нужен lParam.

Код

type
  TForm1 = class(TForm)
    Label1: TLabel;
  private
    procedure WMKeyDown(var Mes: TMessage); message WM_KEYDOWN;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetSpecialName(AScanCode: dword): String;
var
  KeyName: array[0..255] of Char;
begin
  Result := '';
  FillChar(KeyName, 256, 0);
  if AScanCode <> 0 then begin
    GetKeyNameText(AScanCode, KeyName, SizeOf(KeyName));
    result := KeyName;
  end;
end;

procedure TForm1.WMKeyDown(var Mes: TMessage);
begin
  Label1.Caption := 'KeyName: ' + GetSpecialName(Mes.LParam);
  inherited;
end;

urix

Дата 6.3.2006, 19:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 26.12.2005

Репутация: 1
Всего: 1

да, точно

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »