hi
ich suche eine Funktion die mir das derzeit gültige Tastaturlayout von Windows als String zurückgibt. Das Ergebnis sollte z.B. so aussehen:
Tastaturlayout=Deutsch oder Tastaturlayout=English oder ...
Ich habe schon versucht etwas zucoden, bin aber nicht richtig weit gekommen:
Delphi-Quellcode:
function GetKeyboardLayout:String;
var Tastatur_HKL: HKL;
begin
SystemParametersInfo(SPI_GETDEFAULTINPUTLANG, 0, @Tastatur_HKL, 0);
...
end;
Mit GetKeyboardType() kommt man auch nicht ran.
Vielleicht hat jemand eine Idee?