Posted by webmaster Guido on November 26, 2001 at 21:17:09:
In Reply to: get Windows language posted by Stefan Loeners p12167 on November 20, 2001 at 12:37:30:
: How would I find out programmatically which language version of Windows NT is installed?
For Windows 98 and Me (I suppose it's the same for Win2000 and XP), you can get the system's language ID by means of the Win-API function GetSystemDefaultLangID. Next, use the Win-API function VerLanguageName to derive the language-string from the language ID. Example: the following code puts Windows' default language in a label:
procedure TForm1.Button1Click(Sender: TObject); var ID: LangID; Language: array [0..100] of char; begin ID := GetSystemDefaultLangID; VerLanguageName(ID, Language, 100); Label1.Caption := String(Language); end;