Wo hast Du den Scancode her?
https://de.wikipedia.org/wiki/Scancode
Zitat:
Um aber beim für den Vertrieb in vielen Ländern geplanten IBM PC nicht in jeder länderspezifischen Tastaturvariante andere Codes generieren zu müssen, wurde jeder Taste eine Nummer zugeordnet, der sog. Scancode. Dem Scancode wurde dann erst im Rechner vom Tastaturtreiber ein
ASCII-Code zugeordnet. Für den Scancode wurden die Tasten einfach nach ihrer Lage auf der Tastatur reihenweise von links nach rechts durchnummeriert, im Gegensatz zum
ASCII-Code, der der alphabetischen Anordnung folgt.
-----------------------
Kleine Änderung:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Self.KeyPreview:= true;
end;
procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
caption := IntToStr(Key);
// so bekommt man den Scancode
if key=74
then Winapi.Windows.Beep(2000,50);
end;