FULL KEY TUŞLARI VE NUMLOCK CAPSLOCK (ALINTI)
//CAPSLOCK VE NUMLOCK ÖRNEĞİ
procedure ToggleNumLock ;
var
KeyState : TKeyboardState ;
begin
//note: Use VK_CAPITAL for Caps Lock
GetKeyboardState ( KeyState ) ;
//simulate key events (down + up)
if ( KeyState [ VK_NUMLOCK ] = 0 ) then
begin
Keybd_Event ( VK_NUMLOCK , 1 , KEYEVENTF_EXTENDEDKEY or 0 , 0 ) ;
Keybd_Event ( VK_NUMLOCK , 1 , KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP , 0 ) ;
end
else
begin
Keybd_Event ( VK_NUMLOCK , 0 , KEYEVENTF_EXTENDEDKEY or 0 , 0 ) ;
Keybd_Event ( VK_NUMLOCK , 0 , KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP , 0 ) ;
end ;
end ;
//***************
( hexadecimal ) Keyboard ( or mouse ) equivalent
VK_LBUTTON 01 Left mouse button
VK_RBUTTON 02 Right mouse button
VK_CANCEL 03 Control - break processing
VK_MBUTTON 04 Middle mouse button ( three - button mouse )
VK_BACK 08 BACKSPACE key
VK_TAB 09 TAB key
VK_CLEAR 0 C CLEAR key
VK_RETURN 0 D ENTER key
VK_SHIFT 10 SHIFT key
VK_CONTROL 11 CTRL key
VK_MENU 12 ALT key
VK_PAUSE 13 PAUSE key
VK_CAPITAL 14 CAPS LOCK key
VK_ESCAPE 1 B ESC key
VK_SPACE 20 SPACEBAR
VK_PRIOR 21 PAGE UP key
VK_NEXT 22 PAGE DOWN key
VK_END 23 END key
VK_HOME 24 HOME key
VK_LEFT 25 LEFT ARROW key
VK_UP 26 UP ARROW key
VK_RIGHT 27 RIGHT ARROW key
VK_DOWN 28 DOWN ARROW key
VK_SELECT 29 SELECT key
VK_PRINT 2 A PRINT key
VK_EXECUTE 2 B EXECUTE key
VK_SNAPSHOT 2 C PRINT SCREEN key
VK_INSERT 2 D INS key
VK_DELETE 2E DEL
VK_HELP 2 F HELP key
30 0 key
31 1 key
32 2 key
33 3 key
34 4 key
35 5 key
36 6 key
37 7 key
38 8 key
39 9 key
41 A key
42 B key
43 C key
44 D key
45 E key
46 F key
47 G key
48 H key
49 I key
4 A J key
4 B K key
4 C L key
4 D M key
4E N key
4 F O key
50 P key
51 Q key
52 R key
53 S key
54 T key
55 U key
56 V key
57 W key
58 X key
59 Y key
5 A Z key
VK_NUMPAD0 60 Numeric keypad 0 key
VK_NUMPAD1 61 Numeric keypad 1 key
VK_NUMPAD2 62 Numeric keypad 2 key
VK_NUMPAD3 63 Numeric keypad 3 key
VK_NUMPAD4 64 Numeric keypad 4 key
VK_NUMPAD5 65 Numeric keypad 5 key
VK_NUMPAD6 66 Numeric keypad 6 key
VK_NUMPAD7 67 Numeric keypad 7 key
VK_NUMPAD8 68 Numeric keypad 8 key
VK_NUMPAD9 69 Numeric keypad 9 key
VK_SEPARATOR 6 C Separator key
VK_SUBTRACT 6 D Subtract key
VK_DECIMAL 6E Decimal key
VK_DIVIDE 6 F Divide key
VK_F1 70 F1 key
VK_F2 71 F2 key
VK_F3 72 F3 key
VK_F4 73 F4 key
VK_F5 74 F5 key
VK_F6 75 F6 key
VK_F7 76 F7 key
VK_F8 77 F8 key
VK_F9 78 F9 key
VK_F10 79 F10 key
VK_F11 7 A F11 key
VK_F12 7 B F12 key
VK_F13 7 C F13 key
VK_F14 7 D F14 key
VK_F15 7E F15 key
VK_F16 7 F F16 key
VK_F17 80 H F17 key
VK_F18 81 H F18 key
VK_F19 82 H F19 key
VK_F20 83 H F20 key
VK_F21 84 H F21 key
VK_F22 85 H F22 key
VK_F23 86 H F23 key
VK_F24 87 H F24 key
VK_NUMLOCK 90 NUM LOCK key
VK_SCROLL 91 SCROLL LOCK key
VK_LSHIFT A0 Left SHIFT key
VK_RSHIFT A1 Right SHIFT key
VK_LCONTROL A2 Left CONTROL key
VK_RCONTROL A3 Right CONTROL key
VK_LMENU A4 Left MENU key
VK_RMENU A5 Right MENU key
VK_PLAY FA Play key
VK_ZOOM FB Zoom key
Delphi - .....................................
Herhangi bir dataset'i paradox'a çevirme
{}
function DataSetToPdx ( const DataSet : TDataSet ; const DosyaAdi : String ;
const KayitlariAktar : Boolean = True ; const HizliAktar : Boolean = False ;
const TabloVarsaUzerineYaz : Boolean = False ; const Durum : TComponent = nil ): Boolean ;
var
i : Integer ;
KayitYeri : TBookmarkStr ;
begin
try
Result := False ;
KayitYeri := DataSet . Bookmark ;
if FileExists ( DosyaAdi ) and not TabloVarsaUzerineYaz then Exit ;
Result := True ;
with TTable . Create ( nil ) do begin
try
DatabaseName := ExtractFilePath ( DosyaAdi );
TableName := ExtractFileName ( DosyaAdi );
TableType := ttParadox ; //<----
for i := 0 to DataSet . FieldCount - 1 do with FieldDefs . AddFieldDef do begin
Name := DataSet . FieldDefs [ i ]. Name ;
case DataSet . FieldDefs [ i ]. DataType of
ftUnknown , ftTypedBinary , ftCursor , ftDBaseOle , ftADT , ftArray , ftReference ,
ftDataSet , ftOraBlob , ftVariant , ftInterface , ftIDispatch : DataType := ftBlob ;
ftFixedChar , ftWideString , ftGuid : DataType := ftString ;
ftVarBytes : DataType := ftBytes ;
ftWord : DataType := ftInteger ;
ftLargeint : DataType := ftCurrency ;
ftOraClob : DataType := ftMemo ;
else
DataType := DataSet . FieldDefs [ i ]. DataType ;
end ;
Size := DataSet . FieldDefs [ i ]. Size ;
end ;
CreateTable ;
if KayitlariAktar then begin
if HizliAktar then DataSet . DisableControls ;
DataSet . First ;
Open ;
while not DataSet . Eof do begin
Append ;
for i := 0 to DataSet . FieldCount - 1 do
if not Fields [ i ]. ReadOnly then Fields [ i ]. Value := DataSet . Fields [ i ]. Value ;
Post ;
DataSet . Next ;
end ;
if DataSet . RecordCount > 0 then FlushBuffers ; //-
end ;
except
Result := False ;
end ;
Free ;
end ;
except
Result := False ;
end ;
DataSet . Bookmark := KayitYeri ;
while DataSet . ControlsDisabled do DataSet . EnableControls ; //DisableControls ise tekar açılır
end ;
Delphi - .....................................
Herhangi bir dataset'i paradox'a çevirme
{}
function DataSetToPdx ( const DataSet : TDataSet ; const DosyaAdi : String ;
const KayitlariAktar : Boolean = True ; const HizliAktar : Boolean = False ;
const TabloVarsaUzerineYaz : Boolean = False ; const Durum : TComponent = nil ): Boolean ;
var
i : Integer ;
KayitYeri : TBookmarkStr ;
begin
try
Result := False ;
KayitYeri := DataSet . Bookmark ;
if FileExists ( DosyaAdi ) and not TabloVarsaUzerineYaz then Exit ;
Result := True ;
with TTable . Create ( nil ) do begin
try
DatabaseName := ExtractFilePath ( DosyaAdi );
TableName := ExtractFileName ( DosyaAdi );
TableType := ttParadox ; //<----
for i := 0 to DataSet . FieldCount - 1 do with FieldDefs . AddFieldDef do begin
Name := DataSet . FieldDefs [ i ]. Name ;
case DataSet . FieldDefs [ i ]. DataType of
ftUnknown , ftTypedBinary , ftCursor , ftDBaseOle , ftADT , ftArray , ftReference ,
ftDataSet , ftOraBlob , ftVariant , ftInterface , ftIDispatch : DataType := ftBlob ;
ftFixedChar , ftWideString , ftGuid : DataType := ftString ;
ftVarBytes : DataType := ftBytes ;
ftWord : DataType := ftInteger ;
ftLargeint : DataType := ftCurrency ;
ftOraClob : DataType := ftMemo ;
else
DataType := DataSet . FieldDefs [ i ]. DataType ;
end ;
Size := DataSet . FieldDefs [ i ]. Size ;
end ;
CreateTable ;
if KayitlariAktar then begin
if HizliAktar then DataSet . DisableControls ;
DataSet . First ;
Open ;
while not DataSet . Eof do begin
Append ;
for i := 0 to DataSet . FieldCount - 1 do
if not Fields [ i ]. ReadOnly then Fields [ i ]. Value := DataSet . Fields [ i ]. Value ;
Post ;
DataSet . Next ;
end ;
if DataSet . RecordCount > 0 then FlushBuffers ; //-
end ;
except
Result := False ;
end ;
Free ;
end ;
except
Result := False ;
end ;
DataSet . Bookmark := KayitYeri ;
while DataSet . ControlsDisabled do DataSet . EnableControls ; //DisableControls ise tekar açılır
end ;
Delphi - .....................................
sqlserver değişken sql içinde
DECLARE @ SQL Varchar ( 200 )
declare @ tbl Varchar ( 100 )
set @ tbl = 'INFO_UYELER'
SET @ SQL = 'SELECT * FROM ' + @ tbl
exec (@ SQL )
DECLARE @ SQL Varchar ( 200 )
declare @ tbl Varchar ( 100 )
set @ tbl = 'L_CAPIFIRM'
SET @ SQL = 'SELECT * FROM ' + @ tbl
IF EXISTS ( SELECT * FROM sysobjects WHERE id = OBJECT_ID (@ TBL ))
BEGIN
PRINT 'TABLO VAR'
END
DECLARE @ SQL Varchar ( 200 )
declare @ tbl Varchar ( 100 )
declare @ stkid Varchar ( 30 )
declare @ mik Varchar ( 30 )
select @ stkid = Kartid ,@ mik = Miktar from inserted
begin
set @ tbl = DB_NAME () --Ç al ış t ığı m katalog ( veri taban ı)
set @ tbl = Left (@ tbl , Len (@ tbl )- 4 )+ 'GENEL..Kart' /* ba ş ka katalog i ç indeki tablo .*/
SET @ SQL = 'SELECT * FROM ' + @ tbl + ' where id=' +@ stkid
if (??????????????????????)-- Kontrol sonras ı kay ı t varsa
begin
SET @ SQL = 'update ' +@ tbl + ' set Toplam=isNull(Toplam,0+' +@ mik + ' where id=' +@ stkid
EXEC(@ SQL )
end else RAISERROR ( '[%s] nolu kart bulunamadı!' , 16 , 1 ,@ stkid )
end
Delphi - .....................................
sqlserver değişken sql içinde
DECLARE @ SQL Varchar ( 200 )
declare @ tbl Varchar ( 100 )
set @ tbl = 'INFO_UYELER'
SET @ SQL = 'SELECT * FROM ' + @ tbl
exec (@ SQL )
DECLARE @ SQL Varchar ( 200 )
declare @ tbl Varchar ( 100 )
set @ tbl = 'L_CAPIFIRM'
SET @ SQL = 'SELECT * FROM ' + @ tbl
IF EXISTS ( SELECT * FROM sysobjects WHERE id = OBJECT_ID (@ TBL ))
BEGIN
PRINT 'TABLO VAR'
END
DECLARE @ SQL Varchar ( 200 )
declare @ tbl Varchar ( 100 )
declare @ stkid Varchar ( 30 )
declare @ mik Varchar ( 30 )
select @ stkid = Kartid ,@ mik = Miktar from inserted
begin
set @ tbl = DB_NAME () --Ç al ış t ığı m katalog ( veri taban ı)
set @ tbl = Left (@ tbl , Len (@ tbl )- 4 )+ 'GENEL..Kart' /* ba ş ka katalog i ç indeki tablo .*/
SET @ SQL = 'SELECT * FROM ' + @ tbl + ' where id=' +@ stkid
if (??????????????????????)-- Kontrol sonras ı kay ı t varsa
begin
SET @ SQL = 'update ' +@ tbl + ' set Toplam=isNull(Toplam,0+' +@ mik + ' where id=' +@ stkid
EXEC(@ SQL )
end else RAISERROR ( '[%s] nolu kart bulunamadı!' , 16 , 1 ,@ stkid )
end
Delphi - .....................................
form boyutunu sabitlemek
//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi
unit Unit1 ;
interface
uses
Windows , Messages , SysUtils , Classes , Graphics , Controls , Forms , Dialogs ;
type
TForm1 = class ( TForm )
private
{ Private declarations }
public
procedure WMGetMinMaxInfo ( var Message : TWMGetMinMaxInfo ); message WM_GETMINMAXINFO ;
{ Public declarations }
end ;
var
Form1 : TForm1 ;
implementation
{$R *.DFM}
procedure TForm1 . WMGetMinMaxInfo ( var Message : TWMGetMinMaxInfo );
begin
with Message . MinMaxInfo ^ do
begin
ptMaxSize . X := 200 ;
ptMaxSize . Y := 200 ;
ptMaxPosition . X := 99 ;
ptMaxPosition . Y := 99 ;
ptMinTrackSize . X := 100 ;
ptMinTrackSize . Y := 100 ;
ptMaxTrackSize . X := 300 ; //burdan boyutunun ayarlayabiirsiniz
ptMaxTrackSize . Y := 300 ; //burdan boyutunun ayarlayabiirsiniz
end ;
Message . Result := 0 ;
inherited ;
end ;
end .
Delphi - .....................................
form boyutunu sabitlemek
//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi
unit Unit1 ;
interface
uses
Windows , Messages , SysUtils , Classes , Graphics , Controls , Forms , Dialogs ;
type
TForm1 = class ( TForm )
private
{ Private declarations }
public
procedure WMGetMinMaxInfo ( var Message : TWMGetMinMaxInfo ); message WM_GETMINMAXINFO ;
{ Public declarations }
end ;
var
Form1 : TForm1 ;
implementation
{$R *.DFM}
procedure TForm1 . WMGetMinMaxInfo ( var Message : TWMGetMinMaxInfo );
begin
with Message . MinMaxInfo ^ do
begin
ptMaxSize . X := 200 ;
ptMaxSize . Y := 200 ;
ptMaxPosition . X := 99 ;
ptMaxPosition . Y := 99 ;
ptMinTrackSize . X := 100 ;
ptMinTrackSize . Y := 100 ;
ptMaxTrackSize . X := 300 ; //burdan boyutunun ayarlayabiirsiniz
ptMaxTrackSize . Y := 300 ; //burdan boyutunun ayarlayabiirsiniz
end ;
Message . Result := 0 ;
inherited ;
end ;
end .
Delphi - .....................................
formun tasinmasini engellemek
//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi
type
TForm1 = class ( TForm )
private
Procedure WMSysCommand ( Var msg : TWMSysCommand ); message WM_SYSCOMMAND ;
public
{ Public tanımlar }
end ;
var
Form1 : TForm1 ;
implementation
{$R *.DFM}
procedure TForm1 . WMSysCommand ( var msg : TWMSysCommand );
begin
if ( msg . CmdType and $FFF0 ) = SC_MOVE then begin
msg . result := 0 ;
exit ;
end ;
inherited ;
end ;
Delphi - .....................................
formun tasinmasini engellemek
//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi
type
TForm1 = class ( TForm )
private
Procedure WMSysCommand ( Var msg : TWMSysCommand ); message WM_SYSCOMMAND ;
public
{ Public tanımlar }
end ;
var
Form1 : TForm1 ;
implementation
{$R *.DFM}
procedure TForm1 . WMSysCommand ( var msg : TWMSysCommand );
begin
if ( msg . CmdType and $FFF0 ) = SC_MOVE then begin
msg . result := 0 ;
exit ;
end ;
inherited ;
end ;
Delphi - .....................................
trojen yazmak
//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi
Ö nceden de anlattigim gibi delphide trojen yazimi ile ilgili bilgilier verecegim .
Hepsinden ö nce size delphi ile ilgili biraz bilmeniz gereken bilgileri verecegim .
Ö nce delphi ile ilgili biraz bilgi vereyim .
Delphi pascal tabanli olup g ö rsel bir yazilim dilidir ve bilgisayarcilar arasinda cok popilerdir .
Delphide program yazarken iki yerle cok hasir nesir olacagiz .
Bunlardan birincisi komponentler b ö l ü m ü ikincisi ise “ Object Inspector ” penceresidir .
Komponentler b ö l ü m ü zaten delphiyi actiginiz zaman karsiniza ana pecerede cikan Standart ,
additional , win32 … gibi siralanip giden basamakli pencereler olarak karsiniza cikar .
Object Inspector penceresi ise kendi arasinda iki basamakli pencere olarak ikiye ayrilir .
Ilki Properties ikinci ise events b ö l ü m ü d ü r . Bu pencerelerin her ikiside cok ö nemlidir .
Properties peceresi formunuza eklediginiz komponentlerin ö zelliklerini control edip degistirebilirsiz .
( Bu b ö l ü mle su an pek isimiz yok )
Evrents penceresi ise formunuzdaki komponemtlerin olaylarina m ü dale etmenize saglayacak mesela
acip bakarsaniz On Click yazar bu o an tikladiginizda ne yapmanizi istediginizi o kisma yazarak
beliritirsiniz .
Simdi gelelim trojen yazma islemimize once delphide trojen matigindan biraz bahsediyim .
Delphide ag dedimiz zaman ( bu islem komponentler ile yapildigi zaman )
verici client alici server degimleri akla gelir . Client komut g ö nderir truva ati yani server
komutu yerine getirir .
Simdi yazmaya baslayalim once serveri yani truva atini yazalim .
Simdi delphiyi actiginizda ilk form cikar bu forma komponentlerin internet basamagina gelip
tcpserver tiklayin ve formunuzun uygun bir yerine tiklayin formunuza yelestigini g ö receksiniz .
Bu islemi yaptiktan sonra formun ü zerine ikikere tiklayarak formun creat kod bloguna giriniz .
Buraya su kodlari yaziniz .
procedure TForm1 . FormCreate ( Sender : TObject );
begin
form1 . TcpServer1 . LocalPort :=’ 222 ’; //hangi porttan veri dinleyecegi belirlenir.
form1 . TcpServer1 . Active := true ; // basla
end ;
end .
Bu islemi yaptiktan sonra F 9 basarak isleminizin calisip calismadiginizi gorebilisiniz .
Simdi komut yorumlayacagi yeri islemi yapalim .
Bunun icin “ Object Inspector ” penceresinin Evrents basamagindan yaralanacagiz .
Bunun icin forma yerlestirdigimiz tcpserver componentini tiklayin ve “ Object Inspector ”
pecresinin evrents basamagini tiklayin ve ordaki On Accept b ö l ü m ü ne tiklayin ve acilan
kod bloguna su kodlari yaziniz .
procedure TForm1 . TcpServer1Accept ( Sender : TObject ;
ClientSocket : TCustomIpClient );
var
a : string ;
begin
a := clientsocket . Receiveln ();
if a = 'mesaj' then
begin
showmessage ( '**** CODDER 71® ****' );
end
end ;
end .
Bu kod islemini yaptiktan sonra bu formu kaydetip kapatin kaydetme islemi file — save projet
as ve geriside bilindigi gibi kaydet kaydet deyin ve birkez F 9 ´ a basin cikin .
Server islemi tamam .
Simdi clienti formu yazmaya geldik
Kodlari yazmaya baslamadan once sunlari forma yerlestiriniz .
Componentlerden standart bol ü m ü nden
2 adet edit text
1 adet label
2 adette button koyunuz ve
internet basmagindan tcpclient koyunuz .
Simdi kodlari yazalim
Forma ikikere tiklayarak acilan kod bloguna su kodlari yaziniz .
procedure TForm1 . FormCreate ( Sender : TObject );
begin
form1 . Label1 . Caption := form1 . TcpClient1 . LocalHostAddr ;
form1 . Edit1 . Text := form1 . TcpClient1 . LocalHostAddr ;
form1 . Edit2 . Text := '222' ;
form1 . Button1 . Caption := 'CONNECT' ;
FORM1 . Button2 . Caption := 'SEND' ;
end ;
bu islemden sonra
formdaki button1 yazan buton ü st ü ne gelip ikikere tiklayarak su kodlari yaziniz .
form1 . TcpClient1 . RemoteHost := form1 . Edit1 . Text ; //ip
form1 . TcpClient1 . RemotePort := form1 . Edit2 . Text ; //serverin dinledigi port
form1 . TcpClient1 . Connect ; //baglan
bu islemdende sonra button2 yazan butonun ustune gelip ikikere tiklayarak
acilan kod buloguna ise su kodlari yaziniz .
procedure TForm1 . Button2Click ( Sender : TObject );
begin
FORM1 . TcpClient1 . Sendln ( 'mesaj' ); //komut gonder
end ;
end .
Iste ilk trojenimiz bitti bunu daha once dedigim gibi kaydetin ve bir kez F 9 ´ a
basin ve cikin ve dosyalari kaydettiginiz yeri acin ve exeleri olusmus olacaktir
onlari alip kullanabilirsiniz .
( sari renkli iconlari vardir . 7 isareti iconlardir .)
Dikkat : Bu anlatiklarim hepsi delphi 7 icindir .
Cok amat ö rce oldu ama insallah size mantigi biraz olsun anlamaniza yardimci olmusumdur .
Trojenlerin % 70 - 80 bu y ö ntemle yazilir cok ü nl ü wormlar bile bu y ö ntemle yazilmislardir .
Aslinda burda ag mantigini kapmak olay bunu ö rendiseniz cok gelismis ag programlari yazabilirsiniz .
Hadi kolay gelsin …
Delphi - .....................................
trojen yazmak
//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi
Ö nceden de anlattigim gibi delphide trojen yazimi ile ilgili bilgilier verecegim .
Hepsinden ö nce size delphi ile ilgili biraz bilmeniz gereken bilgileri verecegim .
Ö nce delphi ile ilgili biraz bilgi vereyim .
Delphi pascal tabanli olup g ö rsel bir yazilim dilidir ve bilgisayarcilar arasinda cok popilerdir .
Delphide program yazarken iki yerle cok hasir nesir olacagiz .
Bunlardan birincisi komponentler b ö l ü m ü ikincisi ise “ Object Inspector ” penceresidir .
Komponentler b ö l ü m ü zaten delphiyi actiginiz zaman karsiniza ana pecerede cikan Standart ,
additional , win32 … gibi siralanip giden basamakli pencereler olarak karsiniza cikar .
Object Inspector penceresi ise kendi arasinda iki basamakli pencere olarak ikiye ayrilir .
Ilki Properties ikinci ise events b ö l ü m ü d ü r . Bu pencerelerin her ikiside cok ö nemlidir .
Properties peceresi formunuza eklediginiz komponentlerin ö zelliklerini control edip degistirebilirsiz .
( Bu b ö l ü mle su an pek isimiz yok )
Evrents penceresi ise formunuzdaki komponemtlerin olaylarina m ü dale etmenize saglayacak mesela
acip bakarsaniz On Click yazar bu o an tikladiginizda ne yapmanizi istediginizi o kisma yazarak
beliritirsiniz .
Simdi gelelim trojen yazma islemimize once delphide trojen matigindan biraz bahsediyim .
Delphide ag dedimiz zaman ( bu islem komponentler ile yapildigi zaman )
verici client alici server degimleri akla gelir . Client komut g ö nderir truva ati yani server
komutu yerine getirir .
Simdi yazmaya baslayalim once serveri yani truva atini yazalim .
Simdi delphiyi actiginizda ilk form cikar bu forma komponentlerin internet basamagina gelip
tcpserver tiklayin ve formunuzun uygun bir yerine tiklayin formunuza yelestigini g ö receksiniz .
Bu islemi yaptiktan sonra formun ü zerine ikikere tiklayarak formun creat kod bloguna giriniz .
Buraya su kodlari yaziniz .
procedure TForm1 . FormCreate ( Sender : TObject );
begin
form1 . TcpServer1 . LocalPort :=’ 222 ’; //hangi porttan veri dinleyecegi belirlenir.
form1 . TcpServer1 . Active := true ; // basla
end ;
end .
Bu islemi yaptiktan sonra F 9 basarak isleminizin calisip calismadiginizi gorebilisiniz .
Simdi komut yorumlayacagi yeri islemi yapalim .
Bunun icin “ Object Inspector ” penceresinin Evrents basamagindan yaralanacagiz .
Bunun icin forma yerlestirdigimiz tcpserver componentini tiklayin ve “ Object Inspector ”
pecresinin evrents basamagini tiklayin ve ordaki On Accept b ö l ü m ü ne tiklayin ve acilan
kod bloguna su kodlari yaziniz .
procedure TForm1 . TcpServer1Accept ( Sender : TObject ;
ClientSocket : TCustomIpClient );
var
a : string ;
begin
a := clientsocket . Receiveln ();
if a = 'mesaj' then
begin
showmessage ( '**** CODDER 71® ****' );
end
end ;
end .
Bu kod islemini yaptiktan sonra bu formu kaydetip kapatin kaydetme islemi file — save projet
as ve geriside bilindigi gibi kaydet kaydet deyin ve birkez F 9 ´ a basin cikin .
Server islemi tamam .
Simdi clienti formu yazmaya geldik
Kodlari yazmaya baslamadan once sunlari forma yerlestiriniz .
Componentlerden standart bol ü m ü nden
2 adet edit text
1 adet label
2 adette button koyunuz ve
internet basmagindan tcpclient koyunuz .
Simdi kodlari yazalim
Forma ikikere tiklayarak acilan kod bloguna su kodlari yaziniz .
procedure TForm1 . FormCreate ( Sender : TObject );
begin
form1 . Label1 . Caption := form1 . TcpClient1 . LocalHostAddr ;
form1 . Edit1 . Text := form1 . TcpClient1 . LocalHostAddr ;
form1 . Edit2 . Text := '222' ;
form1 . Button1 . Caption := 'CONNECT' ;
FORM1 . Button2 . Caption := 'SEND' ;
end ;
bu islemden sonra
formdaki button1 yazan buton ü st ü ne gelip ikikere tiklayarak su kodlari yaziniz .
form1 . TcpClient1 . RemoteHost := form1 . Edit1 . Text ; //ip
form1 . TcpClient1 . RemotePort := form1 . Edit2 . Text ; //serverin dinledigi port
form1 . TcpClient1 . Connect ; //baglan
bu islemdende sonra button2 yazan butonun ustune gelip ikikere tiklayarak
acilan kod buloguna ise su kodlari yaziniz .
procedure TForm1 . Button2Click ( Sender : TObject );
begin
FORM1 . TcpClient1 . Sendln ( 'mesaj' ); //komut gonder
end ;
end .
Iste ilk trojenimiz bitti bunu daha once dedigim gibi kaydetin ve bir kez F 9 ´ a
basin ve cikin ve dosyalari kaydettiginiz yeri acin ve exeleri olusmus olacaktir
onlari alip kullanabilirsiniz .
( sari renkli iconlari vardir . 7 isareti iconlardir .)
Dikkat : Bu anlatiklarim hepsi delphi 7 icindir .
Cok amat ö rce oldu ama insallah size mantigi biraz olsun anlamaniza yardimci olmusumdur .
Trojenlerin % 70 - 80 bu y ö ntemle yazilir cok ü nl ü wormlar bile bu y ö ntemle yazilmislardir .
Aslinda burda ag mantigini kapmak olay bunu ö rendiseniz cok gelismis ag programlari yazabilirsiniz .
Hadi kolay gelsin …
Delphi - .....................................
masaustundeki iconlari gizlemek-gostermek
//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi
// Masa üstündeki ikonları gizle
ShowWindow ( FindWindow ( nil , 'Program Manager' ), SW_HIDE );
// Masa üstündeki ikonları göster
ShowWindow ( FindWindow ( nil , 'Program Manager' ), SW_SHOW );
Delphi - .....................................
masaustundeki iconlari gizlemek-gostermek
//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi
// Masa üstündeki ikonları gizle
ShowWindow ( FindWindow ( nil , 'Program Manager' ), SW_HIDE );
// Masa üstündeki ikonları göster
ShowWindow ( FindWindow ( nil , 'Program Manager' ), SW_SHOW );
Delphi - .....................................
yazıyı dondurerek form uzerine yazdirma_capraz sekilde
//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi
procedure TForm1 . Button1Click ( Sender : TObject );
var
lf : TLogFont ;
tf : TFont ;
begin
with Form1 . Canvas do
begin
Font . Name := 'Arial' ;
Font . Size := 24 ;
tf := TFont . Create ;
tf . Assign ( Font );
GetObject ( tf . Handle , sizeof ( lf ), @ lf );
lf . lfEscapement := 450 ;
lf . lfOrientation := 450 ;
tf . Handle := CreateFontIndirect ( lf );
Font . Assign ( tf );
tf . Free ;
TextOut ( 20 , Height div 2 , 'Rotated Text!' );
end ;
end ;
Delphi - .....................................
yazıyı dondurerek form uzerine yazdirma_capraz sekilde
//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi
procedure TForm1 . Button1Click ( Sender : TObject );
var
lf : TLogFont ;
tf : TFont ;
begin
with Form1 . Canvas do
begin
Font . Name := 'Arial' ;
Font . Size := 24 ;
tf := TFont . Create ;
tf . Assign ( Font );
GetObject ( tf . Handle , sizeof ( lf ), @ lf );
lf . lfEscapement := 450 ;
lf . lfOrientation := 450 ;
tf . Handle := CreateFontIndirect ( lf );
Font . Assign ( tf );
tf . Free ;
TextOut ( 20 , Height div 2 , 'Rotated Text!' );
end ;
end ;
Delphi - .....................................
form acılısına resim ekleme_splash resim
//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi
Programlar ı n ı z a çı l ı rken bir form getirin . Splash Screen nas ı l yap ı l ı r ?
Project Source 'u açın. Eğer bir çok form kullanıyorsanız projenizde Application.CreateForm(TForm2, Form2); satırından sonra diğer formları da aynen form2 gibi yaratın. Ve bir alt satırına ekleyin:
Application . CreateForm ( Tform3 , Form3 ); / gibi …
name : form1 / SplashScreen olarak kullan ı lacak form
name : form2 / Ana formumuz .
View | Project Source ( View men ü s ü nden Project Source se ç ene ğ ini se ç erek a ç abilirsiniz .)
Daha sonra a ş a ğı daki kodu program ı n ı za ekleyin .
program Project1 ;
uses
Forms ,
Unit1 in 'Unit1.pas' {Form1} ,
Unit2 in 'Unit2.pas' {Form2} ;
{$R *.RES}
begin
form1 := TForm1 . Create ( application );
form1 . show ;
form1 . update ;
Application . CreateForm ( TForm2 , Form2 );
form1 . hide ;
form1 . Free ;
Application . Run ;
end .
Delphi - .....................................
form acılısına resim ekleme_splash resim
//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi
Programlar ı n ı z a çı l ı rken bir form getirin . Splash Screen nas ı l yap ı l ı r ?
Project Source 'u açın. Eğer bir çok form kullanıyorsanız projenizde Application.CreateForm(TForm2, Form2); satırından sonra diğer formları da aynen form2 gibi yaratın. Ve bir alt satırına ekleyin:
Application . CreateForm ( Tform3 , Form3 ); / gibi …
name : form1 / SplashScreen olarak kullan ı lacak form
name : form2 / Ana formumuz .
View | Project Source ( View men ü s ü nden Project Source se ç ene ğ ini se ç erek a ç abilirsiniz .)
Daha sonra a ş a ğı daki kodu program ı n ı za ekleyin .
program Project1 ;
uses
Forms ,
Unit1 in 'Unit1.pas' {Form1} ,
Unit2 in 'Unit2.pas' {Form2} ;
{$R *.RES}
begin
form1 := TForm1 . Create ( application );
form1 . show ;
form1 . update ;
Application . CreateForm ( TForm2 , Form2 );
form1 . hide ;
form1 . Free ;
Application . Run ;
end .
Delphi - .....................................
buton efekti_3 resimden olusan buton yapma
//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi
Web t ü r ü buton yapman ı n amac ı bildi ğ iniz gibi delphinin standart buttonlar ı genellikle klasik programlar i ç in kullan ı l ı r . Ş imdi yapaca ğı m ı z button kendi ç izdi ğ imiz 3 resimden olu ş uyor . Ö ncelikle 3 adet ayn ı boyda ayn ı textli button ç izin . 1. Resim ; buttonun Sabit yani Form ü zerindeki duru ş udur 2. Resim ; Program ı m ı z ç al ışı rken mouse ile ayn ı buttonun ü zerine geldi ğ imize buttonun alaca ğı ş ekil olacakt ı r . 3.Resim ; Program ı m ı z ç al ışı rken yapt ığı m ı z button t ı klan ı nca alaca ğı ş ekildir .
Dikkat ettiyseniz bu taktik HTLM ( Web ) i ç in button haz ı rlanmas ı takti ğ i ile ayn ı d ı r . Ş imdi bu takti ğ i kullanmaya ba ş layal ı m . Ö ncelikle Form ü zerine Image kontrol ü n ü ekleyelim ve resim olarak yapt ığı m ı z 1. resmi ekleyelim . Şı mdi s ı ra Program ı m ı za de ğ i ş ken tan ı mlayal ı m ;
SetMouse : boolean ;
De ğ i ş ken tan ı mlama i ş imiz bitince Image Mouse Down olay ı na a ş a ğı daki kodlar ı yaz ı n ı z
procedure TForm1 . Image1MouseDown ( Sender : TObject ; Button : TMouseButton ; Shift : TShiftState ; X , Y : Integer );
begin
SetMouse := true ; //Mouse Resmin üzerinde Basık olduğunu anlamamız için
image1 . Picture . LoadFromFile ( 'start-3.bmp' ); //Mouse Click Durumunda
end ;
Daha Sonra image Mouse Move Olay ı na a ş a ğı daki kodlar ı yaz ı n ı z
procedure TForm1 . Image1MouseMove ( Sender : TObject ; Shift : TShiftState ; X , Y : Integer );
begin
image1 . Picture . LoadFromFile ( 'start-2.bmp' ); //Mouse Buttonun üzerine gelince buttonun alacağı şekil
if SetMouse then
image1 . Picture . LoadFromFile ( 'start-3.bmp' ); //Mouse Click Durumunda Buttonun üzerindeki şekil
end ;
Mouse button ü zerinde click vaziyetinde olup olmad ığı n ı de ğ i ş kene aktarmak i ç in Image Mouse up olay ı na a ş a ğı daki kodu yaz ı n ı z
procedure TForm1 . Image1MouseUp ( Sender : TObject ; Button : TMouseButton ; Shift : TShiftState ; X , Y : Integer );
begin
SetMouse := false ; //Mouse Click Durumunda Değil
end ;
Button G ö r ü nt ü leri Tamamland ı ş imdi Click Yordam ı n ı yapal ı m . Image Click olay ı na a ş a ğı daki kodu yaz ı n ı z .
procedure TForm1 . Image1OnClick ( Sender : TObject ; Shift : TShiftState ; X , Y : Integer );
begin
image1 . Picture . LoadFromFile ( 'start-3.jpg' );
ShowMessage ( 'Button Tıklandı ' );
end ;
Buttonla olan i ş imiz bitti Mouse buttonumuzun ü zerinde olmad ığı zaman i ç in mouse ş eklini yapal ı m bunun i ç in Form Mouse Move Olay ı na A ş a ğı daki kodlar ı yaz ı n ı z .
procedure TForm1 . FormMouseMove ( Sender : TObject ; Shift : TShiftState ; X , Y : Integer );
begin
image1 . Picture . LoadFromFile ( 'start-1.jpg' );
end ;
Ve i ş lemimiz bitti . Program ı n ı zda birden fazla Bu t ü r button koyman ı z i ç in B ü t ü n buttonlar i ç in ayn ı i ş lemi yap ı n ı z . Form Mouse Move olay ı na her button i ç in yukar ı daki program sat ı r ı n ı yaz ı n ı z .
Ö rnek :
procedure TForm1 . FormMouseMove ( Sender : TObject ; Shift : TShiftState ; X , Y : Integer );
begin
image1 . Picture . LoadFromFile ( 'Connect-1.jpg' );
image2 . Picture . LoadFromFile ( 'DeConnect-1.jpg' );
image3 . Picture . LoadFromFile ( 'Atack-1.jpg' );
image4 . Picture . LoadFromFile ( 'Exit-1.jpg' );
end ;
ş eklinde yap ı n ı z .
Bildi ğ iniz gibi Web ' de bu taktiği kullanmamız için Button için yaptığımız resimlerin HTLM de belirtilen Dizinde olması gerekir .Yani Bizim yukarıda yaptığımız olayda resim dosyalarının yerini belirtmememizin amacı resim Button Resim Dosyalarının Program ile aynı dizinde olmasıdır. Bu yüzden sorunun ne olduğunu anladınız galiba yani program bu açıktan dolayı kullanıcı tarıfından değiştirilebilir. Winamp MP3 çalıcıyı bilirsiniz . Winamp SKIN' nin ne oldu ğ unu da biliyorsunuz san ı r ı m , Yani demek istedi ğ im Winamp SKIN 'de de bu taktik kullanılmıştır .
Asl ı nda bu sorun de ğ il , çü nk ü bu olay ı IMAGE LIST Kontrol ü de yapar . IMAGE LIST bir Olay i ç in kullan ı lan birden fazla resim i ç in kullan ı lan resim dosyalar ı olmadan program ı n ba ğı ms ı z ç al ış mas ı i ç in kullan ı l ı r . IMAGE LIST Delphinin Win32 sekmesinde bulunur . Gif takti ğ ine benzer bir taktikle ç al ışı r , biraz incelerseniz kolayl ı kla kullanabilirsiniz . Bu arada Delphinin Additional sekmesinde bulunan BitBTN kontrol ü yle de buna benzer ama kolay Button kullanabilirsiniz .
Delphi - .....................................
buton efekti_3 resimden olusan buton yapma
//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle
//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi
Web t ü r ü buton yapman ı n amac ı bildi ğ iniz gibi delphinin standart buttonlar ı genellikle klasik programlar i ç in kullan ı l ı r . Ş imdi yapaca ğı m ı z button kendi ç izdi ğ imiz 3 resimden olu ş uyor . Ö ncelikle 3 adet ayn ı boyda ayn ı textli button ç izin . 1. Resim ; buttonun Sabit yani Form ü zerindeki duru ş udur 2. Resim ; Program ı m ı z ç al ışı rken mouse ile ayn ı buttonun ü zerine geldi ğ imize buttonun alaca ğı ş ekil olacakt ı r . 3.Resim ; Program ı m ı z ç al ışı rken yapt ığı m ı z button t ı klan ı nca alaca ğı ş ekildir .
Dikkat ettiyseniz bu taktik HTLM ( Web ) i ç in button haz ı rlanmas ı takti ğ i ile ayn ı d ı r . Ş imdi bu takti ğ i kullanmaya ba ş layal ı m . Ö ncelikle Form ü zerine Image kontrol ü n ü ekleyelim ve resim olarak yapt ığı m ı z 1. resmi ekleyelim . Şı mdi s ı ra Program ı m ı za de ğ i ş ken tan ı mlayal ı m ;
SetMouse : boolean ;
De ğ i ş ken tan ı mlama i ş imiz bitince Image Mouse Down olay ı na a ş a ğı daki kodlar ı yaz ı n ı z
procedure TForm1 . Image1MouseDown ( Sender : TObject ; Button : TMouseButton ; Shift : TShiftState ; X , Y : Integer );
begin
SetMouse := true ; //Mouse Resmin üzerinde Basık olduğunu anlamamız için
image1 . Picture . LoadFromFile ( 'start-3.bmp' ); //Mouse Click Durumunda
end ;
Daha Sonra image Mouse Move Olay ı na a ş a ğı daki kodlar ı yaz ı n ı z
procedure TForm1 . Image1MouseMove ( Sender : TObject ; Shift : TShiftState ; X , Y : Integer );
begin
image1 . Picture . LoadFromFile ( 'start-2.bmp' ); //Mouse Buttonun üzerine gelince buttonun alacağı şekil
if SetMouse then
image1 . Picture . LoadFromFile ( 'start-3.bmp' ); //Mouse Click Durumunda Buttonun üzerindeki şekil
end ;
Mouse button ü zerinde click vaziyetinde olup olmad ığı n ı de ğ i ş kene aktarmak i ç in Image Mouse up olay ı na a ş a ğı daki kodu yaz ı n ı z
procedure TForm1 . Image1MouseUp ( Sender : TObject ; Button : TMouseButton ; Shift : TShiftState ; X , Y : Integer );
begin
SetMouse := false ; //Mouse Click Durumunda Değil
end ;
Button G ö r ü nt ü leri Tamamland ı ş imdi Click Yordam ı n ı yapal ı m . Image Click olay ı na a ş a ğı daki kodu yaz ı n ı z .
procedure TForm1 . Image1OnClick ( Sender : TObject ; Shift : TShiftState ; X , Y : Integer );
begin
image1 . Picture . LoadFromFile ( 'start-3.jpg' );
ShowMessage ( 'Button Tıklandı ' );
end ;
Buttonla olan i ş imiz bitti Mouse buttonumuzun ü zerinde olmad ığı zaman i ç in mouse ş eklini yapal ı m bunun i ç in Form Mouse Move Olay ı na A ş a ğı daki kodlar ı yaz ı n ı z .
procedure TForm1 . FormMouseMove ( Sender : TObject ; Shift : TShiftState ; X , Y : Integer );
begin
image1 . Picture . LoadFromFile ( 'start-1.jpg' );
end ;
Ve i ş lemimiz bitti . Program ı n ı zda birden fazla Bu t ü r button koyman ı z i ç in B ü t ü n buttonlar i ç in ayn ı i ş lemi yap ı n ı z . Form Mouse Move olay ı na her button i ç in yukar ı daki program sat ı r ı n ı yaz ı n ı z .
Ö rnek :
procedure TForm1 . FormMouseMove ( Sender : TObject ; Shift : TShiftState ; X , Y : Integer );
begin
image1 . Picture . LoadFromFile ( 'Connect-1.jpg' );
image2 . Picture . LoadFromFile ( 'DeConnect-1.jpg' );
image3 . Picture . LoadFromFile ( 'Atack-1.jpg' );
image4 . Picture . LoadFromFile ( 'Exit-1.jpg' );
end ;
ş eklinde yap ı n ı z .
Bildi ğ iniz gibi Web ' de bu taktiği kullanmamız için Button için yaptığımız resimlerin HTLM de belirtilen Dizinde olması gerekir .Yani Bizim yukarıda yaptığımız olayda resim dosyalarının yerini belirtmememizin amacı resim Button Resim Dosyalarının Program ile aynı dizinde olmasıdır. Bu yüzden sorunun ne olduğunu anladınız galiba yani program bu açıktan dolayı kullanıcı tarıfından değiştirilebilir. Winamp MP3 çalıcıyı bilirsiniz . Winamp SKIN' nin ne oldu ğ unu da biliyorsunuz san ı r ı m , Yani demek istedi ğ im Winamp SKIN 'de de bu taktik kullanılmıştır .
Asl ı nda bu sorun de ğ il , çü nk ü bu olay ı IMAGE LIST Kontrol ü de yapar . IMAGE LIST bir Olay i ç in kullan ı lan birden fazla resim i ç in kullan ı lan resim dosyalar ı olmadan program ı n ba ğı ms ı z ç al ış mas ı i ç in kullan ı l ı r . IMAGE LIST Delphinin Win32 sekmesinde bulunur . Gif takti ğ ine benzer bir taktikle ç al ışı r , biraz incelerseniz kolayl ı kla kullanabilirsiniz . Bu arada Delphinin Additional sekmesinde bulunan BitBTN kontrol ü yle de buna benzer ama kolay Button kullanabilirsiniz .
Delphi - .....................................
