DELPHI BLOG appunti di programmazione

Questa funzione permette di recuperare la lingua di default impostata sul sistema, si compone di due funzioni: GetSystemDefaultLangID che restituisce il binary Microsoft language identifier in formato word (es. 1040 per italia) e della funzione VerLanguageName che recupera la descrizione della lingua associata al 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;

Compatibile con:

• Windows XP: SI
• Windows VISTA: SI
• Windows 7: DA VERIFICARE