wie localedId aus kürzel bekommen (zB "de")

[Union]

Zitat von murcielago:

danke mal für die antwort, aber was genau hat das jetzt mit delphi zu tun?

ich will mir eben sparen, das ganze umwandeln selbst zu übernehmen... da muss es doch was von delphi geben?

Das umwandeln klappt nur, wenn die entsprechende Sprache auch in Deinem System unterstützt wird. Dann kannst Du die Klasse TLanguages verwenden:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
   Languages := TLanguages.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   i : integer;
begin
   ListBox1.Clear;
   for i := 0 to Languages.Count -1 do
   begin
      Listbox1.Items.Add(Format('%5.5d %s %s', [Languages.LocaleID[i], Languages.Name[i], Languages.Ext[i]]))
   end;
end;

TLanguages.Ext[Index] enthält dabei die 2-Buchstabige Abkürzung laut ISO sowie ein drittes Zeichen, das die Untersprache enthält (ENU = Us Englisch, UNP=Phillipine English). Alle weiteren Information siehe unter WinApi LCType Constants.