Umlaute im nicht deutschen Windows umwandeln?

[Larsi]

Delphi-Quellcode:

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;

Hiermit kannst du die Sprache von Windows auslesen.