Unit für Virtual Key Codes?

[PeterPanino]

Ich muss immer wieder Virtual Key Codes selbst deklarieren, z.B.:

VK_P = 80; Hat denn die Delphi Runtime Library keine Unit, in der ALLE Virtual Key Codes (zumindest die Buchstaben-Tasten) deklariert sind?

[Delphi.Narium]

Schonmal auf die Idee gekommen, sie selbst zu schreiben und dann bei Bedarf ins Uses aufnehmen?

Delphi-Quellcode:

program PascalScriptUnitVK;
var
  i : Integer;
  sl : TStringList;
begin
  sl := TStringList.Create;
  sl.Add('unit VK;');
  sl.Add('interface');
  sl.Add('const');
  for i := Ord('0') to Ord('9') do sl.Add(Format('  VK_%s = %d;',[Chr(i),i]));
  for i := Ord('A') to Ord('Z') do sl.Add(Format('  VK_%s = %d;',[Chr(i),i]));
  for i := Ord('a') to Ord('z') do sl.Add(Format('  VK_%s = %d;',[Chr(i),i]));
  sl.Add('end.');
  sl.SaveToFile('VK.pas');
  sl.Free;
end.

Bei meinem ollen Delphi 7 sind die gesuchten VKs alle in der Unit Windows zu finden, mit Ausnahme der Ziffern und Buchstaben. Im Kommentar steht in der Unit dann direkt dabei, warum sie nicht in der Unit definiert sind

[PeterPanino]

Zitat von Delphi.Narium:

Schonmal auf die Idee gekommen, sie selbst zu schreiben

Das zu vermeiden, war ja der Gegenstand meines Postings.

Die Frage war ja: Gibt es (k)eine Standard-Unit für Virtual Key Codes?
Und nicht: Wie kann ich eine Unit für Virtual Key Codes erzeugen?

Trotzdem Danke. Guten Rutsch!

[mmw]

vielleicht hier - System.UITypes -

http://docwiki.embarcadero.com/Libra...s#Virtual_Keys

[PeterPanino]

Zitat von mmw:

vielleicht hier - System.UITypes -

http://docwiki.embarcadero.com/Libra...s#Virtual_Keys

Ich wundere mich, wieso die Unit
C:\Program Files (x86)\Embarcadero\Studio\21.0\source\rtl\common\Sy stem.UITypes.pas
die ScanCode-Konstanten-Namen nicht standardmäßig definiert: vkP = $50; {  80 } Standard wäre ja: VK_XX

[mmw]

hallo,

das scheint auch erst seit XE4 so zu sein.

Gruß