Sprache ermitteln und Installieren

[shmia]

Delphi-Quellcode:

var
   x : LCID;
   s : string;
begin
   x := GetSystemDefaultLCID();
   x := x and $FF;

   case x of
      LANG_GERMAN: s := 'deutsch';
      LANG_ENGLISH: s:= 'neudeutsch (englisch)';
      LANG_FRENCH:  s:= 'französisch';
   end;
   Edit1.Text := s;
end;