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?