Tastaturlayout herausfinden

[fylo]

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?

[Christian Seehase]

Moin fylo,

ist GetKeyboardLayoutName eventuell das, was Du suchst?

[fylo]

Hi Christian

danke für die schnelle Antwort, aber diese Funktion leifert mir "nur" einen Code zurück, z.B. 00000407 für deutsch, aber nicht einen formatierten String in der Form 'deutsch' oder 'english'. Ich wollte mir nämlich die Arbeit sparen diese Zuordnung selber für alle möglichen Sprachen zu machen.