Zeichen -> Tasten

[PeterPanino]

Ich habe die Lösung gefunden!!!!!

Delphi-Quellcode:

//edtChar: TEdit
//lblVK, lblShift: TLabel
//btn1: TButton

procedure TForm1.btn1Click(Sender: TObject);
var
  lHkl: HKL;
  lVirtKey: SHORT;
begin
  if edtChar.Text = '' then EXIT;
  lHkl := GetKeyboardLayout(0);
  lVirtKey := VkKeyScanEx(edtChar.Text[1], lHkl);
  lblVK.Caption := 'Virtualkey: ' + IntToStr(Lo(lVirtKey));
  lblShift.Caption := 'Shift: ' + IntToStr(Hi(lVirtKey));
end;

Könnt ihr nachprüfen, ob das bei euch auch funktioniert?