************************************************
Büyük harf= milisaniye cinsinden bi değer giriyoz..(250)
Küçük Harf= """""""""""""""""""""""""""""""""""""""(100)
sonra başlat butonuna bastıgımızda kendi kendine capslock ışığının
yanıp söndüğünü göreceğiz budemektirki prog. çalışıyor...
Ben kendi adıma yaptım siz düzenleyebilirsiniz.
Bilgiler Paylaşmak İçindir...
ThE_ScArY_HaCKER
*********************************************************
KODS...
*************
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
b,c:integer;
a:integer;
implementation

{$R *.dfm}

procedure Delay(ms : longint);
var TheTime : LongInt;
begin
TheTime := GetTickCount + ms;
while GetTickCount < TheTime do
Application.ProcessMessages;
end;
function SetState(Key: Integer; Value: Boolean): Boolean;
begin
if Odd(GetAsyncKeyState(Key)) <> Value then
begin
keybd_event(Key, MapVirtualkey(Key, 0), KEYEVENTF_EXTENDEDKEY, 0);
keybd_event(Key, MapVirtualkey(Key, 0), KEYEVENTF_EXTENDEDKEY or
KEYEVENTF_KEYUP, 0);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=25;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
c:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
a:=0;
repeat
SetState(VK_CAPITAL, True);
Delay(c);
SetState(VK_CAPITAL, False);
Delay(b);
until a=25;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.