ActiveDelphi

[pedro.olimpio]

Olá pessoal!

Tenho uma situação.

Preciso pegar o idioma de exibição do windows através do meu aplicativo delphi (para internacionalização).

Existe a função: GetSystemDefaultLangID que me retorna o idioma padrão da instalação do windows, BUT, como eu disse preciso do idioma de exibição dessa carniça!

Porque?

R: Pode acontecer do sistema operacional estar instalação com a versão em português, mas o caboclo chegar e alterar o idioma do SO para inglês. Sendo assim com essa função acima, o aplicativo continuaria abrindo em português.

Aguardo ajuda colegas!
Obrigado.

[gadeji]

Usa o TRegistry pra pegar o valor de:

HKEY_LOCAL_MACHINE\Software\Microsoft\windows\CurrentVersion\Authentication\LogonUI\SessionData\1..

o valor UserLanguageID que é um DWORD