www.imlok.net

Kód


var
  Form1: TForm1;
  stridani : boolean;

implementation

{$R *.DFM}

type
  TKeyType = (ktCapsLock, ktNumLock, ktScrollLock);

//Vlastni zapnuti/vypnuti klaves
procedure SetLedState(KeyCode: TKeyType; bOn: Boolean);
var
  KBState: TKeyboardState;
  Code: Byte;
begin
  case KeyCode of
    ktScrollLock: Code := VK_SCROLL;
    ktCapsLock: Code := VK_CAPITAL;
    ktNumLock: Code := VK_NUMLOCK;
  end;
  GetKeyboardState(KBState);
  if (Win32Platform = VER_PLATFORM_WIN32_NT) then
  begin
    if Boolean(KBState[Code]) <> bOn then
    begin
      keybd_event(Code,
                  MapVirtualKey(Code, 0),
                  KEYEVENTF_EXTENDEDKEY,
                  0);

      keybd_event(Code,
                  MapVirtualKey(Code, 0),
                  KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,
                  0);
    end;
  end
  else
  begin
    KBState[Code] := Ord(bOn);
    SetKeyboardState(KBState);
  end;
end;

//Metoda ktera zavola klavesy a rozlisuje dle vybraneho radio buttonu
procedure ClickRun;
begin
  if (form1.radiobutton2.Checked = true) and (stridani = true) then
  begin
    SetLedState(ktNumLock, true);  // NumLock on
    stridani := false;
  end
  else if form1.radiobutton2.Checked = true then
  begin
    SetLedState(ktNumLock, false);  // NumLock off
    stridani := true;
  end
  else if  (stridani = true) and (form1.radiobutton1.Checked = true) then
  begin
    SetLedState(ktScrollLock, true);  // ScrolLock on
    stridani := false;
  end
  else if form1.radiobutton1.Checked = true then
  begin
    SetLedState(ktScrollLock, false);  // ScrolLock off
    stridani := true;
  end
  else if  (stridani = true) and (form1.radiobutton3.Checked = true) then
  begin
    SetLedState(ktCapsLock, true);  // ktCapsLock on
    stridani := false;
  end
  else if form1.radiobutton3.Checked = true then
  begin
    SetLedState(ktCapsLock, false);  // ktCapsLock off
    stridani := true;
  end;
end;

stridani

boolean

GetSetKeyboardState

Button - pro aktivaci a deaktivaci stisku

Radio button - pro vybrání kterou klávesu simulovat

TextBox - aby se dal nastavit čas aktivace a deaktivace

Label - abych vědel zda program běží či ne (lze řešit i vlastností Enabled v komponentě Button)

TRIKY - Delphi - zapnutí/vypnutí NumLock, CapsLock, ScrollLock

Zadání

Kód

Nápověda