Tastennamen in Systemsprache

[Komoluna]

Hey,

Ich brauche den Namen einer Taste als String in der eingestellten Systemsprache.
Die Keys habe ich als VKC(VirtualKeyCode) vorliegen. Gibt es da irgendeine Methode in Windows oder der LCL?
(3rd Party Package/Unit wäre auch ok. Da das Projekt privat ist, sind Lizenzen mehr oder weniger egal)

MFG

Komoluna

[Mathias]

Verstehe ich dich richtig, du willst die Tasten-Namen welche in der Unit LCLType als String haben ?

[Komoluna]

Beispiele:

Code: Alles auswählen

Keyname   : Ger       / Eng
----------------------------------------
VK_Space  : Leertaste / Space
VK_Delete : Löschen   / Delete
VK_Control: Steuerung / Control

Aber halt wenn möglich in der Systemsprache

[Mathias]

Diese Funktion wird auch bei Games-Programmierer gebraucht, für die Benutzerdefinierten-Tastenzuweisungen.
Vielleicht wirst da bei einer Games-Packages fündig.

[Komoluna]

ok, danke für den Tipp.

[MAC]

Gibt es "GetKeyNameText" , hier einfach mal den Code den ich verwende

Code: Alles auswählen

function GenerateText(aKey: Word): string;
var
 astr:string;
 ac:PChar;
 ScanCode: cardinal;
begin
result := '';
astr := '';
ScanCode := (MapVirtualKey(byte(akey), 0) shl 16);
if ScanCode <> 0 then
   begin
   setlength(astr,255);
   GetKeyNameText(ScanCode,@astr[1], length(astr));
   ac := PChar(astr);
   result += ac;
   end;
end;      

[diogenes]

Gibt's das auch in plattformunabängig?
Wo stehen die Funktionen, insbesondere MapVirtualKey und GetKeyNameText?