Forum: Programmieren allgemein
by Larsi,
10. Okt 2008
Ich würde eher die Funkion so lassen und im Button einfach nur aufurfen. Also
function GetOSLanguage: string;
var
LanguageID:LangID;
Len: Integer;
begin
SetLength(Result, 255);
LanguageID:=GetSystemDefaultLangID;
Len:=VerLanguageName(LanguageID,PChar(Result), Length(Result));
Forum: Programmieren allgemein
by Larsi,
10. Okt 2008
function GetOSLanguage: string;
var
LanguageID:LangID;
Len: Integer;
begin
SetLength(Result, 255);
LanguageID:=GetSystemDefaultLangID;
Len:=VerLanguageName(LanguageID,PChar(Result), Length(Result));
SetLength(Result, Len);
end;
Forum: Programmieren allgemein
by Larsi,
10. Okt 2008
Du könntest ja die Sprache der Windows Version ermitteln, und wenn da nicht "Deutsch" rauskommt dann machst du halt die Umlaute anders.