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.