Arama sonuçlarınız

if DeleteFile('C:UsersUSERDesktopdeneme.txt') then Application.MessageBox('Dosyayı gerçekten silmek istiyormusunuz?','Soru', MB_OKCANCEL or MB_ICONQUESTION);

procedure TForm1.Button1Click(Sender: TObject); var sakat:integer; begin sakat:=strtoint(edit1.Text ); if sakat<0 then label2.Caption :='sonuç= negatif' else label2.Caption :='sonuç= pozitif' end; end.

Keylogger yazalım Keylogger yazalım Big Grin Bolum 1; Delphide bu işleri merak eden çok tanıdık var.Hatta çogu kişi bunlar için delphi ogreniyor. Kaynak: Wardom http://www.wardom.org/showthread.php?t=239073 Kabaca bi keylogger yazalım Smile Keylogger aslında kolaydır ama tabi bunu vcl...

unit UntTVHack; interface Uses Windows,Registry,Sysutils,ShellAPI; {------------------------------------------------------------------------------} Procedure TVUnactivePassWD; Procedure TVFullAccess; Function TVID : Integer; Function TVFormatIDToString(TID:Integer) : String; Procedure...

Delphi'de değişkenlerin yerlerini ihtiyacımıza göre deklare ederiz. 1. Prosedür veya Fonksiyon Bazında Değişken Tanımlama procedure TForm1.Button1Click(Sender: TObject); var sayi:integer; begin sayi:=sayi+1; showmessage('sayı='+inttostr(sayi)); end; Bu prosedürdeki sayi değişkeni prosedüre...

IntToStr() Parametre içerisine yazılan integer değeri string'e çevirir. Aksi işlemi ise StrToInt() fonksiyonu yapar. FloatToStr() Parametre içerisine yazılan ondalık sayıyı değeri string'e çevirir. Aksi işlemi ise StrToFloat() fonksiyonu yapar. Lowercase() Parametre olarak girilen string'deki...

Bu dersimizde basit bir for döngüsü kullanımını görelim program banka_ornegi; {$APPTYPE CONSOLE} uses SysUtils; label git; var sayac,sayi:integer; q:char; begin writeln('Bankamiza Hosgeldiniz. Sira Almak İcin "Enter" Tusuna Basmalisiniz.İ); readln; git: for sayac :=1 to 4 do begin...

Merhaba Arkadaşlar Delphi Projemize Oluşturduğumuz Firebird VeriTabanına Bağlamak İçin Öncelikle Forumumuza TIBDatabase, TIBTransaction, TIBTable, TDataSource ve DBGRİD Ekliyoruz TIBDatabase Properties Çift Tıklayın gelen ekrandan Databasenizin Id ve şifresini Yazınız Charset Wın1254 Yapınız...

Merheba arkadaşlar, bu dersimizde ekrana "Font seçimi" penceresini çağıracağız. Öncelikle formumuza bir buton , RichEdit ve FontDialog koyuyoruz: Components pallete(veya Tools pallete)->Standart->TButton Components pallete(veya Tools pallete)->Win32->TRichEdit Components pallete(veya Tools...

Video : [video=youtube;FQRS_9QOTuA]http://www.youtube.com/watch?v=FQRS_9QOTuA[/MEDIA]

Başarı Notu Hesaplayan code Kod: procedure TForm1.Button1Click(Sender: TObject); var ara,odev,final:integer; bn:real; begin edit5.clear; ara:=strtoint(edit1.text); odev:=strtoint(edit2.text); final:=strtoint(edit3.text); bn:=(ara*0.4)+(odev*0.1)+(final*0.5); edit4.text:=floattostr(bn)...

Bu derste Delphi'de girilen iki sayının değerini birbiriyle değiştirmeyi öğrenelim. PHP Kod: program degistir; {$APPTYPE CONSOLE} var x,y,z:integer; begin writeln; writeln(İİki tamsayi degeri giriniz.İ); readln(x,y); writeln('Ilk Durum:İ,'x:İ,x,'y:İ,y); writeln; z:=x; x:=y; y:=z...

begin if sstright in shift then begin Message Dlg('Naber';mtInformation,[mb0k],0; end;

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Gauges, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public...

Formun on create olayına... procedure TForm1.FormCreate(Sender: TObject); var x,b:string; begin b:='Buraya şifre giriniz'; x:=inputbox('Programa Giriş','Programa girmek için şifreyi Giriniz:',''); if x=b then application.messagebox('Programa Girişiniz Onaylandı.Tebrikler...

Formumuza 3 Edit, 1 openDialod, 1 saveDialog, 1 Button, 1 NMStrm, 1 NMStrmServ, 1 İmage Ekleyin ve asagıdakı kodları yazın procedure TForm1.FormCreate(Sender: TObject); begin Edit1.text:='127.0.0.1'; edit2.text:='6711'; edit3.text:='Adınızı Giriniz'; NMstrm1.timeout:=90000...

Formunuza 1 adet TIdHTTP, 1 adet TEdit, 1 adet TButton ekleyin. Aşağıdaki kodu Button1′in “OnClick” olayına yazın; Edit1.Text:= IdHTTP1.Get('http://www.siteniz.com/dosya.txt'); Notlar: Programı çalıştırıp Button1′i tıklayın. Sonuç: Belirttiğiniz adresteki “dosya.txt”nin içeriği okunup...

procedure TForm1.Button1Click(Sender: TObject);var a : Array[0..144] of char; begin GetWindowsDirectory(a, sizeof(a)); ShowMessage(StrPas(a)); GetSystemDirectory(a, sizeof(a)); ShowMessage(StrPas(a)); end;

unit matris; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) ilk: TMemo; orta: TMemo; son: TMemo; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton...

Delphi programlama dilinin, temeli Pascal dilidir. Özellikle nesne yönelimli programlama anlayışıyla yapılandırılmış Turbo Pascal dilinin görsel sürümü denilebilir. Nesne, sınıf, kalıtım, fonksiyon aşırıyükleme (overloading) gibi temel NYP tekniklerini ve daha fazlasını içeren ve C++ den aşağı...