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.