DELPHI BLOG appunti di programmazione

This feature allows you to retrieve the default language set on the system, consists of two functions: GetSystemDefaultLangID that returns the binary Language identifier in Microsoft Word format (eg 1040 for Italy) and function VerLanguageName that retrieves the description of the language associated with the binary Microsoft language identifier.

function recupera_lingua: string;

var

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

begin

VerLanguageName(GetSystemDefaultLangID,lingua, 50);

Result := StrPas(Lang_array);

end;

Compatible with:

• Windows XP: SI
• Windows VISTA: SI
• Windows 7: TO VERIFY