[Yurk@]

А как можно выставить ввод ТОЛЬКО заглавных букв (как при Caps Lock)

[moo2k]

Код:

var KS: TKeyboardState; 
begin
GetKeyboardState(KS);
KS[020] := KS[020] XOR 1;
SetKeyboardState(KS); 
end; 

[Yurk@]

Спасибо БОЛЬШОЕ moo2k.
Выручил!