Bu dersimizde Delphi de DeleteFile komutunu öğreneceğiz. Bu parametre ile belirtilen yoldaki dosyayı silmek için kullanılan 1 fonksiyondur. Procedure TForm1.Button1Click(Sender; Object); begin If DeleteFile(“C:WinNtdede.Txt”) Then // Dosya Silindi ise Caption := “Dosya Silindi” else Caption := “Dosya Silinmedi”; end;
Bu dersimizde sizlerle delphide Geometrik Hesaplamalar yapmayı öğreneceğiz. Geometrik Hesaplamalar gereken kodlar aşağıda verilmiştir. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) GroupBox1: TGroupBox; KLabel1: TLabel; kare1: TEdit; KLabel2: TLabel; KLabel3: TLabel; kare2: TEdit; kare3: TEdit; KButton1: TButton; GroupBox2: TGroupBox; DLabel1: TLabel; DLabel2: TLabel; dikgen1: [...]
Delphide Programdan Windows Wallpaper Değiştirmek için aşağıdaki kodları çalıştırmak gerekir. Delphi Programdan Windows Wallpaper ‘ı Değiştirmek; procedure TForm1.ChangeWallPaper(const FileName: string); begin SystemParametersInfoA(SPI_SETDESKWALLPAPER, 0, PChar(FileName), SPIF_UPDATEINIFILE); end;
Delphi Adresi Yeni Pencerede, İstenilern Özelliklerde Açma işlemini öğreneceğiz. Delphi Adresi Yeni Pencerede, İstenilern Özelliklerde Açmak için gereken kodlar; procedure TFmMain.GotoUrl(SUrl: string; Width, Height: Integer; ToolBar: Boolean); const csOLEObjName = ‘InternetExplorer.Application’; var IE : Variant; WinHanlde : HWnd; begin if( VarIsEmpty( IE ) )then begin IE := CreateOleObject( csOLEObjName ); IE.Visible := true; IE.Toolbar := [...]
Sayısal Loto tahmini yapabilen program kodları aşağıda bulunmaktadır. Delphi programı ile yapılan bu kodlar için öncelikle 2 tane özellik kullanılması gereklidir. Buton Listbox
Delphi‘ nin pascal dan daha gelişmiş bir görsel programlama dili olduğunu diğer derslerimizde belirtmiştik. Görsel dillerde program akışı olay temeline dayanmaktadır. Klasik programlamadaki gibi program kodu yukarıdan aşağıya ilerlememektedir.
İki Sayı arasındaki bulunan tek ve çift sayıları bulan program aşağıdaki gibidir. Aşağıdaki kodları yazarak yapabilirsiniz. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
Dynamic Link Library ( Dll ) programı ile saat oluşturmak için aşağıdaki kodları yazarak yapabilirsiniz. unit dijital; interface uses SysUtils, Classes, ExtCtrls, Dialogs; type Tdijital = class(TPanel) private Tetikle : TTimer; procedure SaatiGetir;
Delphi Programı içerisinde başka bir program açarak işinizi daha çabuk yapabilirsiniz. Bunu yapmak için aşağıdaki yolu izleyiniz. procedure TForm1.Button1Click(Sender: TObject); var hNotePad, Style: Cardinal; begin // button click event hNotePad := FindWindow(nil, ‘Adsız – Not Defteri’); if hNotePad = 0 then begin ShowMessage(‘NotePad Çalışmıyor’); Exit;
Delphi programlama dilinin temelinin pascal programlama dili oluşturmaktadır. Özellikle Delphi programlama diline nesne yönelimli programlama anlayışıyla yapılandırılmış Turbo Pascal dilinin görsel sürümü de diyebilirsiniz. Nesne, sınıf, kalıtım, fonksiyon aşırı yükleme (overloading) gibi temel nesneye yönelik programlama tekniklerini ve daha fazlasını içeren ve c++ den aşağı kalmayan güçlü ve esnek 1 programlama dilidir.