Mega Code Archive
Num lock, caps lock ve scroll lock durumlarini degistirmek
<![CDATA[
//ozgurfidan@email.com tüm sorunlarınız için e mail atabilirsiniz
//www.sevgi.get.to
procedure TForm1.Button1Click(Sender: TObject);
var keys: TKeyboardState;
begin
{1 = ac, 0 = kapat}
GetKeyboardState( keys );
keys[VK_NUMLOCK] := 1; {Num Lock}
keys[VK_CAPITAL] := 1; {Caps Lock}
keys[VK_SCROLL] := 1; {Scroll Lock}
SetKeyboardState( keys );
end;
//ozgurfidan@email.com tüm sorunlarınız için e mail atabilirsiniz
//www.sevgi.get.to
]]>