PC Toledo

.

pelo xharbour eu näo conheço näo, mas antigamente e bota antigamente nisso era possível deixar a tecla NUMLOCK ligada quando a máquina era inicializada setando uns parâmetros no setup da máquina ve se dá pra fazer com o Caps Lock.

mas porque vc quer ativar a caps lock? näo dá pra resolver usando a funçäo UPPER() ?

Luciano, o motivo é que uso memoedit() ...//...O problema é que durante a edição aparece minúsculo.

Grings ! acho que vc apenas pode dar um aviso !! ex:
IF KSetcaps( .F. )
ALERT("Caps Lock Desligado, favor ligar")
ENDIF

KSetCaps()
Queries or changes the status of the Caps lock key
Syntax
KSetcaps( [<lNewMode>] ) --> lOldMode

Arguments
<lNewMode>
This is an optional logical value defining the new status for the Caps lock key. .T. (true) activates the Caps lock key, and .F. (false) deactivates it. Return
The function returns the previous activation mode of the Caps lock key as a logical value.

Taí.

.

Grings.
O KSetcaps() é pára testar a situação atual do CAPS LOCK e não para mudar a situação dele !! se der uma procurada na NET talvez ache algo para mudar a situação do CAPS LOCK ou apenas de o aviso como eu disse no post acima !!!

Bem,
eu não uso, mas o manual tá dizendo:
<lNewMode>
This is an optional logical value defining the new status for the Caps lock key. .T. (true) activates the Caps lock key, and .F. (false) deactivates it. Return
The function returns the previous activation mode of the Caps lock key as a logical value.

Fiz o teste: Não retorna absolutamente nada, estando ativado ou não, também não muda o estado.

Procure por KbdStat() no help dp xharbour que a saida esta por ai !!!

Em Tempo...segue abaixo... Bits set for special keys Bit Key pressed
1 Shift key
3 Ctrl key
4 Alt key
5 Scroll Lock ON
6 Num Lock ON
7 Caps Lock ON
8 Insert ON

Abraços
Leonardo Machado

Grings escreveu:Fiz o teste:

Function Main()
Scroll()
If kSetCaps(.T.)
@ 10,20 Say ´Caps Lock ativado´
Else
@ 10,20 Say ´Caps Lock desativao´
EndIf
Return(.T.)

Não retorna absolutamente nada, estando ativado ou não, também não muda o estado.

Brother , tinha feito mesmo teste , e só fiquei esperando alguem passar aqui pra dar a solução" apenas por curiosidade " , mas agora fiquei ainda mais curioso ,

PARA QUE SERVE kSetCaps(.T.) se não resolve nada !

ederxc escreveu:

Grings escreveu:Fiz o teste:

Function Main()
Scroll()
If kSetCaps(.T.)
@ 10,20 Say ´Caps Lock ativado´
Else
@ 10,20 Say ´Caps Lock desativao´
EndIf
Return(.T.)

Não retorna absolutamente nada, estando ativado ou não, também não muda o estado.

Brother , tinha feito mesmo teste , e só fiquei esperando alguem passar aqui pra dar a solução" apenas por curiosidade " , mas agora fiquei ainda mais curioso ,

PARA QUE SERVE kSetCaps(.T.) se não resolve nada !

Pior, acho que para uma tentativa de compatibilidade com a CA-TOOLS

Mas a ultima que postei funciona direitinho !!!

ederxc escreveu:PARA QUE SERVE kSetCaps(.T.) se não resolve nada !

Resolve sim. Mas depende de onde. Essa função, muito provavelmente, pra configurar o estado do CapsLock, altera a área de dados do BIOS (salvo engano, no endereço 40:17). Mas só em DOS ou Windows não-NT, já que no kernel NT, praticamente tudo do BIOS é controlado pelo kernel do SO. Ou seja, para funcionar em XP, por exemplo, seria necessária outra abordagem que simplesmente alterar um byte.

Teste no Windows 98. Deve funcionar. Há uns 15 anos atrás fiz um programa pequeno para desativar o NumLock (o processo é o mesmo). Não funciona no NT, mas no Windows 98 vai que é uma beleza.