1. Caps Lock State

  2. Shift State

  3. Insert State

  4. Num Lock State

  5. Contrl State

  6. Delete State


Home

 

Pages: 1  |  2  |  3  |  4  |  5  |


Caps Lock State

 

function CapsLockState: Bool;
var
KS: TKeyboardState;
begin
 

GetKeyboardState(KS);
  if bool(ks[020]) then Result := True else Result := False;
 

end;

 

Back to Top

Shift State

 

function ShiftState: BOOL;
var
KS: TKeyboardState;
begin
 

GetKeyboardState(KS);
  if bool(ks[016]) then Result := True else Result := False;
 

end;

 

Back to Top

Insert State

function InsertState: BOOL;
var
KS: TKeyboardState;
begin
 
GetKeyboardState(KS);
  if bool(ks[045]) then Result := True else Result := False;
 
end;

 

 
Back to Top

 


Num Lock State

function NumLockState: BOOL;
var
KS: TKeyboardState;
begin
 

GetKeyboardState(KS);
  if bool(ks[144]) then Result := True else Result := False;
 

end;
 

 

Back to Top

 


Contrl State

function ContrlState: BOOL;
var
KS: TKeyboardState;
begin
 

GetKeyboardState(KS);
    if bool(ks[017]) then Result := True else Result := False;
 

end;
 

Back to Top

Delete State

function DeleteState: BOOL;
var
KS: TKeyboardState;
begin
 
GetKeyboardState(KS);
   
if bool(ks[046]) then Result := True else Result := False;
 
end;

 

Back to Top

Copyright 2007  [PatilanSoft]. All rights reserved.