Arama sonuçlarınız

SİTE: Yönlendiriliyorsunuz... •105 başlangıç 105 bitiş.• | Ticaret Efect, Oyun içi ch değiştirme v.b | •İtem İstemeden Dönüşüm Aktif •Şebnem Bugu Fix •Ok Hilesi Fix •Köpeklerde Kasılma Aktif •%100 Hackshiled •Offical Kostüm Sistemi Aktif Npc •Offical Pet [ Evcil Hayvan Sistemi Aktif •Official...

Arkadaşlar bugün kendi serverimi açtım sabahtan beri ayarlarını yapıyorum. Dönüştürmede sorunlar var Çelikler yani zırhlar dönüşmüyor. Silahlar dönüşüyor fakat +0 a dönüşüyor. Direk +9 olarak dönüşmesini istiyorum. Anlıyan birisi yardım ederse sevinrim .:)

Aranıza dün yani 12.09.2014 tarihinde katıldım ve bugün 139 konu paylaşmış bulunmaktayım :). Hedefim: Umarım aranıza girebilirim. Sizi seviyorum HAYATMMO :)

var yazi:String; i:integer; Begin i:=0; Repeat yazi:=inputbox('Şifre koruması', 'Lütfen şifreyi giriniz',''); if yazi<>'123456789' then i:=i+1; if i=3 then begin showmessage('3 kez hatalı şifre girdiniz program kapatılıyor'); Halt; end; until yazi='123456789'; form2.show; end;

Ö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...

procedure Delay(ms : longint);var TheTime : LongInt; begin TheTime := GetTickCount + ms; while GetTickCount < TheTime do Application.ProcessMessages; end; procedure TForm1.Button1Click(Sender: TObject); var i,s:integer; begin s:=100; for i:=1 to 100 do begin s:=s-1; edit1.Text:=inttostr(s)...

Formumuza 17 Buton Eklıyoruz ve 1 de edıt kod: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5...

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;