type T_Form1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); private Kapansin:Boolean; procedure WMEndSession(var Msg : TWMEndSession); message WM_ENDSESSION; public end; var _Form1: T_Form1; implementation {$R *.dfm} procedure T_Form1.FormCreate(Sender: TObject); begin Kapansin:=True; end; procedure T_Form1.WMEndSession(var Msg : TWMEndSession); begin Kapansin:=MessageDlg('Windows kapansınmı ?', mtConfirmation, [mbYes,mbNo], 0) <> mrNo; inherited; end; procedure T_Form1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:=Kapansin; Kapansin:=True; end;

var x:integer; begin form1.IBTable1.Active :=True; for x:=0 to form1.IBTable1.RecordCount -1 do begin form1.ListBox1.Items.Add(form1.IBTable1Alan_Adı.Text); form1.IBTable1.Next; end; end; listbox Ondblclik olayınada yapmak istediğini yazabilirsin Örn: application.MessageBox(Pchar(form1.ListBox1.Items.Strings[form1.ListBox1.ItemIndex]),’BILGI’,0+32+0);

Projenızde vereceğim bir kod ile delphi ile yaptığınız projelerde  ; rami boşaltabilir , programınızı rahatlatabilirsiniz.. Code : procedure RamBosalt; begin SetProcessWorkingSetSize(GetCurrentProcess, $ffffffff, $ffffffff); end;

Tersine Mühendislik Görsel Eğitim Seti 2010 Türkçe Bu set ile programların nasıl kırıldığını öğreneceksiniz, görüntülü ve uygulamalı anlatım vardır, bunun yanında eğitim esnasında kullanılan araç ve gereçte setin içindedir, anlatımları son derece anlaşılabilir seviyededir. Hotfile.com: One click file hosting: Tersine.Muhendislik.Gorsel.Egitim.part1.rar Hotfile.com: One click file hosting: Tersine.Muhendislik.Gorsel.Egitim.part2.rar Hotfile.com: One click file hosting: Tersine.Muhendislik.Gorsel.Egitim.part3.rar Hotfile.com: One click file hosting: Tersine.Muhendislik.Gorsel.Egitim.part4.rar

Kaynak Kod indirmek için tıkla Programın Exe halini indirmek için tıkla