Hallo,
wurde die
Unit SysUtils eingebunden, dann hat die Delphi-Anwendung diese Informationen bereits ermittelt. Man muss sie dann nur noch auslesen:
Delphi-Quellcode:
function GetSysLanguageName: string;
begin
with Languages do
Result := NameFromLocaleID[SysLocale.DefaultLCID];
end;
function GetSysLanguageExt: string;
begin
with Languages do
Result := Ext[IndexOf(SysLocale.DefaultLCID)];
end;
Freundliche Grüße