|
|
用于function中
const
SCROLLLOCK = 1;
NUMLOCK = 2;
CAPSLOCK = 4;
var
Status: Byte;
PntK: ^Byte;
begin
PntK := Ptr($40, $97); {directly point in
memory}
Status := Byte(PntK^); {read the status}
if (NUMLOCK and Status) = NUMLOCK then {if NUM
LOCK is on}
Status := Status and (255 - NUMLOCK) {turn it
off}
else
Status := Status or 2; {turn it
on}
Pntk^ := Status; {poke in
memory (don't works)}
end;
A:
I use this procedures to turn on the caps lock if it isn't
already on when
the user enters my DBloockup combo. This gets rid of the
nasty problem
of case-sensitive indexes.
procedure TMainForm.StudentLookupEnter(Sender: TObject);
Var Level : Integer;
KeyState : TKeyBoardState;
begin
{check if caps-lock is on - if not turn it on}
Level := GetKeyState(VK_CAPITAL);
GetKeyboardState(KeyState);
CapsLockStatus := KeyState;
If Level = 0 then
begin
KeyState[VK_CAPITAL] := 1;
setKeyboardState(KeyState);
end;
end;
|
|
