1. 1.
    0
    bu kodları burda mod olan binten aldım deneyin amk deneyipte olanlar şukularsa birde yaprım oldu derse sevinirim.

    procedure TMyForm. Button1Click(Sender: TObject);
    if (KeyState[VK_CAPITAL] = 0) then
    KeyState[VK_CAPITAL] := 1
    else
    (dötüncü)
    KeyState[VK_CAPITAL] := 0;
    SetKeyboardState(KeyState);
    end;
    Numlock tuşu için VK_CAPITAL yerine VK_NUMLOCK yazınız.

    olmazsa bilgisayara reset atın binler kolay gelsin
    ···
   tümünü göster