Telepített billentyűzet kiosztások listája

A megvalósításban két Windows függvény lesz segítségünkre. Az első függvény a GetKeyboardLayoutList, melynek segítségével egy listát kapunk a telepített billentyűzet kiosztások azonosítójáról. Ezt a listát a függvény második paraméterében kapjuk vissza. A függvény visszatérési értéke adja meg, hogy a lista hány elemet tartalmaz.

Következő lépésként egy ciklus segítségével végigmegyünk a listán. A kapott azonosító alapján a szövegesen olvasható megnevezést a GetLocaleInfo függvény szolgáltatja.

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Items.Clear;
  for i:=0 to GetKeyboardLayoutList(SizeOf(list), list)-1 do begin
    GetLocaleInfo(LoWord(list[i]), LOCALE_SLANGUAGE, kn, SizeOf(kn));
    ListBox1.Items.Add(kn);
  end;
end;