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
