Delphi-Quellcode:
function GetLocaleString(LangID: Integer): string;
var
s: string;
begin
Result := '';
SetLength(s, 128);
if GetLocaleInfo(LangID, LOCALE_SNATIVELANGNAME, PChar(s), 128) > 0 then
begin
Result := StrPas(PChar(s));
if GetLocaleInfo(LangID, LOCALE_SNATIVECTRYNAME, PChar(s), 128) > 0 then
begin
Result := Format('%s (%s)', [Result, StrPas(PChar(s))]);
end;
end;
end;
ShowMessage(GetLocaleString(GetUserDefaultLangID));
So bekomme ich in etwa das hin was Uwe schreibt aber es beantwortet nicht meine Frage, Danke trotzdem.