Testei no windows 2000 e funcionou perfeitamente, valeu pela dica....
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de User-BA
Enviada em: domingo, 20 de novembro de 2005 13:17
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Teclado padrão ABNT/ABNT2 ou INGLÊS - A solução
Olá gente!
Ufa! Até que enfim... Meses... Para 2 linhas de código :)
* Fonte de pesquisa para a solução da charada:
* "MSDN microsoft"
* Vale a pena visitar.
Inserir as linhas abaixo em um timer,
abrir as opções regionais no painel de controle
alterar as opções do teclado
para ABNT/ABNT2/Estados Unidos Internacional, etc.
e ver o resultado :)
* Solução testada em Windows XP.
procedure TForm1.Timer1Timer(Sender: TObject);
var
s_LayOut_Teclado : String;
begin
SetLength (s_LayOut_Teclado, 8);
GetKeyBoardLayoutName(PChar(s_LayOut_Teclado));
If s_LayOut_Teclado = '00000416' then
Label1.Caption := 'Português - Brasil - ABNT'
Else if s_LayOut_Teclado = '00010416' then
Label1.Caption := 'Português - Brasil - ABNT2'
Else if s_LayOut_Teclado = '00020409' then
Label1.Caption := 'Estados Unidos - Internacional'
Else
Label1.Caption := 'LayOut não Identificado';
end;
Espero que sirva para alguem em alguma ocasião.
Valeu
Abraços para todos.
Luciano-User-BA
User-BA wrote:
>
> Olá!
>
> Alguem conhece alguma função que retorne
> o tipo do teclado da máquina do usuário?
> Se ABNT/ABNT2 (aquele com o Ç (cedilha)) ou INGLÊS (sem o Ç (cedilha)).
>
> Obrigado
> Luciano-User-BA
_______________________________________________________
Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!
http://br.acesso.yahoo.com/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
__________ NOD32 1.1295 (20051120) Information __________
This message was checked by NOD32 antivirus system.
http://www.nod32.com
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
