Listwiev içeriğini kaydetme
ListView iç eri ğ ini dosyaya kaydetme ve a ç ma
Formunuzda kulland ığı n ı z ListView daki verileri kaydedip a ç mak i ç in yazd ığı m bir unit .
A ş a ğı dada a çı klamas ı yaz ı yor ama burayada yazal ı m , ana formunuza ListView ekleyip , ViewStyle ö zelli ğ ini vsReport yap ı p alanlar ı olu ş turun , tetikleyecek bir buton ile kullanabilirsiniz , a ç ma ve kaydetmek i ç in formunuza OpenDialog veya SaveDialog eklemenize gerek yoktur , unit i ç erisinde bunu kodla yapt ı m . Geli ş tirilmeye a çı kt ı r . Umar ı m i ş inize yarar .
//_________________________________________________________________________
// Formunuza bir ListView ekleyin. ListView un ViewStyle özelliğini vsReport
// yapıp, alanları ekleyin. Tetikleyecek bir buton ya da başka bir nesneyle
// aşağıdaki şekilde kullanabilirsiniz.
// ____________________________________________________
// KULLANIMI:
// ____________________________________________________
// Dosya açmak için -->
// ListViewda_Dosya_Ac_Kaydet(Form1, ListView1, False);
// ____________________________________________________
// Dosya kaydetmek için -->
// ListViewda_Dosya_Ac_Kaydet(Form1, ListView1, True);
// ____________________________________________________
unit Unit_ListView2Text ;
interface
uses Windows , SysUtils , ComCtrls , Forms , commdlg ;
function ListViewda_Dosya_Ac_Kaydet ( hangiForm : TForm ;
ListVAdi : TListView ;
saveMi : boolean ): boolean ;
const
ayirac_Karakteri : char = ';' ; // Alanlari birbirinden ayırmak için dosyada
// kullanılır.
implementation
procedure ListView_Ac ( lvA : TListview ; dosyaAdi : string );
var
lvd_Dosya : textFile ;
girdi_satir : string ;
i : integer ;
captionYazildi : boolean ;
veri : string ;
ListItem : TListitem ;
begin
lvA . Clear ;
ListItem := nil ;
assignFile ( lvd_Dosya , dosyaAdi );
reset ( lvd_Dosya );
while not eof ( lvd_Dosya ) do
begin
girdi_satir :=";
readln ( lvd_Dosya , girdi_satir );
girdi_satir := trim ( girdi_satir );
captionYazildi := false ;
i := 1 ;
veri :=";
//Bu bölüm ayirac_Karakteri ile ayrılmış bir satırı okuyup listView daki
//alanlara ekler.
while not ( i > length ( girdi_Satir )) do
begin
with lvA do
begin
if girdi_Satir [ i ]= ayirac_Karakteri then
case captionYazildi of //--->
true :
begin
ListItem . SubItems . Add ( veri );
veri :=";
i := i + 1 ;
end ;
false :
begin
ListItem := Items . Add ;
ListItem . Caption := veri ;
veri :=";
captionYazildi := true ;
i := i + 1 ;
end ; //<---
end
else
begin
veri := veri + girdi_Satir [ i ];
i := i + 1 ;
end ;
end ;
end ;
end ;
CloseFile ( lvd_Dosya );
end ;
procedure ListView_Kaydet ( lvK : TListview ; dosyaAdi : string );
var
lvd_Dosya : textFile ;
satirNo , sutunNo : integer ;
cikti_satir : string ;
begin
assignFile ( lvd_Dosya , dosyaAdi );
Rewrite ( lvd_Dosya );
// Bu bölüm listview daki verileri ayirac_Karakteri (const) ile ayırarak
// kaydeder.
for satirNo := 0 to lvK . Items . Count - 1 do
begin
cikti_satir :=";
cikti_satir := trim ( lvK . Items [ satirNo ]. Caption ) + ayirac_Karakteri ;
for sutunNo := 0 to lvK . Items [ satirno ]. SubItems . Count - 1 do
cikti_satir := cikti_satir +
trim ( lvK . Items [ satirno ]. SubItems [ sutunNo ]) +
ayirac_Karakteri ;
writeln ( lvd_dosya , cikti_satir );
end ;
CloseFile ( lvd_Dosya );
end ;
function ListViewda_Dosya_Ac_Kaydet ( hangiForm : TForm ;
ListVAdi : TListView ;
saveMi : boolean ): boolean ;
var
ofn : tagOFNa ;
szFileName : array [ 0 .. MAX_PATH ] of char ;
begin
//Dosya açma ve kaydetme dialoglari için ayarlar bölümü
ZeroMemory ( @ ofn , sizeof ( ofn ) );
szFileName [ 0 ] := #0 ;
ofn . lStructSize := sizeof ( ofn );
ofn . hWndOwner := hangiForm . Handle ;
ofn . lpstrFilter := pchar ( 'ListView Dosyası' + #0 + '*.lvd' );
ofn . lpstrFile := szFileName ;
ofn . nMaxFile := MAX_PATH ;
ofn . lpstrDefExt := pchar ( '*.lvd' );
result := False ;
if ( saveMi ) then
begin
ofn . Flags := OFN_EXPLORER + OFN_PATHMUSTEXIST +
OFN_HIDEREADONLY + OFN_OVERWRITEPROMPT ;
if GetSaveFileName ( ofn ) then //commdlg unit inden
begin
ListView_Kaydet ( ListVAdi , szFileName );
result := True ;
end ;
end
else
begin
ofn . Flags := OFN_EXPLORER + OFN_FILEMUSTEXIST + OFN_HIDEREADONLY ;
if GetOpenFileName ( ofn ) then //commdlg unit inden
begin
ListView_Ac ( ListVAdi , szFileName );
result := True ;
end ;
end ;
end ;
end .
Delphi - .....................................
ADAM ASMACA OYUNU KODLARI
unit Unit1 ;
interface
uses
Windows , Messages , SysUtils , Variants , Classes , Graphics , Controls , Forms ,
Dialogs , ExtCtrls , StdCtrls , Buttons , jpeg ;
type
TForm1 = class ( TForm )
BitBtn1 : TBitBtn ;
BitBtn2 : TBitBtn ;
BitBtn3 : TBitBtn ;
BitBtn4 : TBitBtn ;
BitBtn5 : TBitBtn ;
BitBtn6 : TBitBtn ;
BitBtn7 : TBitBtn ;
BitBtn8 : TBitBtn ;
BitBtn9 : TBitBtn ;
BitBtn10 : TBitBtn ;
BitBtn11 : TBitBtn ;
BitBtn12 : TBitBtn ;
BitBtn13 : TBitBtn ;
BitBtn14 : TBitBtn ;
BitBtn15 : TBitBtn ;
BitBtn16 : TBitBtn ;
BitBtn17 : TBitBtn ;
BitBtn18 : TBitBtn ;
BitBtn19 : TBitBtn ;
BitBtn20 : TBitBtn ;
BitBtn21 : TBitBtn ;
BitBtn22 : TBitBtn ;
BitBtn23 : TBitBtn ;
BitBtn24 : TBitBtn ;
BitBtn25 : TBitBtn ;
BitBtn26 : TBitBtn ;
BitBtn27 : TBitBtn ;
BitBtn28 : TBitBtn ;
BitBtn29 : TBitBtn ;
BitBtn31 : TBitBtn ;
BitBtn32 : TBitBtn ;
Label1 : TLabel ;
Shape1 : TShape ;
Shape2 : TShape ;
Shape3 : TShape ;
Shape4 : TShape ;
Shape6 : TShape ;
Shape7 : TShape ;
Shape8 : TShape ;
StaticText1 : TStaticText ;
StaticText2 : TStaticText ;
StaticText3 : TStaticText ;
StaticText4 : TStaticText ;
StaticText5 : TStaticText ;
StaticText6 : TStaticText ;
StaticText7 : TStaticText ;
StaticText8 : TStaticText ;
StaticText9 : TStaticText ;
BitBtn30 : TBitBtn ;
Label3 : TLabel ;
Image1 : TImage ;
Shape9 : TShape ;
Shape10 : TShape ;
Shape11 : TShape ;
Shape12 : TShape ;
procedure BitBtn32Click ( Sender : TObject );
procedure BitBtn31Click ( Sender : TObject );
procedure BitBtn1Click ( Sender : TObject );
procedure BitBtn14Click ( Sender : TObject );
procedure BitBtn11Click ( Sender : TObject );
procedure BitBtn17Click ( Sender : TObject );
procedure BitBtn21Click ( Sender : TObject );
procedure BitBtn6Click ( Sender : TObject );
procedure BitBtn3Click ( Sender : TObject );
procedure BitBtn20Click ( Sender : TObject );
procedure BitBtn2Click ( Sender : TObject );
procedure FormCreate ( Sender : TObject );
procedure BitBtn4Click ( Sender : TObject );
procedure BitBtn5Click ( Sender : TObject );
procedure BitBtn7Click ( Sender : TObject );
procedure BitBtn8Click ( Sender : TObject );
procedure BitBtn9Click ( Sender : TObject );
procedure BitBtn10Click ( Sender : TObject );
procedure BitBtn12Click ( Sender : TObject );
procedure BitBtn13Click ( Sender : TObject );
procedure BitBtn15Click ( Sender : TObject );
procedure BitBtn16Click ( Sender : TObject );
procedure BitBtn18Click ( Sender : TObject );
procedure BitBtn19Click ( Sender : TObject );
procedure BitBtn22Click ( Sender : TObject );
procedure BitBtn23Click ( Sender : TObject );
procedure BitBtn24Click ( Sender : TObject );
procedure BitBtn25Click ( Sender : TObject );
procedure BitBtn26Click ( Sender : TObject );
procedure BitBtn27Click ( Sender : TObject );
procedure BitBtn28Click ( Sender : TObject );
procedure BitBtn29Click ( Sender : TObject );
private
{ Private declarations }
public
{ Public declarations }
end ;
var
Form1 : TForm1 ;
t , i , z : integer ;
implementation
{$R *.dfm}
procedure TForm1 . BitBtn32Click ( Sender : TObject );
begin
close ;
end ;
procedure TForm1 . BitBtn31Click ( Sender : TObject );
begin
for i := 0 to ( componentcount - 1 ) do
if components [ i ] is Tbitbtn then ( components [ i ] as Tbitbtn ). enabled := true ;
statictext1 . Enabled := true ;
statictext2 . Enabled := true ;
statictext3 . Enabled := true ;
statictext4 . Enabled := true ;
statictext5 . Enabled := true ;
statictext6 . Enabled := true ;
statictext7 . Enabled := true ;
statictext8 . Enabled := true ;
statictext9 . Enabled := true ;
for i := 0 to ( componentcount - 1 ) do
if components [ i ] is Tbitbtn then ( components [ i ] as Tbitbtn ). enabled := true ;
t := t + 1 ;
if t = 3 then begin ShowMessage ( '>>>>>Oyun Bitmiştir!<<<<<' ); close ; end ;
if t = 2 then begin
statictext1 . Caption :="; statictext2 . Caption :="; stat ictext3 . Caption :="; statictext4 . Caption :="; staticte xt5 . Caption :=";
statictext6 . Caption :="; statictext7 . Caption :="; stat ictext8 . Caption :="; statictext9 . Caption :=";
for i := 0 to ( componentcount - 1 ) do
if components [ i ] is Tbitbtn then ( components [ i ] as Tbitbtn ). enabled := true ;
shape4 . Visible := false ;
image1 . Visible := false ;
shape6 . Visible := false ;
shape7 . Visible := false ;
shape8 . Visible := false ;
shape9 . Visible := false ;
shape10 . Visible := false ;
shape11 . Visible := false ;
shape12 . Visible := false ;
z := 0 ;
end ;
end ;
procedure TForm1 . BitBtn1Click ( Sender : TObject );
begin
if t = 1 then begin
bitbtn1 . Enabled := false ;
statictext1 . Caption := 'A' ;
if ( statictext2 . Caption = 'K' ) and ( statictext3 . Caption = 'I' ) and ( statictext4 . Caption = 'N' ) and ( statictext5 . Caption = 'R' ) and ( statictext6 . Caption = 'E' ) and ( statictext7 . Caption = 'C' ) and ( statictext8 . Caption = 'E' ) and ( statictext9 . Caption = 'P' ) then begin showmessage ( 'Kazandınız...' );
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
statictext1 . Caption :="; statictext2 . Caption :="; stat ictext3 . Caption :="; statictext4 . Caption :="; staticte xt5 . Caption :=";
statictext6 . Caption :="; statictext7 . Caption :="; stat ictext8 . Caption :="; statictext9 . Caption :=";
end ;
end ;
if t = 2 then begin
bitbtn1 . Enabled := false ;
statictext2 . Caption := 'A' ; statictext5 . Caption := 'A' ; statictext7 . Caption := 'A' ; statictext9 . Caption := 'A' ;
if ( statictext3 . Caption = 'R' ) and ( statictext6 . Caption = 'R' ) and ( statictext8 . Caption = 'D' ) then begin showmessage ( 'Kazandınız...' ); close ; t := 0 ;
statictext1 . Caption :="; statictext2 . Caption :="; stat ictext3 . Caption :="; statictext4 . Caption :="; staticte xt5 . Caption :=";
statictext6 . Caption :="; statictext7 . Caption :="; stat ictext8 . Caption :="; statictext9 . Caption :=";
for i := 0 to ( componentcount - 1 ) do
if components [ i ] is Tbitbtn then ( components [ i ] as Tbitbtn ). enabled := true ;
end ;
end ;
end ;
procedure TForm1 . BitBtn14Click ( Sender : TObject );
begin
if t = 1 then begin
bitbtn14 . Enabled := false ;
statictext2 . Caption := 'K' ;
if ( statictext1 . Caption = 'A' ) and ( statictext3 . Caption = 'I' ) and ( statictext4 . Caption = 'N' ) and ( statictext5 . Caption = 'R' ) and ( statictext6 . Caption = 'E' ) and ( statictext7 . Caption = 'C' ) and ( statictext8 . Caption = 'E' ) and ( statictext9 . Caption = 'P' ) then begin showmessage ( 'Kazandınız...' );
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
statictext1 . Caption :="; statictext2 . Caption :="; stat ictext3 . Caption :="; statictext4 . Caption :="; staticte xt5 . Caption :=";
statictext6 . Caption :="; statictext7 . Caption :="; stat ictext8 . Caption :="; statictext9 . Caption :=";
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn14 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
end ;
procedure TForm1 . BitBtn11Click ( Sender : TObject );
begin
if t = 1 then begin
bitbtn11 . Enabled := false ;
statictext3 . Caption := 'I' ;
if ( statictext2 . Caption = 'K' ) and ( statictext1 . Caption = 'A' ) and ( statictext4 . Caption = 'N' ) and ( statictext5 . Caption = 'R' ) and ( statictext6 . Caption = 'E' ) and ( statictext7 . Caption = 'C' ) and ( statictext8 . Caption = 'E' ) and ( statictext9 . Caption = 'P' ) then begin showmessage ( 'Kazandınız...' );
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
statictext1 . Caption :="; statictext2 . Caption :="; stat ictext3 . Caption :="; statictext4 . Caption :="; staticte xt5 . Caption :=";
statictext6 . Caption :="; statictext7 . Caption :="; stat ictext8 . Caption :="; statictext9 . Caption :=";
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn11 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
end ;
procedure TForm1 . BitBtn17Click ( Sender : TObject );
begin
if t = 1 then begin
bitbtn17 . Enabled := false ;
statictext4 . Caption := 'N' ;
if ( statictext2 . Caption = 'K' ) and ( statictext3 . Caption = 'I' ) and ( statictext1 . Caption = 'A' ) and ( statictext5 . Caption = 'R' ) and ( statictext6 . Caption = 'E' ) and ( statictext7 . Caption = 'C' ) and ( statictext8 . Caption = 'E' ) and ( statictext9 . Caption = 'P' ) then begin showmessage ( 'Kazandınız...' );
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
statictext1 . Caption :="; statictext2 . Caption :="; stat ictext3 . Caption :="; statictext4 . Caption :="; staticte xt5 . Caption :=";
statictext6 . Caption :="; statictext7 . Caption :="; stat ictext8 . Caption :="; statictext9 . Caption :=";
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn17 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
end ;
procedure TForm1 . BitBtn21Click ( Sender : TObject );
begin
if t = 1 then begin
bitbtn21 . Enabled := false ;
statictext5 . Caption := 'R' ;
if ( statictext2 . Caption = 'K' ) and ( statictext3 . Caption = 'I' ) and ( statictext4 . Caption = 'N' ) and ( statictext1 . Caption = 'A' ) and ( statictext6 . Caption = 'E' ) and ( statictext7 . Caption = 'C' ) and ( statictext8 . Caption = 'E' ) and ( statictext9 . Caption = 'P' ) then begin showmessage ( 'Kazandınız...' );
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
statictext1 . Caption :="; statictext2 . Caption :="; stat ictext3 . Caption :="; statictext4 . Caption :="; staticte xt5 . Caption :=";
statictext6 . Caption :="; statictext7 . Caption :="; stat ictext8 . Caption :="; statictext9 . Caption :=";
end ;
end ;
if t = 2 then begin
bitbtn21 . Enabled := false ;
statictext3 . Caption := 'R' ; statictext6 . Caption := 'R' ;
if ( statictext2 . Caption = 'A' ) and ( statictext5 . Caption = 'A' ) and ( statictext7 . Caption = 'A' ) and ( statictext8 . Caption = 'D' ) and ( statictext9 . Caption = 'A' ) then begin showmessage ( 'Kazandınız...' ); t := 0 ;
statictext1 . Caption :="; statictext2 . Caption :="; stat ictext3 . Caption :="; statictext4 . Caption :="; staticte xt5 . Caption :=";
statictext6 . Caption :="; statictext7 . Caption :="; stat ictext8 . Caption :="; statictext9 . Caption :=";
for i := 0 to ( componentcount - 1 ) do
if components [ i ] is Tbitbtn then ( components [ i ] as Tbitbtn ). enabled := true ;
end ;
end ;
end ;
procedure TForm1 . BitBtn6Click ( Sender : TObject );
begin
if t = 1 then begin
bitbtn6 . Enabled := false ;
statictext6 . Caption := 'E' ;
statictext8 . Caption := 'E' ;
if ( statictext2 . Caption = 'K' ) and ( statictext3 . Caption = 'I' ) and ( statictext4 . Caption = 'N' ) and ( statictext5 . Caption = 'R' ) and ( statictext1 . Caption = 'A' ) and ( statictext7 . Caption = 'C' ) and ( statictext8 . Caption = 'E' ) and ( statictext9 . Caption = 'P' ) then begin showmessage ( 'Kazandınız...' );
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
statictext1 . Caption :="; statictext2 . Caption :="; stat ictext3 . Caption :="; statictext4 . Caption :="; staticte xt5 . Caption :=";
statictext6 . Caption :="; statictext7 . Caption :="; stat ictext8 . Caption :="; statictext9 . Caption :=";
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn6 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
end ;
procedure TForm1 . BitBtn3Click ( Sender : TObject );
begin
if t = 1 then begin
bitbtn3 . Enabled := false ;
statictext7 . Caption := 'C' ;
if ( statictext2 . Caption = 'K' ) and ( statictext3 . Caption = 'I' ) and ( statictext4 . Caption = 'N' ) and ( statictext1 . Caption = 'A' ) and ( statictext6 . Caption = 'E' ) and ( statictext1 . Caption = 'A' ) and ( statictext8 . Caption = 'E' ) and ( statictext9 . Caption = 'P' ) then begin showmessage ( 'Kazandınız...' );
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
statictext1 . Caption :="; statictext2 . Caption :="; stat ictext3 . Caption :="; statictext4 . Caption :="; staticte xt5 . Caption :=";
statictext6 . Caption :="; statictext7 . Caption :="; stat ictext8 . Caption :="; statictext9 . Caption :=";
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn3 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
end ;
procedure TForm1 . BitBtn20Click ( Sender : TObject );
begin
if t = 1 then begin
bitbtn20 . Enabled := false ;
statictext9 . Caption := 'P' ;
if ( statictext2 . Caption = 'K' ) and ( statictext3 . Caption = 'I' ) and ( statictext4 . Caption = 'N' ) and ( statictext1 . Caption = 'A' ) and ( statictext6 . Caption = 'E' ) and ( statictext7 . Caption = 'C' ) and ( statictext8 . Caption = 'E' ) and ( statictext1 . Caption = 'A' ) then begin showmessage ( 'Kazandınız...' );
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
statictext1 . Caption :="; statictext2 . Caption :="; stat ictext3 . Caption :="; statictext4 . Caption :="; staticte xt5 . Caption :=";
statictext6 . Caption :="; statictext7 . Caption :="; stat ictext8 . Caption :="; statictext9 . Caption :=";
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn20 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
end ;
procedure TForm1 . BitBtn2Click ( Sender : TObject );
begin
if t = 1 then begin
z := z + 1 ;
bitbtn2 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn2 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
end ;
procedure TForm1 . FormCreate ( Sender : TObject );
begin
statictext1 . Enabled := false ;
statictext2 . Enabled := false ;
statictext3 . Enabled := false ;
statictext4 . Enabled := false ;
statictext5 . Enabled := false ;
statictext6 . Enabled := false ;
statictext7 . Enabled := false ;
statictext8 . Enabled := false ;
statictext9 . Enabled := false ;
shape4 . Visible := false ;
image1 . Visible := false ;
shape6 . Visible := false ;
shape7 . Visible := false ;
shape8 . Visible := false ;
shape9 . Visible := false ;
shape10 . Visible := false ;
shape11 . Visible := false ;
shape12 . Visible := false ;
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
procedure TForm1 . BitBtn4Click ( Sender : TObject );
begin
if t = 1 then begin
z := z + 1 ;
bitbtn4 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn4 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
end ;
procedure TForm1 . BitBtn5Click ( Sender : TObject );
begin
if t = 1 then begin
z := z + 1 ;
bitbtn5 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
if t = 2 then begin
bitbtn5 . Enabled := false ;
statictext8 . Caption := 'D' ;
if ( statictext2 . Caption = 'A' ) and ( statictext3 . Caption = 'R' ) and ( statictext5 . Caption = 'A' ) and ( statictext6 . Caption = 'R' ) and ( statictext7 . Caption = 'A' ) and ( statictext9 . Caption = 'A' ) then begin showmessage ( 'Kazandınız...' ); t := 0 ;
statictext1 . Caption :="; statictext2 . Caption :="; stat ictext3 . Caption :="; statictext4 . Caption :="; staticte xt5 . Caption :=";
statictext6 . Caption :="; statictext7 . Caption :="; stat ictext8 . Caption :="; statictext9 . Caption :=";
for i := 0 to ( componentcount - 1 ) do
if components [ i ] is Tbitbtn then ( components [ i ] as Tbitbtn ). enabled := true ;
end ;
end ;
end ;
procedure TForm1 . BitBtn7Click ( Sender : TObject );
begin
if t = 1 then begin
z := z + 1 ;
bitbtn7 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn7 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
end ;
procedure TForm1 . BitBtn8Click ( Sender : TObject );
begin
if t = 1 then begin
z := z + 1 ;
bitbtn8 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn8 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
end ;
procedure TForm1 . BitBtn9Click ( Sender : TObject );
begin
if t = 1 then begin
z := z + 1 ;
bitbtn9 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
if t = 2 then begin
bitbtn9 . Enabled := false ;
z := z + z ;
end ;
end ;
procedure TForm1 . BitBtn10Click ( Sender : TObject );
begin
if t = 1 then begin
z := z + 1 ;
bitbtn10 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn10 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
end ;
procedure TForm1 . BitBtn12Click ( Sender : TObject );
begin
if t = 1 then begin
z := z + 1 ;
bitbtn12 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn12 . Enabled := false ;
shape4 . Visible := true ;
end ;
end ;
procedure TForm1 . BitBtn13Click ( Sender : TObject );
begin
if t = 1 then begin
z := z + 1 ;
bitbtn13 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn13 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
end ;
procedure TForm1 . BitBtn15Click ( Sender : TObject );
begin
if t = 1 then begin
z := z + 1 ;
bitbtn15 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn15 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
end ;
procedure TForm1 . BitBtn16Click ( Sender : TObject );
begin
if t = 1 then begin
z := z + 1 ;
bitbtn16 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
if t = 2 then begin
bitbtn16 . Enabled := false ;
statictext1 . Caption := 'M' ; statictext4 . Caption := 'M' ;
if ( statictext2 . Caption = 'A' ) and ( statictext3 . Caption = 'R' ) and ( statictext5 . Caption = 'A' ) and ( statictext6 . Caption = 'R' ) and ( statictext7 . Caption = 'A' ) and ( statictext8 . Caption = 'D' ) and ( statictext9 . Caption = 'A' ) then begin showmessage ( 'Kazandınız...' ); t := 0 ;
statictext1 . Caption :="; statictext2 . Caption :="; stat ictext3 . Caption :="; statictext4 . Caption :="; staticte xt5 . Caption :=";
statictext6 . Caption :="; statictext7 . Caption :="; stat ictext8 . Caption :="; statictext9 . Caption :=";
for i := 0 to ( componentcount - 1 ) do
if components [ i ] is Tbitbtn then ( components [ i ] as Tbitbtn ). enabled := true ;
end ;
end ;
end ;
procedure TForm1 . BitBtn18Click ( Sender : TObject );
begin
if t = 1 then begin
z := z + 1 ;
bitbtn18 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn18 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
end ;
procedure TForm1 . BitBtn19Click ( Sender : TObject );
begin
if t = 1 then begin
z := z + 1 ;
bitbtn19 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn19 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
end ;
procedure TForm1 . BitBtn22Click ( Sender : TObject );
begin
if t = 1 then begin
z := z + 1 ; bitbtn22 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2 . Enabled := false ;
bitbtn3 . Enabled := false ;
bitbtn4 . Enabled := false ;
bitbtn5 . Enabled := false ;
bitbtn6 . Enabled := false ;
bitbtn7 . Enabled := false ;
bitbtn8 . Enabled := false ;
bitbtn9 . Enabled := false ;
bitbtn10 . Enabled := false ;
bitbtn11 . Enabled := false ;
bitbtn12 . Enabled := false ;
bitbtn13 . Enabled := false ;
bitbtn14 . Enabled := false ;
bitbtn15 . Enabled := false ;
bitbtn16 . Enabled := false ;
bitbtn17 . Enabled := false ;
bitbtn18 . Enabled := false ;
bitbtn19 . Enabled := false ;
bitbtn20 . Enabled := false ;
bitbtn21 . Enabled := false ;
bitbtn22 . Enabled := false ;
bitbtn23 . Enabled := false ;
bitbtn24 . Enabled := false ;
bitbtn25 . Enabled := false ;
bitbtn26 . Enabled := false ;
bitbtn27 . Enabled := false ;
bitbtn28 . Enabled := false ;
bitbtn29 . Enabled := false ;
bitbtn30 . Enabled := false ;
end ;
end ;
if t = 2 then begin
z := z + 1 ;
bitbtn22 . Enabled := false ;
if z = 1 then shape4 . Visible := true ;
if z = 2 then image1 . Visible := true ;
if z = 3 then shape6 . Visible := true ;
if z = 4 then shape7 . Visible := true ;
if z = 5 then shape8 . Visible := true ;
if z = 6 then shape9 . Visible := true ;
if z = 7 then shape10 . Visible := true ;
if z = 8 then shape11 . Visible := true ;
if z = 9 then shape12 . Visible := true ;
if z = 9 then ShowMessage ( 'Kaybettiniz...' );
if z = 9 then begin
bitbtn1 . Enabled := false ;
bitbtn2
Delphi - .....................................
Form Boyutu Sabitlemek
FormCreate olayy'na
var
orj , aktif : integer ;
Begin
orj := 800 // Tasary'my'n yapy'ldy'?y' çözünürlük
aktif := screen . width ;
Form1 . ScaleBy ( aktif , orj );
end ;
Delphi - .....................................
HexToColor, ColorToHex
Renkleri kaydetmek iç in
Hexadecimal string renk kodunu , TColor ç eviri
function HexToColor ( sRenk : string ): TColor ;
begin
Result :=
RGB (
StrToInt ( '$' + Copy ( sRenk , 1 , 2 )),
StrToInt ( '$' + Copy ( sRenk , 3 , 2 )),
StrToInt ( '$' + Copy ( sRenk , 5 , 2 ))
);
end ;
Kullan ı m ı:
Label1 . Font . Color := HexToColor ( 'FF65FF' );
TColor dan Hexadecimal string renk koduna ç eviri
function ColorToHex ( Renk : TColor ): String ;
var
R , G , B : Byte ;
begin
Renk := ColorToRGB ( Renk );
R := GetRValue ( Renk );
G := GetGValue ( Renk );
B := GetBValue ( Renk );
ColorToHex := IntToHex ( R , 2 )+ IntToHex ( G , 2 )+ IntToHex ( B , 2 );
end ;
Kullan ı m ı:
RenkStringi := ColorToHex ( Label1 . Font . Color );
Bu sayede nesnelerin renklerini veritaban ı na kaydedebilirsiniz .
Delphi - .....................................
sesin kontrolu hemde çok kolay
sesin kontrolu hemde ç ok kolay
arkada ş lar bu gibi kodlar ı dll olarak yazman ı z ı tavsiye ederim .
çü nk ü bircok programda kullanman ı z ı sa ğ lar . vede ç ok h ı zl ı olurlar
kullan ı lan uses :
Windows ,
Messages ,
SysUtils ,
Classes ,
Graphics ,
Controls ,
Forms ,
Dialogs ,
StdCtrls ,
ExtCtrls ,
mmsystem ;
procedure seskontrol ( const sesseviyesi : DWord );
var
Woc : TWAVEOUTCAPS ;
begin
if WaveOutGetDevCaps ( WAVE_MAPPER , @ Woc , sizeof ( Woc )) = MMSYSERR_NOERROR then
if Woc . dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
WaveOutSetVolume ( WAVE_MAPPER , sesseviyesi );
end ;
Delphi - .....................................
Panel veya Buton Üzerinde Screen Saver
Formunuzun ü zerine bir buton ( Button1 ) birde panel ( Panel1 ) yerle ş tirin . Daha sonra Button1 'in OnClick eventine aşağıdaki kodu yazın.
procedure TForm1 . Button1Click ( Sender : TObject );
var
& nbsp ;& nbsp ; FSaverPath : String ;
& nbsp ;& nbsp ; StartupInfo : TStartupInfo ;
& nbsp ;& nbsp ; ProcessInformation : TProcessInformation ;
begin
& nbsp ;& nbsp ; FSaverPath := 'C:Winntsystem32sspipes.scr' ;
& nbsp ;& nbsp ; StartupInfo . cb := sizeOf ( TStartupInfo );
& nbsp ;& nbsp ; FillChar ( StartupInfo , sizeOf ( TStartupInfo ), #0 );
& nbsp ;& nbsp ; FillChar ( ProcessInformation , sizeOf ( TProcessInformation ), #0 );
& nbsp ;& nbsp ; CreateProcess ( nil , PChar ( FSaverPath + ' /p ' +
& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ; IntToStr ( Panel1 . Handle )),
& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ; nil , nil , false , 0 , nil , nil ,
& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ; StartupInfo , ProcessInformation );
& nbsp ;& nbsp ; // aşağıdaki kod bloğuda ekran koruyucunun özellikler sayfasını açar...
& nbsp ;& nbsp ; if ( CreateProcess ( nil , PChar ( FSaverPath + ' /c' ),
& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ; nil , nil , false , 0 , nil , nil ,
& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ;& nbsp ; StartupInfo , ProcessInformation )) then
& nbsp ;& nbsp ; ShowMessage ( 'Evet' ) Else ShowMessage ( 'Hayır' );
end ;
Delphi - .....................................
Acsess örneği bağlantı
procedure TForm1 . FormCreate ( Sender : TObject );
Var
Baglanti_metni , Segment1 , Segment2 , Segment3 : String ;
begin
Segment1 := 'Provider=Microsoft.Jet.OLEDB.4.0;' ;
Segment2 := 'Data Source=C:DosyalarNorthwind.mdb;' ;
Segment3 := 'Persist Security Info=False' ;
Baglanti_metni := Segment1 + Segment2 + Segment3 ;
ADOConnection1 . ConnectionString := Baglanti_metni ;
ADOConnection1 . LoginPrompt := False ;
ADOConnection1 . Open ;
end ;
ConnectionString ö zelli ğ ine aktar ı lan ilk bilgi ile Provider ( sa ğ lay ı c ı)ü
se ç imi yap ı lmaktad ı r . Ba ğ lanmak istenilen veritaban ı ise Data Source ad ı
verilen segment ile i ş aret edilmektedir . AdoConnection nesnesi ile
ba ğ lanmak istedi ğ iniz veritaban ı na ş ifre verilmi ş se Password segmenti
ile parolay ı ba ğ lant ı metnine eklemeniz gerekir . Veritaban ı ş ifreli
ise “ Persist Security Info ” adl ı segmenti True yapmal ı s ı n ı z . Access
veritabanlar ı i ç in Admin varsay ı lan kullan ı c ı d ı r . Farkl ı bir kullan ı c ı
ad ı ile veritaban ı na ba ğ lanmak istiyorsan ı z “ User ID ” segmentini
ba ğ lant ı metnine eklemeniz gerekir .
Delphi - .....................................
Programınızı çok kullanıcı yapın....
Program ı n ı z ı ç ok kullan ı c ı yap ı n ....
--------------------------------------------------------------------------------
Haz ı rlam ış oldu ğ unuz program ı n ı z ı a ğ ortam ı nda sorunsuz ç al ış t ı r ı n ...
ben ç ok aram ış t ı m . sa ğ olsun Forumdan bir arkada ş yard ı mc ı oldu . Ben de payla ş mak istedim .
1.Ana forma 1 adet Session nesnesi yerle ş tirin , Netfiledir := L :, Privatedir := C : myprog data , name := deneme , Active := True yap ı n .
2.t ü m table veya Query 'lerin SessionName' lerini deneme olarak de ğ i ş tirin .
3.BDE 'de oluşturulan Aliasın PATH:=L: olarak değiştirin
4.Anaformun Oncreate olay ı na ;
ExecuteShellCommand ( 'net use L: Anamakinadata' , True );
sleep ( 3000 ) // 3 saniye bekletiniz. aksi halde hata veriyo
hepsi bu kadar . Ben yapt ı m sorunsuz ç al ışı yor . Birde t ü m table 'ların Affterpost olayına;
DBISaveChanges (( DataSet as TBDEDataSet ). Handle ); yazmay ı unutmay ı n .
umar ı m birilerinin i ş ene yarar .
procedure ExecuteShellCommand ( cmdline : string ; hidden : Boolean );
const
flags : array [ Boolean ] of Integer = ( SW_SHOWNORMAL , SW_HIDE );
var
cmdbuffer : array [ 0 .. MAX_PATH ] of Char ;
begin
GetEnvironmentVariable ( 'COMSPEC' , cmdBUffer , SizeOf ( cmdBuffer ));
StrCat ( cmdbuffer , ' /C ' );
StrPCopy ( StrEnd ( cmdbuffer ), cmdline );
WinExec ( cmdbuffer , flags [ hidden ]);
end ;
Delphi - .....................................
