get the systems default language

Author: Thomas Stutz

function GetWindowsLanguage: string;

var

WinLanguage: array [0..50] of char;

begin

VerLanguageName(GetSystemDefaultLangID, WinLanguage, 50);

Result := StrPas(WinLanguage);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(GetWindowsLanguage);

end;