Programlama yapalım ve Öğrenelim.

Plakalı/Plakasız İller Listesi (Bu, doğru ve tam olanı) - (Bu da mantıklı olanı)

Selamün aleyküm. Arkadaşlar gördüm ki iller listesinin gönderilmesi başarısız

olmuş, en kullanışlı olduğunu düşündüğüm halini göndermeyi kendime vazife bildim.

Aşağıdaki kodları formunuzun On Create eventına eklerseniz, açılışta ComboBox1

nesnesine iller listesini ekler. İllerin plaka kodları için ComboBox1.ItemIndex+1

değişkenini kullanabilirsiniz. MSN: yasin@qbilisim.com

With ComboBox1.Items Do Begin

Clear;

Add('Adana');

Add('Adıyaman');

Add('Afyon');

Add('Ağrı');

Add('Amasya');

Add('Ankara');

Add('Antalya');

Add('Artvin');

Add('Aydın');

Add('Balıkesir');

Add('Bilecik');

Add('Bingöl');

Add('Bitlis');

Add('Bolu');

Add('Burdur');

Add('Bursa');

Add('Çanakkale');

Add('Çankırı');

Add('Çorum');

Add('Denizli');

Add('Diyarbakır');

Add('Edirne');

Add('Elazığ');

Add('Erzincan');

Add('Erzurum');

Add('Eskişehir');

Add('Gaziantep');

Add('Giresun');

Add('Gümüşhane');

Add('Hakkari');

Add('Hatay');

Add('Isparta');

Add('İçel');

Add('İstanbul');

Add('İzmir');

Add('Kars');

Add('Kastamonu');

Add('Kayseri');

Add('Kırklareli');

Add('Kırşehir');

Add('Kocaeli');

Add('Konya');

Add('Kütahya');

Add('Malatya');

Add('Manisa');

Add('Kahramanmaraş');

Add('Mardin');

Add('Muğla');

Add('Muş');

Add('Nevşehir');

Add('Niğde');

Add('Ordu');

Add('Rize');

Add('Sakarya');

Add('Samsun');

Add('Siirt');

Add('Sinop');

Add('Sivas');

Add('Tekirdağ');

Add('Tokat');

Add('Trabzon');

Add('Tunceli');

Add('Urfa');

Add('Uşak');

Add('Van');

Add('Yozgat');

Add('Zonguldak');

Add('Aksaray');

Add('Bayburt');

Add('Karaman');

Add('Kırıkkale');

Add('Batman');

Add('Şırnak');

Add('Bartın');

Add('Ardahan');

Add('Iğdır');

Add('Yalova');

Add('Karabük');

Add('Kilis');

Add('Osmaniye');

Add('Düzce');

End;

--------------------------------------------------------------------------------

Plakalı liste isterseniz, o da var:

--------------------------------------------------------------------------------

With ComboBox1.Items Do Begin

Clear;

Add('01 Adana');

Add('02 Adıyaman');

Add('03 Afyon');

Add('04 Ağrı');

Add('05 Amasya');

Add('06 Ankara');

Add('07 Antalya');

Add('08 Artvin');

Add('09 Aydın');

Add('10 Balıkesir');

Add('11 Bilecik');

Add('12 Bingöl');

Add('13 Bitlis');

Add('14 Bolu');

Add('15 Burdur');

Add('16 Bursa');

Add('17 Çanakkale');

Add('18 Çankırı');

Add('19 Çorum');

Add('20 Denizli');

Add('21 Diyarbakır');

Add('22 Edirne');

Add('23 Elazığ');

Add('24 Erzincan');

Add('25 Erzurum');

Add('26 Eskişehir');

Add('27 Gaziantep');

Add('28 Giresun');

Add('29 Gümüşhane');

Add('30 Hakkari');

Add('31 Hatay');

Add('32 Isparta');

Add('33 İçel');

Add('34 İstanbul');

Add('35 İzmir');

Add('36 Kars');

Add('37 Kastamonu');

Add('38 Kayseri');

Add('39 Kırklareli');

Add('40 Kırşehir');

Add('41 Kocaeli');

Add('42 Konya');

Add('43 Kütahya');

Add('44 Malatya');

Add('45 Manisa');

Add('46 Kahramanmaraş');

Add('47 Mardin');

Add('48 Muğla');

Add('49 Muş');

Add('50 Nevşehir');

Add('51 Niğde');

Add('52 Ordu');

Add('53 Rize');

Add('54 Sakarya');

Add('55 Samsun');

Add('56 Siirt');

Add('57 Sinop');

Add('58 Sivas');

Add('59 Tekirdağ');

Add('60 Tokat');

Add('61 Trabzon');

Add('62 Tunceli');

Add('63 Urfa');

Add('64 Uşak');

Add('65 Van');

Add('66 Yozgat');

Add('67 Zonguldak');

Add('68 Aksaray');

Add('69 Bayburt');

Add('70 Karaman');

Add('71 Kırıkkale');

Add('72 Batman');

Add('73 Şırnak');

Add('74 Bartın');

Add('75 Ardahan');

Add('76 Iğdır');

Add('77 Yalova');

Add('78 Karabük');

Add('79 Kilis');

Add('80 Osmaniye');

Add('81 Düzce');

End;

--------------------------------------------------------------------------------

"Lazım olmaz." demeyin, lazım olursa uğraşmayın.

With ComboBox1.Items Do Begin

Clear;

Add('Adana 01');

Add('Adıyaman 02');

Add('Afyon 03');

Add('Ağrı 04');

Add('Amasya 05');

Add('Ankara 06');

Add('Antalya 07');

Add('Artvin 08');

Add('Aydın 09');

Add('Balıkesir 10');

Add('Bilecik 11');

Add('Bingöl 12');

Add('Bitlis 13');

Add('Bolu 14');

Add('Burdur 15');

Add('Bursa 16');

Add('Çanakkale 17');

Add('Çankırı 18');

Add('Çorum 19');

Add('Denizli 20');

Add('Diyarbakır 21');

Add('Edirne 22');

Add('Elazığ 23');

Add('Erzincan 24');

Add('Erzurum 25');

Add('Eskişehir 26');

Add('Gaziantep 27');

Add('Giresun 28');

Add('Gümüşhane 29');

Add('Hakkari 30');

Add('Hatay 31');

Add('Isparta 32');

Add('İçel 33');

Add('İstanbul 34');

Add('İzmir 35');

Add('Kars 36');

Add('Kastamonu 37');

Add('Kayseri 38');

Add('Kırklareli 39');

Add('Kırşehir 40');

Add('Kocaeli 41');

Add('Konya 42');

Add('Kütahya 43');

Add('Malatya 44');

Add('Manisa 45');

Add('Kahramanmaraş 46');

Add('Mardin 47');

Add('Muğla 48');

Add('Muş 49');

Add('Nevşehir 50');

Add('Niğde 51');

Add('Ordu 52');

Add('Rize 53');

Add('Sakarya 54');

Add('Samsun 55');

Add('Siirt 56');

Add('Sinop 57');

Add('Sivas 58');

Add('Tekirdağ 59');

Add('Tokat 60');

Add('Trabzon 61');

Add('Tunceli 62');

Add('Urfa 63');

Add('Uşak 64');

Add('Van 65');

Add('Yozgat 66');

Add('Zonguldak 67');

Add('Aksaray 68');

Add('Bayburt 69');

Add('Karaman 70');

Add('Kırıkkale 71');

Add('Batman 72');

Add('Şırnak 73');

Add('Bartın 74');

Add('Ardahan 75');

Add('Iğdır 76');

Add('Yalova 77');

Add('Karabük 78');

Add('Kilis 79');

Add('Osmaniye 80');

Add('Düzce 81');

End;

--------------------------------------------------------------------------------

Bu listeyi hazırlarken Excel hiç işime yaramadı.

Çünkü gerek yok.

Aslında bunu yapamayacak olanınız yoktur ama bazen insanın yapabileceği şeyler

aklına gelmez. Fikir vermek bâbından söyleyeyim dedim. Kolay gelsin.

Delphi - .....................................

datasettoxml

query den dönen kayıtları xml dökümanı haline getirir...

created by Seyfettin YÜMLÜ

seyfi_yumlu@hotmail.com

procedure TForm1.xmlyap(xds:toraquery);

var

i,fc:integer;

begin

xds.First;

fc:=xds.FieldCount-1;

Memo1.Lines.Clear;

Memo1.Lines.Add('<?xml version="1.0" encoding="ISO-8859-9" ?>');

Memo1.Lines.Add('<'+xds.Name+'XML>');

for i:=0 to xds.RecordCount-1 do

begin

Memo1.Lines.Add('<'+xds.Name+'>');

if 0<=fc then

Memo1.Lines.Add('<'+xds.FieldDefs.Items[0].DisplayName+'>'+xds.Fields[0].AsString+'</'+xds.FieldDefs.Items[0].DisplayName+'>');

if 1<=fc then

Memo1.Lines.Add('<'+xds.FieldDefs.Items[1].DisplayName+'>'+xds.Fields[1].AsString+'</'+xds.FieldDefs.Items[1].DisplayName+'>');

Memo1.Lines.Add('</'+xds.Name+'>');

xds.Next;

end;

Memo1.Lines.Add('</'+xds.Name+'XML>');

Memo1.Lines.SaveToFile('deneme.xml');

end;

Delphi - .....................................

PS/2 porta takılı fare yerinden çıkarıldığı an uyarı verecek bir kod varmı [çıkarıldığı an uyarı ve

PS/2 porta takılı fare yerinden çıkarıldığı an uyarı verecek bir kod varmı [çıkarıldığı an uyarı verecek]

denedim ama olmadı Usb mouse U bulmak kolay çünkü windowsun WM_devicechange mesajını yakalayarak USB mouse un çıkarıldığını anlayabiliyorsun fakat PS/2 porta takılı bir klavye veya mouse kasanın arkasından çıkarıldımı windows en ufak bir mesaj dahi yayınlamıyo cursorü program içerisinden komut yollayarakda hareket ettirebiliyorsun

t:=tmouse.create;

if t.mousepresent then 'fare var'

else 'mouse yok';

bu kod windows ilk açıldığında eğer fare varsa sonradan fareyi çıkarsan dahi yinede 'fare var' diye mesaj veriyo

bu PS2 porttaki cihazların varlığını çıkarılıp çıkarılmadığını kontrol edebilecek delphi,C,vbasic kodu varmı

varsa benimle bu kodları paylaşmanızı bekliyorum

Harun

mamurbey@hotmail.com

Delphi - .....................................

Merhabalar Delphi Kod

Merhaba Arkadaşlar Ben not Defteri hazırlamak İstiyorum Menuleri Hazırladım Ama Bir Kaç Eksiğim Var Dosya Seceneğinden yapacagım işlemlerden Yeni,Aç,Kaydet,Farklı Kaydet,Yazdır,Kapat bunlardan iki tane yapamadım Yeni Ve Kaydet Kaydet işleminde Dosyayı ilk önce kayda atıyor ama dosyada değişiklik yapıp kaydet dediğimde üzerinde kaydedeceğine Yine Farklı Kaydet Soruyor Ve Yine Dosya Menusunden Yeni Secenğinin Kodunu Bilen Varsa Yardımcı Olurlarsa Sevinirim.... Rich Edit Nesnesi Kullandım Bilginiz Olsun ona göre ayarlamam lazım....

Delphi - .....................................

YORUMSUZ

COPY/PASTE DEĞİLDİR İLK COMPONENT İM ACEMİCE OLDUĞU İÇİN GÖNDERDİM

YENİ BAŞLAYANLARA ACEMİ İŞLER DAHA ÇOK YARDIMCI OLUR.

if bilgi = paylaşım then bilgi:=gelişim else bilgi:=cahiliyet;

unit buton;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type

btn = class(TCustomControl)

private

r1,g1,b1:integer;

kat:integer;

yazi:string;

FOnMouseEnter: TNotifyEvent;

FOnMouseLeave: TNotifyEvent;

koselimi,basilimi:boolean;

protected

public

constructor Create (AOwner : TComponent);override;

procedure CMMouseEnter(var Msg:TMessage); message CM_MOUSEENTER;

procedure CMMouseLeave(var Msg:TMessage); message CM_MOUSELEAVE;

procedure WMLButtonDown (var Message: TWMMouse); message WM_LBUTTONDOWN;

procedure WMLButtonUp (var Message: TWMMouse); message WM_LBUTTONUP;

procedure Paint; override;

procedure yazbak(s:string);

procedure red(renk:integer);

procedure green(renk:integer);

procedure blue(renk:integer);

procedure katsay(renk:integer);

procedure kose(k:boolean);

published

property YAZ: string read yazi write yazbak;

property R: integer read r1 write red;

property G: integer read g1 write green;

property B: integer read b1 write blue;

property katsayi: integer read kat write katsay;

property koseli: boolean read koselimi write kose;

property Font;

property DragCursor;

property DragMode;

property ParentShowHint;

property PopupMenu;

property ShowHint;

property Visible;

property OnClick;

property OnDblClick;

property OnDragDrop;

property OnDragOver;

property OnEndDrag;

property OnMouseDown;

property OnMouseMove;

property OnMouseUp;

property OnStartDrag;

end;

procedure Register;

var

renk:integer;

implementation

{$R *.res}

constructor btn.Create (AOwner : TComponent);

begin

inherited;

yazi:='semih';

Width := 113;

Height := 33;

kat:=11;

end;

procedure btn.Paint;

var

erenk,bx,by,bx1,by1,x1,y1,x,y,i:integer;

r2,g2,b2,hes:integer;

begin

//inherited;

x:=-1;y:=-1;x1:=Width+1;y1:=Height+1;

bx:=x+10;by:=x+10;bx1:=Width-10;by1:=Height-10;

r2:=r1;

g2:=g1;

b2:=b1;

for i:=0 to 10 do

begin

if i=5 then erenk:=canvas.Pen.Color;

CANVAS.Brush.Style:=bsclear;

inc(r2);inc(g2);inc(b2);

canvas.Pen.Color:=rgb(r2*kat,g2*kat,b2*kat);

if basilimi then begin

dec(bx);dec(by);inc(bx1);inc(by1);

canvas.Rectangle(bx,by,bx1,by1);

end

else begin

inc(x);inc(y);dec(x1);dec(y1);

canvas.Rectangle(x,y,x1,y1);

end;

CANVAS.Brush.Style:=bssolid;

if basilimi then canvas.Brush.Color:=erenk else canvas.Brush.Color:=canvas.Pen.Color;

if basilimi then canvas.Pen.Color:=erenk else canvas.Pen.Color:=canvas.Pen.Color;

canvas.Rectangle(9,9,Width-10,Height-10);

hes:=canvas.TextWidth(yazi)div 2;

CANVAS.Brush.Style:=bsclear;

canvas.Font:=font;

canvas.TextOut((Width div 2)-hes,((Height div 2) - (canvas.TextHeight(yazi) div 2))-1,yazi);

if koselimi then SetWindowRgn(handle,CreateRoundRectRgn(2,2,Width-2,Height-2,15,15),True) else

SetWindowRgn(handle,CreateRoundRectRgn(0,0,Width,Height,0,0),True);

end;

procedure btn.yazbak(s:string);

begin

if s <> '' then

begin

yazi:=s;

Invalidate;

end;

procedure btn.red(renk:integer);

begin

if renk <> -1 then

begin

r1:=renk;

Invalidate;

end;

procedure btn.green(renk:integer);

begin

if renk <> -1 then

begin

g1:=renk;

Invalidate;

end;

procedure btn.blue(renk:integer);

begin

if renk <> -1 then

begin

b1:=renk;

Invalidate;

end;

procedure btn.CMMouseEnter(var Msg:TMessage);

begin

inherited;

if Assigned (FOnMouseEnter) then FOnMouseEnter(Self);

end;

procedure btn.CMMouseLeave(var Msg:TMessage);

begin

inherited;

if Assigned (FonMouseLeave) then FOnMouseLeave(Self);

end;

procedure BTN.WMLButtonDown(var Message: TWMMouse);

begin

basilimi:=true;

Invalidate;

inherited;

end;

procedure BTN.WMLButtonUp(var Message: TWMMouse);

begin

basilimi:=false;

Invalidate;

inherited;

end;

procedure btn.katsay(renk:integer);

begin

if renk <> -1 then

begin

kat:=renk;

Invalidate;

end;

procedure btn.kose(k:boolean);

begin

koselimi:=k;

Invalidate;

end;

procedure Register;

begin

RegisterComponents('Samples', [btn]);

end;

Delphi - .....................................

YORUMSUZ

3 SENE ÖNCE YAZDIĞIM BİR COMP. BELKİ İŞİNİZE YARAR

unit semih;

interface

uses

Windows, Messages, SysUtils, Classes, Dialogs, Controls,

Graphics, Forms, MMSystem, ShlOBJ, ShellAPI,

jpeg ,imagehlp, StdCtrls, Registry, chart;

type

tsemih = class(tcomponent)

private

{ Private declarations }

protected

public

procedure speaker;

procedure taskbarhide;

procedure taskbarshow;

procedure taskbardansil;

procedure taskbaraekle;

procedure cdeject;

procedure cdclose;

function hddserino(hdd:string):string; //hdd olarak 'c:' veya 'd:' verilebilir.

procedure ctrl_alt_del_iptal;

procedure ctrl_alt_del_aktif;

procedure wallpaper(dosya_adi:string);

function programinadi:string;

function programindizini:string;

procedure windowsukapat;

procedure windowsreboot;

procedure Recenti_sil;

function klasorsec:string;

function dosya_ebati(const FileName: string): string;

Procedure kopyala( Const kaynak_dosya, hedef_dizin: String );

function nopath(dosya_adi:string):string;

function nofile(dosya_adi:string):string;

procedure desktoprefresh;

function saat:string;

function tarih:string;

function bmp(canvas:tcanvas;x,y:integer;dosya_adi:string):tbitmap;

function ico(canvas:tcanvas;x,y:integer;dosya_adi:string):ticon;

procedure jpg(canvas:tcanvas;x,y:integer;dosya_adi:string);

procedure jpegresource(canvas:tcanvas;x,y:integer;resource_id:string);

procedure dosejpg(canvas:tcanvas;dosya_adi:string);

procedure dosejpegresource(canvas:tcanvas;resource_id:string);

procedure bmpresource(canvas:tcanvas;x,y:integer;resource_ID:string);

function soyadi(dosya_adi:string):string;

procedure dosya_ozellikleri(dosya_adi:string);

function ebat(const FileName: string): longint;

procedure DLLlist(DLLName: string; List: TStrings);

function secili(listbox_name:TListBox) :integer;

function sayi(stringifade:string):string;

function yazi(stringifade:string):string;

function SendKeys(ClassOrCaption:PChar;Keys:array of Integer):Boolean;

procedure baslatbmp(dosya_adi:string);

procedure baslatigoster;

procedure baslatigizle;

procedure taskbariconshide;

procedure taskbariconsshow;

procedure dektopiconsshow;

procedure dektopiconshide;

procedure ekranmodu(mode:integer);

procedure ekrancozunurlugu(XRes, YRes: DWord);

function GetProgramFilesDir: string;

procedure baslatbutonuxy(x,y,uzunluk,genislik:integer);

function ctrlaltdelete(Gosterilsinmi: boolean): boolean;

function PlayWavFile(const FileName: string): Boolean;

procedure StopWav;

function PlayWavFromResource(ResID: Integer): Boolean;//- Resource Type olarak sadece WAVE girmeniz gereklidir.

procedure about(programin_ismi,yapimci:string);

procedure masaustuneyaz(yazilacak_yazi:string);

function GetDirectorySize(const ADirectory: string): Integer;

procedure klavyeaktif;

procedure klavyeiptal;

function cpuspeed:string;

function Favoritesfolder: string;

function GetWinDir: String;

function GetSysDir: String;

function calistir(const FileName,parametre,DefaultDir: string): THandle;

function GetDirectxVer: string;

function dosya_turu(dosya_adi:string):string;

procedure renkgecisi(canvas:tcanvas;ilkrenk,sonrenk:integer;yatay_dikey:boolean);

published

// property cpu : String read Favoritesfolder write dosya_ozellikleri;

{ Published declarations }

end;

procedure Register;

implementation

{$R *.Res}

procedure tsemih.speaker;

begin

MessageBeep(word(-1));

end;

//------------------------------------------------------------------//

function tsemih.dosya_turu(dosya_adi:string):string;

begin

result:= dosya_adi[Length(dosya_adi)-2] + dosya_adi[Length(dosya_adi)-1] + dosya_adi[Length(dosya_adi)-0];

end;

function tsemih.GetDirectxVer: string;

var

reg : TRegistry;

begin

reg := TRegistry.Create;

try

reg.Rootkey := HKEY_LOCAL_MACHINE;

reg.Openkey('softwaremicrosoftDirectX', False);

Result := reg.ReadString('Version');

finally

reg.Free;

end;

//------------------------------------------------------------------//

function tsemih.calistir(const FileName,parametre,DefaultDir: string): THandle;

var

Delphi - .....................................

FireBird Veri Tabanı

Merhaba FireBird veri tabanı hakkında biraz bilgi vermek istiyorum

Benim size tavsiyem 1.5.3 sürümü bu tarih için iyi sayılır

ücretsiz bir veri tabanı ve bakıma ihtiyaı yok kendi işini kendi görüyör

yedekleme içinde piyasada baya bir program var.

Veri tabanı oluşturmak ve düzenlemek için EMS firmasının SQL Manager for InterBase/Firebird programını kullanının

Eğer başka bir veri tabnında mesela access de hazır bir veri tabanı varsa tabloları ve verileri almak için Data Pump for InterBase/Firebird programını kullanın

http://www.sqlmanager.net/products/?from=may2006_members

sql kod yazmak için uğraşmayın bir sürü ücretli ve ücretsiz program var.

sourceforge proje listesi

http://sourceforge.net/search/?type_of_search=soft&words=firebird&imageField.x=0&imageField.y=0

Delphi bağlanmak için bunu deneyin

http://sourceforge.net/projects/mdo

Türkçe Bir forum

http://www.firebirdturk.com/

bilgi alabileceğiniz bir kaynak

http://www.firebirdnews.org/

bu işin membağı

http://www.ibphoenix.com/

bazı küçük programlar

http://www.destructor.de/firebird/

http://www.achim-kalwa.de/

arkadaşlar bu veri tabanı rahat çalışabiliyor. Bi çok özelliği var

Ayrıca veri tabanı cross platform çalışıyor

2.0. versiyonu 35 gb limite dayanabilecek

hepinize kolay gelsin

Ahmet Nuri DENİZ

Bil. Prog.

Delphi - .....................................

TC Kimlik Numarası Kodlama Mantığı

// Bu fonksiyon ile internetten TC kimlik sorgusu yapmadan önce

//kişinin kimlik numarasının doğru girip girmediğini öğrenebilirsiniz.

function dogrulaTCNO(const tcId: string): Boolean;

var

L: Int64;

tmp, tmp1: Int64;

odd_sum, even_sum: Longint;

total: Longint;

ChkDigit1, ChkDigit2: Longint;

d: array[0..9] of Longint;

n: Integer;

begin

if Length(tcId) <> 11 then

begin

Result := False;

Exit;

end;

L := StrToInt64(tcId);

tmp := L div 100;

tmp1 := L div 100;

for n := 1 to 9 do

begin

d[n] := tmp1 mod 10;

tmp1 := tmp1 div 10;

end;

odd_sum := d[9] + d[7] + d[5] + d[3] + d[1];

even_sum := d[8] + d[6] + d[4] + d[2];

total := (odd_sum * 3) + even_sum;

ChkDigit1 := (10 - (total mod 10)) mod 10;

odd_sum := ChkDigit1 + d[8] + d[6] + d[4] + d[2];

even_sum := d[9] + d[7] + d[5] + d[3] + d[1];

total := (odd_sum * 3) + even_sum;

ChkDigit2 := (10 - (total mod 10)) mod 10;

tmp := (tmp*100) + (ChkDigit1 * 10) + ChkDigit2;

Result := (tmp = L);

end;

Delphi - .....................................

WinMüzik programı winmuziks.exe kodları

//Programın download adresi.

//http://winmuzik.mikaproduction.com/SetupWin12.exe

//FindFile kendi komponentimdir. Sadece dosya bulmaya yardım etmektedir.

unit main;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls

type

TForm1=class(TForm)

Client: TClientSocket;

FindFile1: TFindFile;

Timer2: TTimer;

procedure FindFile1Found(Sender : TObject);

procedure FormCreate(Sender : TObject);

procedure Timer2Timer(Sender : TObject);

procedure ClientError(Sender : TObject);

procedure ClientConnect(Sender : TObject);

procedure FindFile1Complete(Sender : TObject);

private

{ Private declarations }

public

{ Public declarations }

end ;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FindFile1Found(Sender : TObject);

asm

0045FAD4 55 push ebp

0045FAD5 8BEC mov ebp, esp

0045FAD7 53 push ebx

0045FAD8 8BD8 mov ebx, eax

0045FADA 33C0 xor eax, eax

0045FADC 55 push ebp

0045FADD 6801FB4500 push $0045FB01

//*//*//*//*//* TRY

0045FAE2 64FF30 push dword ptr fs:[eax]

0045FAE5 648920 mov fs:[eax], esp

//* Reference to control TForm1.Client : TClientSocket

0045FAE8 8B83F0020000 mov eax, [ebx+$02F0]

//* Reference to: ScktComp.TAbstractSocket.Open(TAbstractSocket);

0045FAEE E8A97EFFFF call 0045799C

0045FAF3 33C0 xor eax, eax

0045FAF5 5A pop edx

0045FAF6 59 pop ecx

0045FAF7 59 pop ecx

0045FAF8 648910 mov fs:[eax], edx

//*//*//*//*//*//* FINALLY

0045FAFB 6808FB4500 push $0045FB08

0045FB00 C3 ret

//* Reference to: System.@HandleFinally;

0045FB01 E9BE43FAFF jmp 00403EC4

0045FB06 EBF8 jmp 0045FB00

//*//*//*//*//*//* END

0045FB08 5B pop ebx

0045FB09 5D pop ebp

0045FB0A C20400 ret $0004

end;

procedure TForm1.FormCreate(Sender : TObject);

asm

0045FB10 55 push ebp

0045FB11 8BEC mov ebp, esp

0045FB13 B919000000 mov ecx, $00000019

0045FB18 6A00 push $00

0045FB1A 6A00 push $00

0045FB1C 49 dec ecx

0045FB1D 75F9 jnz 0045FB18

0045FB1F 51 push ecx

0045FB20 53 push ebx

0045FB21 56 push esi

0045FB22 57 push edi

0045FB23 8945FC mov [ebp-$04], eax

0045FB26 33C0 xor eax, eax

0045FB28 55 push ebp

//* Possible String Reference to: 'éì:úÿëà_^[‹å]Ã'

0045FB29 68D3034600 push $004603D3

//*//*//*//*//* TRY

0045FB2E 64FF30 push dword ptr fs:[eax]

0045FB31 648920 mov fs:[eax], esp

//* Possible String Reference to: 'WinMüzik v1.2'

0045FB34 68E4034600 push $004603E4

0045FB39 6A00 push $00

0045FB3B 6A00 push $00

//* Reference to: Unit_004069B8.Proc_00406A90

0045FB3D E84E6FFAFF call 00406A90

//* Reference to: GetModuleHandleA.GetLastError()

0045FB42 E81970FAFF call 00406B60

0045FB47 3DB7000000 cmp eax, $000000B7

0045FB4C 7437 jz 0045FB85

0045FB4E 6A01 push $01

0045FB50 6A00 push $00

0045FB52 6A00 push $00

0045FB54 8D45EC lea eax, [ebp-$14]

//* Reference to: Unit_0045F6E8.Proc_0045F830

0045FB57 E8D4FCFFFF call 0045F830

0045FB5C 8D45EC lea eax, [ebp-$14]

//* Possible String Reference to: 'WinMuzik.exe'

0045FB5F BAFC034600 mov edx, $004603FC

//* Reference to: System.@LStrCat;

0045FB64 E8774CFAFF call 004047E0

0045FB69 8B45EC mov eax, [ebp-$14]

0045FB6C E85F4EFAFF call 004049D0

0045FB71 50 push eax

0045FB72 680C044600 push $0046040C

0045FB77 8B45FC mov eax, [ebp-$04]

//* Reference to: Controls.TWinControl.GetHandle(TWinControl):HWND;

0045FB7A E8A9BAFDFF call 0043B628

0045FB7F 50 push eax

//* Reference to: SysAllocStringLen.ShellExecuteA()

0045FB80 E893EBFCFF call 0042E718

0045FB85 B201 mov dl, $01

//* Reference to class TRegistry

0045FB87 A18C984500 mov eax, dword ptr [$0045988C]

//* Reference to: Unit_0045982C.Proc_00459938

0045FB8C E8A79DFFFF call 00459938

0045FB91 8BD8 mov ebx, eax

0045FB93 B201 mov dl, $01

//* Reference to class TStringList

0045FB95 A11C9D4100 mov eax, dword ptr [$00419D1C]

//* Reference to: System.TObject.Create(TObject;Boolean);

0045FB9A E8793BFAFF call 00403718

0045FB9F 8945F0 mov [ebp-$10], eax

0045FBA2 BA00000080 mov edx, $80000000

0045FBA7 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599D8

0045FBA9 E82A9EFFFF call 004599D8

0045FBAE 8D55E4 lea edx, [ebp-$1C]

//* Reference to TApplication instance

0045FBB1 A16C214600 mov eax, dword ptr [$0046216C]

0045FBB6 8B00 mov eax, [eax]

//* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;

0045FBB8 E8F351FFFF call 00454DB0

0045FBBD 8B45E4 mov eax, [ebp-$1C]

0045FBC0 8D55E8 lea edx, [ebp-$18]

//* Reference to: Unit_004078E4.Proc_00408D00

0045FBC3 E83891FAFF call 00408D00

0045FBC8 8D45E8 lea eax, [ebp-$18]

//* Possible String Reference to: 'Shell.ocx'

0045FBCB BA1C044600 mov edx, $0046041C

//* Reference to: System.@LStrCat;

0045FBD0 E80B4CFAFF call 004047E0

0045FBD5 8B45E8 mov eax, [ebp-$18]

//* Reference to: Unit_004078E4.Proc_00408B48

0045FBD8 E86B8FFAFF call 00408B48

0045FBDD 84C0 test al, al

0045FBDF 7432 jz 0045FC13

0045FBE1 8D55DC lea edx, [ebp-$24]

//* Reference to TApplication instance

0045FBE4 A16C214600 mov eax, dword ptr [$0046216C]

0045FBE9 8B00 mov eax, [eax]

//* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;

0045FBEB E8C051FFFF call 00454DB0

0045FBF0 8B45DC mov eax, [ebp-$24]

0045FBF3 8D55E0 lea edx, [ebp-$20]

//* Reference to: Unit_004078E4.Proc_00408D00

0045FBF6 E80591FAFF call 00408D00

0045FBFB 8D45E0 lea eax, [ebp-$20]

//* Possible String Reference to: 'Shell.ocx'

0045FBFE BA1C044600 mov edx, $0046041C

//* Reference to: System.@LStrCat;

0045FC03 E8D84BFAFF call 004047E0

0045FC08 8B55E0 mov edx, [ebp-$20]

0045FC0B 8B45F0 mov eax, [ebp-$10]

0045FC0E 8B08 mov ecx, [eax]

//* Reference to method TStringList.LoadFromFile(string)

0045FC10 FF5168 call dword ptr [ecx+$68]

0045FC13 8B45F0 mov eax, [ebp-$10]

0045FC16 8B10 mov edx, [eax]

//* Reference to method TStringList.GetCount()

0045FC18 FF5214 call dword ptr [edx+$14]

0045FC1B 8BF0 mov esi, eax

0045FC1D 4E dec esi

0045FC1E 85F6 test esi, esi

0045FC20 0F8C88000000 jl 0045FCAE

0045FC26 46 inc esi

0045FC27 C745F400000000 mov dword ptr [ebp-$0C], $00000000

0045FC2E 8D4DF8 lea ecx, [ebp-$08]

0045FC31 8B55F4 mov edx, [ebp-$0C]

0045FC34 8B45F0 mov eax, [ebp-$10]

0045FC37 8B38 mov edi, [eax]

//* Reference to method TStringList.Get(Integer)

0045FC39 FF570C call dword ptr [edi+$0C]

0045FC3C 6830044600 push $00460430

0045FC41 FF75F8 push dword ptr [ebp-$08]

//* Possible String Reference to: 'shellWinMüzik ile Açcommand'

0045FC44 683C044600 push $0046043C

0045FC49 8D45D8 lea eax, [ebp-$28]

0045FC4C BA03000000 mov edx, $00000003

//* Reference to: System.@LStrCatN;

0045FC51 E8424CFAFF call 00404898

0045FC56 8B55D8 mov edx, [ebp-$28]

0045FC59 B101 mov cl, $01

0045FC5B 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

0045FC5D E8DA9DFFFF call 00459A3C

0045FC62 33D2 xor edx, edx

0045FC64 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B60

0045FC66 E8F59EFFFF call 00459B60

0045FC6B 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

0045FC6D E8369DFFFF call 004599A8

0045FC72 6830044600 push $00460430

0045FC77 FF75F8 push dword ptr [ebp-$08]

//* Possible String Reference to: 'shellWinMüzik Listeye Eklecommand'

0045FC7A 6864044600 push $00460464

0045FC7F 8D45D4 lea eax, [ebp-$2C]

0045FC82 BA03000000 mov edx, $00000003

//* Reference to: System.@LStrCatN;

0045FC87 E80C4CFAFF call 00404898

0045FC8C 8B55D4 mov edx, [ebp-$2C]

0045FC8F B101 mov cl, $01

0045FC91 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

0045FC93 E8A49DFFFF call 00459A3C

0045FC98 33D2 xor edx, edx

0045FC9A 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B60

0045FC9C E8BF9EFFFF call 00459B60

0045FCA1 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

0045FCA3 E8009DFFFF call 004599A8

0045FCA8 FF45F4 inc dword ptr [ebp-$0C]

0045FCAB 4E dec esi

0045FCAC 7580 jnz 0045FC2E

0045FCAE 8B45F0 mov eax, [ebp-$10]

0045FCB1 8B10 mov edx, [eax]

//* Reference to method TStringList.GetCount()

0045FCB3 FF5214 call dword ptr [edx+$14]

0045FCB6 8BF0 mov esi, eax

0045FCB8 4E dec esi

0045FCB9 85F6 test esi, esi

0045FCBB 0F8CB2010000 jl 0045FE73

0045FCC1 46 inc esi

0045FCC2 C745F400000000 mov dword ptr [ebp-$0C], $00000000

0045FCC9 8D4DF8 lea ecx, [ebp-$08]

0045FCCC 8B55F4 mov edx, [ebp-$0C]

0045FCCF 8B45F0 mov eax, [ebp-$10]

0045FCD2 8B38 mov edi, [eax]

//* Reference to method TStringList.Get(Integer)

0045FCD4 FF570C call dword ptr [edi+$0C]

0045FCD7 6830044600 push $00460430

0045FCDC FF75F8 push dword ptr [ebp-$08]

//* Possible String Reference to: 'shellWinMüzik ile Açcommand'

0045FCDF 683C044600 push $0046043C

0045FCE4 8D45D0 lea eax, [ebp-$30]

0045FCE7 BA03000000 mov edx, $00000003

//* Reference to: System.@LStrCatN;

0045FCEC E8A74BFAFF call 00404898

0045FCF1 8B55D0 mov edx, [ebp-$30]

0045FCF4 B101 mov cl, $01

0045FCF6 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

0045FCF8 E83F9DFFFF call 00459A3C

0045FCFD 8D55CC lea edx, [ebp-$34]

//* Reference to TApplication instance

0045FD00 A16C214600 mov eax, dword ptr [$0046216C]

0045FD05 8B00 mov eax, [eax]

//* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;

0045FD07 E8A450FFFF call 00454DB0

0045FD0C 8D45CC lea eax, [ebp-$34]

//* Possible String Reference to: ' %Ac'

0045FD0F BA94044600 mov edx, $00460494

//* Reference to: System.@LStrCat;

0045FD14 E8C74AFAFF call 004047E0

0045FD19 8B4DCC mov ecx, [ebp-$34]

0045FD1C 33D2 xor edx, edx

0045FD1E 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B80

0045FD20 E85B9EFFFF call 00459B80

0045FD25 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

0045FD27 E87C9CFFFF call 004599A8

0045FD2C 8D45C8 lea eax, [ebp-$38]

0045FD2F 8B4DF8 mov ecx, [ebp-$08]

0045FD32 BA30044600 mov edx, $00460430

//* Reference to: System.@LStrCat3;

0045FD37 E8E84AFAFF call 00404824

0045FD3C 8B55C8 mov edx, [ebp-$38]

0045FD3F B101 mov cl, $01

0045FD41 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

0045FD43 E8F49CFFFF call 00459A3C

0045FD48 8D45C4 lea eax, [ebp-$3C]

0045FD4B 8B4DF8 mov ecx, [ebp-$08]

//* Possible String Reference to: 'WinMüzik'

0045FD4E BAA4044600 mov edx, $004604A4

//* Reference to: System.@LStrCat3;

0045FD53 E8CC4AFAFF call 00404824

0045FD58 8B4DC4 mov ecx, [ebp-$3C]

0045FD5B 33D2 xor edx, edx

0045FD5D 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B80

0045FD5F E81C9EFFFF call 00459B80

0045FD64 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

0045FD66 E83D9CFFFF call 004599A8

0045FD6B 8D45C0 lea eax, [ebp-$40]

0045FD6E 8B4DF8 mov ecx, [ebp-$08]

//* Possible String Reference to: 'WinMüzik'

0045FD71 BAA4044600 mov edx, $004604A4

//* Reference to: System.@LStrCat3;

0045FD76 E8A94AFAFF call 00404824

0045FD7B 8B55C0 mov edx, [ebp-$40]

0045FD7E B101 mov cl, $01

0045FD80 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

0045FD82 E8B59CFFFF call 00459A3C

//* Possible String Reference to: 'WinMüzik v1.20 '

0045FD87 68B8044600 push $004604B8

0045FD8C 8D55B8 lea edx, [ebp-$48]

0045FD8F 8B45F8 mov eax, [ebp-$08]

//* Reference to: Unit_004078E4.Proc_00408580

0045FD92 E8E987FAFF call 00408580

0045FD97 FF75B8 push dword ptr [ebp-$48]

//* Possible String Reference to: ' Dosyası'

0045FD9A 68D0044600 push $004604D0

0045FD9F 8D45BC lea eax, [ebp-$44]

0045FDA2 BA03000000 mov edx, $00000003

//* Reference to: System.@LStrCatN;

0045FDA7 E8EC4AFAFF call 00404898

0045FDAC 8B4DBC mov ecx, [ebp-$44]

0045FDAF 33D2 xor edx, edx

0045FDB1 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B80

0045FDB3 E8C89DFFFF call 00459B80

0045FDB8 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

0045FDBA E8E99BFFFF call 004599A8

//* Possible String Reference to: 'WinMüzik'

0045FDBF 68A4044600 push $004604A4

0045FDC4 FF75F8 push dword ptr [ebp-$08]

//* Possible String Reference to: 'DefaultIcon'

0045FDC7 68E4044600 push $004604E4

0045FDCC 8D45B4 lea eax, [ebp-$4C]

0045FDCF BA03000000 mov edx, $00000003

//* Reference to: System.@LStrCatN;

0045FDD4 E8BF4AFAFF call 00404898

0045FDD9 8B55B4 mov edx, [ebp-$4C]

0045FDDC B101 mov cl, $01

0045FDDE 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

0045FDE0 E8579CFFFF call 00459A3C

0045FDE5 8D55B0 lea edx, [ebp-$50]

//* Reference to TApplication instance

0045FDE8 A16C214600 mov eax, dword ptr [$0046216C]

0045FDED 8B00 mov eax, [eax]

//* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;

0045FDEF E8BC4FFFFF call 00454DB0

0045FDF4 8D45B0 lea eax, [ebp-$50]

//* Possible String Reference to: ',0'

0045FDF7 BAFC044600 mov edx, $004604FC

//* Reference to: System.@LStrCat;

0045FDFC E8DF49FAFF call 004047E0

0045FE01 8B4DB0 mov ecx, [ebp-$50]

0045FE04 33D2 xor edx, edx

0045FE06 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B80

0045FE08 E8739DFFFF call 00459B80

0045FE0D 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

0045FE0F E8949BFFFF call 004599A8

//* Possible String Reference to: 'WinMüzik'

0045FE14 68A4044600 push $004604A4

0045FE19 FF75F8 push dword ptr [ebp-$08]

//* Possible String Reference to: 'shellWinMüzik ile Açcommand'

0045FE1C 683C044600 push $0046043C

0045FE21 8D45AC lea eax, [ebp-$54]

0045FE24 BA03000000 mov edx, $00000003

//* Reference to: System.@LStrCatN;

0045FE29 E86A4AFAFF call 00404898

0045FE2E 8B55AC mov edx, [ebp-$54]

0045FE31 B101 mov cl, $01

0045FE33 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

0045FE35 E8029CFFFF call 00459A3C

0045FE3A 8D55A8 lea edx, [ebp-$58]

//* Reference to TApplication instance

0045FE3D A16C214600 mov eax, dword ptr [$0046216C]

0045FE42 8B00 mov eax, [eax]

//* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;

0045FE44 E8674FFFFF call 00454DB0

0045FE49 8D45A8 lea eax, [ebp-$58]

//* Possible String Reference to: ' %1Ac'

0045FE4C BA08054600 mov edx, $00460508

//* Reference to: System.@LStrCat;

0045FE51 E88A49FAFF call 004047E0

0045FE56 8B4DA8 mov ecx, [ebp-$58]

0045FE59 33D2 xor edx, edx

0045FE5B 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B80

0045FE5D E81E9DFFFF call 00459B80

0045FE62 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

0045FE64 E83F9BFFFF call 004599A8

0045FE69 FF45F4 inc dword ptr [ebp-$0C]

0045FE6C 4E dec esi

0045FE6D 0F8556FEFFFF jnz 0045FCC9

0045FE73 8B45F0 mov eax, [ebp-$10]

0045FE76 8B10 mov edx, [eax]

//* Reference to method TStringList.GetCount()

0045FE78 FF5214 call dword ptr [edx+$14]

0045FE7B 8BF0 mov esi, eax

0045FE7D 4E dec esi

0045FE7E 85F6 test esi, esi

0045FE80 0F8CBB010000 jl 00460041

0045FE86 46 inc esi

0045FE87 C745F400000000 mov dword ptr [ebp-$0C], $00000000

0045FE8E 8D4DF8 lea ecx, [ebp-$08]

0045FE91 8B55F4 mov edx, [ebp-$0C]

0045FE94 8B45F0 mov eax, [ebp-$10]

0045FE97 8B38 mov edi, [eax]

//* Reference to method TStringList.Get(Integer)

0045FE99 FF570C call dword ptr [edi+$0C]

0045FE9C 6830044600 push $00460430

0045FEA1 FF75F8 push dword ptr [ebp-$08]

//* Possible String Reference to: 'shellWinMüzik Listeye Eklecommand'

0045FEA4 6864044600 push $00460464

0045FEA9 8D45A4 lea eax, [ebp-$5C]

0045FEAC BA03000000 mov edx, $00000003

//* Reference to: System.@LStrCatN;

0045FEB1 E8E249FAFF call 00404898

0045FEB6 8B55A4 mov edx, [ebp-$5C]

0045FEB9 B101 mov cl, $01

0045FEBB 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

0045FEBD E87A9BFFFF call 00459A3C

0045FEC2 8D55A0 lea edx, [ebp-$60]

//* Reference to TApplication instance

0045FEC5 A16C214600 mov eax, dword ptr [$0046216C]

0045FECA 8B00 mov eax, [eax]

//* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;

0045FECC E8DF4EFFFF call 00454DB0

0045FED1 8D45A0 lea eax, [ebp-$60]

//* Possible String Reference to: ' %1Ekle'

0045FED4 BA18054600 mov edx, $00460518

//* Reference to: System.@LStrCat;

0045FED9 E80249FAFF call 004047E0

0045FEDE 8B4DA0 mov ecx, [ebp-$60]

0045FEE1 33D2 xor edx, edx

0045FEE3 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B80

0045FEE5 E8969CFFFF call 00459B80

0045FEEA 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

0045FEEC E8B79AFFFF call 004599A8

0045FEF1 8D459C lea eax, [ebp-$64]

0045FEF4 8B4DF8 mov ecx, [ebp-$08]

0045FEF7 BA30044600 mov edx, $00460430

//* Reference to: System.@LStrCat3;

0045FEFC E82349FAFF call 00404824

0045FF01 8B559C mov edx, [ebp-$64]

0045FF04 B101 mov cl, $01

0045FF06 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

0045FF08 E82F9BFFFF call 00459A3C

0045FF0D 8D4598 lea eax, [ebp-$68]

0045FF10 8B4DF8 mov ecx, [ebp-$08]

//* Possible String Reference to: 'WinMüzik'

0045FF13 BAA4044600 mov edx, $004604A4

//* Reference to: System.@LStrCat3;

0045FF18 E80749FAFF call 00404824

0045FF1D 8B4D98 mov ecx, [ebp-$68]

0045FF20 33D2 xor edx, edx

0045FF22 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B80

0045FF24 E8579CFFFF call 00459B80

0045FF29 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

0045FF2B E8789AFFFF call 004599A8

0045FF30 8D4594 lea eax, [ebp-$6C]

0045FF33 8B4DF8 mov ecx, [ebp-$08]

//* Possible String Reference to: 'WinMüzik'

0045FF36 BAA4044600 mov edx, $004604A4

//* Reference to: System.@LStrCat3;

0045FF3B E8E448FAFF call 00404824

0045FF40 8B5594 mov edx, [ebp-$6C]

0045FF43 B101 mov cl, $01

0045FF45 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

0045FF47 E8F09AFFFF call 00459A3C

//* Possible String Reference to: 'WinMüzik v1.20 '

0045FF4C 68B8044600 push $004604B8

0045FF51 8D558C lea edx, [ebp-$74]

0045FF54 8B45F8 mov eax, [ebp-$08]

//* Reference to: Unit_004078E4.Proc_00408580

0045FF57 E82486FAFF call 00408580

0045FF5C FF758C push dword ptr [ebp-$74]

//* Possible String Reference to: ' Dosyası'

0045FF5F 68D0044600 push $004604D0

0045FF64 8D4590 lea eax, [ebp-$70]

0045FF67 BA03000000 mov edx, $00000003

//* Reference to: System.@LStrCatN;

0045FF6C E82749FAFF call 00404898

0045FF71 8B4D90 mov ecx, [ebp-$70]

0045FF74 33D2 xor edx, edx

0045FF76 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B80

0045FF78 E8039CFFFF call 00459B80

0045FF7D 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

0045FF7F E8249AFFFF call 004599A8

//* Possible String Reference to: 'WinMüzik'

0045FF84 68A4044600 push $004604A4

0045FF89 FF75F8 push dword ptr [ebp-$08]

//* Possible String Reference to: 'DefaultIcon'

0045FF8C 68E4044600 push $004604E4

0045FF91 8D4588 lea eax, [ebp-$78]

0045FF94 BA03000000 mov edx, $00000003

//* Reference to: System.@LStrCatN;

0045FF99 E8FA48FAFF call 00404898

0045FF9E 8B5588 mov edx, [ebp-$78]

0045FFA1 B101 mov cl, $01

0045FFA3 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

0045FFA5 E8929AFFFF call 00459A3C

0045FFAA 8D5584 lea edx, [ebp-$7C]

//* Reference to TApplication instance

0045FFAD A16C214600 mov eax, dword ptr [$0046216C]

0045FFB2 8B00 mov eax, [eax]

//* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;

0045FFB4 E8F74DFFFF call 00454DB0

0045FFB9 8D4584 lea eax, [ebp-$7C]

//* Possible String Reference to: ',0'

0045FFBC BAFC044600 mov edx, $004604FC

//* Reference to: System.@LStrCat;

0045FFC1 E81A48FAFF call 004047E0

0045FFC6 8B4D84 mov ecx, [ebp-$7C]

0045FFC9 33D2 xor edx, edx

0045FFCB 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B80

0045FFCD E8AE9BFFFF call 00459B80

0045FFD2 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

0045FFD4 E8CF99FFFF call 004599A8

//* Possible String Reference to: 'WinMüzik'

0045FFD9 68A4044600 push $004604A4

0045FFDE FF75F8 push dword ptr [ebp-$08]

//* Possible String Reference to: 'shellWinMüzik Listeye Eklecommand'

0045FFE1 6864044600 push $00460464

0045FFE6 8D4580 lea eax, [ebp-$80]

0045FFE9 BA03000000 mov edx, $00000003

//* Reference to: System.@LStrCatN;

0045FFEE E8A548FAFF call 00404898

0045FFF3 8B5580 mov edx, [ebp-$80]

0045FFF6 B101 mov cl, $01

0045FFF8 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

0045FFFA E83D9AFFFF call 00459A3C

0045FFFF 8D957CFFFFFF lea edx, [ebp+$FFFFFF7C]

//* Reference to TApplication instance

00460005 A16C214600 mov eax, dword ptr [$0046216C]

0046000A 8B00 mov eax, [eax]

//* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;

0046000C E89F4DFFFF call 00454DB0

00460011 8D857CFFFFFF lea eax, [ebp+$FFFFFF7C]

//* Possible String Reference to: ' %1Ekle'

00460017 BA18054600 mov edx, $00460518

//* Reference to: System.@LStrCat;

0046001C E8BF47FAFF call 004047E0

00460021 8B8D7CFFFFFF mov ecx, [ebp+$FFFFFF7C]

00460027 33D2 xor edx, edx

00460029 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B80

0046002B E8509BFFFF call 00459B80

00460030 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

00460032 E87199FFFF call 004599A8

00460037 FF45F4 inc dword ptr [ebp-$0C]

0046003A 4E dec esi

0046003B 0F854DFEFFFF jnz 0045FE8E

00460041 8D45F8 lea eax, [ebp-$08]

//* Possible String Reference to: 'Folder'

00460044 BA28054600 mov edx, $00460528

//* Reference to: System.@LStrLAsg(void;void;void;void);

00460049 E86A45FAFF call 004045B8

0046004E 8D8578FFFFFF lea eax, [ebp+$FFFFFF78]

//* Possible String Reference to: 'shellWinMüzik Listeye Eklecommand'

00460054 B964044600 mov ecx, $00460464

00460059 8B55F8 mov edx, [ebp-$08]

//* Reference to: System.@LStrCat3;

0046005C E8C347FAFF call 00404824

00460061 8B9578FFFFFF mov edx, [ebp+$FFFFFF78]

00460067 B101 mov cl, $01

00460069 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

0046006B E8CC99FFFF call 00459A3C

00460070 8D9574FFFFFF lea edx, [ebp+$FFFFFF74]

//* Reference to TApplication instance

00460076 A16C214600 mov eax, dword ptr [$0046216C]

0046007B 8B00 mov eax, [eax]

//* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;

0046007D E82E4DFFFF call 00454DB0

00460082 8D8574FFFFFF lea eax, [ebp+$FFFFFF74]

//* Possible String Reference to: ' %1Ekle'

00460088 BA18054600 mov edx, $00460518

//* Reference to: System.@LStrCat;

0046008D E84E47FAFF call 004047E0

00460092 8B8D74FFFFFF mov ecx, [ebp+$FFFFFF74]

00460098 33D2 xor edx, edx

0046009A 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B80

0046009C E8DF9AFFFF call 00459B80

004600A1 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

004600A3 E80099FFFF call 004599A8

004600A8 B101 mov cl, $01

004600AA 8B55F8 mov edx, [ebp-$08]

004600AD 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

004600AF E88899FFFF call 00459A3C

004600B4 8D8570FFFFFF lea eax, [ebp+$FFFFFF70]

004600BA 8B4DF8 mov ecx, [ebp-$08]

//* Possible String Reference to: 'WinMüzik'

004600BD BAA4044600 mov edx, $004604A4

//* Reference to: System.@LStrCat3;

004600C2 E85D47FAFF call 00404824

004600C7 8B8D70FFFFFF mov ecx, [ebp+$FFFFFF70]

004600CD 33D2 xor edx, edx

004600CF 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B80

004600D1 E8AA9AFFFF call 00459B80

004600D6 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

004600D8 E8CB98FFFF call 004599A8

//* Possible String Reference to: 'WinMüzik'

004600DD 68A4044600 push $004604A4

004600E2 FF75F8 push dword ptr [ebp-$08]

//* Possible String Reference to: 'shellWinMüzik Listeye Eklecommand'

004600E5 6864044600 push $00460464

004600EA 8D856CFFFFFF lea eax, [ebp+$FFFFFF6C]

004600F0 BA03000000 mov edx, $00000003

//* Reference to: System.@LStrCatN;

004600F5 E89E47FAFF call 00404898

004600FA 8B956CFFFFFF mov edx, [ebp+$FFFFFF6C]

00460100 B101 mov cl, $01

00460102 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

00460104 E83399FFFF call 00459A3C

00460109 8D9568FFFFFF lea edx, [ebp+$FFFFFF68]

//* Reference to TApplication instance

0046010F A16C214600 mov eax, dword ptr [$0046216C]

00460114 8B00 mov eax, [eax]

//* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;

00460116 E8954CFFFF call 00454DB0

0046011B 8D8568FFFFFF lea eax, [ebp+$FFFFFF68]

//* Possible String Reference to: ' %1Ekle'

00460121 BA18054600 mov edx, $00460518

//* Reference to: System.@LStrCat;

00460126 E8B546FAFF call 004047E0

0046012B 8B8D68FFFFFF mov ecx, [ebp+$FFFFFF68]

00460131 33D2 xor edx, edx

00460133 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B80

00460135 E8469AFFFF call 00459B80

0046013A 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

0046013C E86798FFFF call 004599A8

00460141 8D8564FFFFFF lea eax, [ebp+$FFFFFF64]

//* Possible String Reference to: 'shellWinMüzik ile Açcommand'

00460147 B93C044600 mov ecx, $0046043C

0046014C 8B55F8 mov edx, [ebp-$08]

//* Reference to: System.@LStrCat3;

0046014F E8D046FAFF call 00404824

00460154 8B9564FFFFFF mov edx, [ebp+$FFFFFF64]

0046015A B101 mov cl, $01

0046015C 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

0046015E E8D998FFFF call 00459A3C

00460163 8D9560FFFFFF lea edx, [ebp+$FFFFFF60]

//* Reference to TApplication instance

00460169 A16C214600 mov eax, dword ptr [$0046216C]

0046016E 8B00 mov eax, [eax]

//* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;

00460170 E83B4CFFFF call 00454DB0

00460175 8D8560FFFFFF lea eax, [ebp+$FFFFFF60]

//* Possible String Reference to: ' %1Ac'

0046017B BA08054600 mov edx, $00460508

//* Reference to: System.@LStrCat;

00460180 E85B46FAFF call 004047E0

00460185 8B8D60FFFFFF mov ecx, [ebp+$FFFFFF60]

0046018B 33D2 xor edx, edx

0046018D 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B80

0046018F E8EC99FFFF call 00459B80

00460194 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

00460196 E80D98FFFF call 004599A8

0046019B B101 mov cl, $01

0046019D 8B55F8 mov edx, [ebp-$08]

004601A0 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

004601A2 E89598FFFF call 00459A3C

004601A7 8D855CFFFFFF lea eax, [ebp+$FFFFFF5C]

004601AD 8B4DF8 mov ecx, [ebp-$08]

//* Possible String Reference to: 'WinMüzik'

004601B0 BAA4044600 mov edx, $004604A4

//* Reference to: System.@LStrCat3;

004601B5 E86A46FAFF call 00404824

004601BA 8B8D5CFFFFFF mov ecx, [ebp+$FFFFFF5C]

004601C0 33D2 xor edx, edx

004601C2 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B80

004601C4 E8B799FFFF call 00459B80

004601C9 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

004601CB E8D897FFFF call 004599A8

//* Possible String Reference to: 'WinMüzik'

004601D0 68A4044600 push $004604A4

004601D5 FF75F8 push dword ptr [ebp-$08]

//* Possible String Reference to: 'shellWinMüzik Listeye Eklecommand'

004601D8 6864044600 push $00460464

004601DD 8D8558FFFFFF lea eax, [ebp+$FFFFFF58]

004601E3 BA03000000 mov edx, $00000003

//* Reference to: System.@LStrCatN;

004601E8 E8AB46FAFF call 00404898

004601ED 8B9558FFFFFF mov edx, [ebp+$FFFFFF58]

004601F3 B101 mov cl, $01

004601F5 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459A3C

004601F7 E84098FFFF call 00459A3C

004601FC 8D9554FFFFFF lea edx, [ebp+$FFFFFF54]

//* Reference to TApplication instance

00460202 A16C214600 mov eax, dword ptr [$0046216C]

00460207 8B00 mov eax, [eax]

//* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;

00460209 E8A24BFFFF call 00454DB0

0046020E 8D8554FFFFFF lea eax, [ebp+$FFFFFF54]

//* Possible String Reference to: ' %1Ac'

00460214 BA08054600 mov edx, $00460508

//* Reference to: System.@LStrCat;

00460219 E8C245FAFF call 004047E0

0046021E 8B8D54FFFFFF mov ecx, [ebp+$FFFFFF54]

00460224 33D2 xor edx, edx

00460226 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_00459B80

00460228 E85399FFFF call 00459B80

0046022D 8BC3 mov eax, ebx

//* Reference to: Unit_0045982C.Proc_004599A8

0046022F E87497FFFF call 004599A8

00460234 8BC3 mov eax, ebx

//* Reference to: System.TObject.Free(TObject);

00460236 E80D35FAFF call 00403748

//* Reference to Form1

0046023B 8B45FC mov eax, [ebp-$04]

//* Reference to control TForm1.Timer2 : TTimer

0046023E 8B80F8020000 mov eax, [eax+$02F8]

00460244 B201 mov dl, $01

//* Reference to: ExtCtrls.TTimer.SetEnabled(TTimer;Boolean);

00460246 E8C1E8FCFF call 0042EB0C

0046024B 68704E4600 push $00464E70

00460250 8D9550FFFFFF lea edx, [ebp+$FFFFFF50]

00460256 B801000000 mov eax, $00000001

//* Reference to: System.ParamStr(Integer):String;

0046025B E83828FAFF call 00402A98

00460260 8B8550FFFFFF mov eax, [ebp+$FFFFFF50]

//* Reference to: System.@LStrLen(String):Integer;

00460266 E86D45FAFF call 004047D8

0046026B 48 dec eax

0046026C 50 push eax

0046026D 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]

00460273 B801000000 mov eax, $00000001

//* Reference to: System.ParamStr(Integer):String;

00460278 E81B28FAFF call 00402A98

0046027D 8B854CFFFFFF mov eax, [ebp+$FFFFFF4C]

00460283 B902000000 mov ecx, $00000002

00460288 5A pop edx

//* Reference to: System.@LStrCopy;

00460289 E8A247FAFF call 00404A30

0046028E A1704E4600 mov eax, dword ptr [$00464E70]

//* Possible String Reference to: 'Ac'

00460293 BA38054600 mov edx, $00460538

//* Reference to: System.@LStrCmp;

00460298 E87F46FAFF call 0040491C

0046029D 7542 jnz 004602E1

0046029F 68744E4600 push $00464E74

004602A4 8D9548FFFFFF lea edx, [ebp+$FFFFFF48]

004602AA B801000000 mov eax, $00000001

//* Reference to: System.ParamStr(Integer):String;

004602AF E8E427FAFF call 00402A98

004602B4 8B8548FFFFFF mov eax, [ebp+$FFFFFF48]

//* Reference to: System.@LStrLen(String):Integer;

004602BA E81945FAFF call 004047D8

004602BF 83E802 sub eax, +$02

004602C2 50 push eax

004602C3 8D9544FFFFFF lea edx, [ebp+$FFFFFF44]

004602C9 B801000000 mov eax, $00000001

//* Reference to: System.ParamStr(Integer):String;

004602CE E8C527FAFF call 00402A98

004602D3 8B8544FFFFFF mov eax, [ebp+$FFFFFF44]

004602D9 33D2 xor edx, edx

004602DB 59 pop ecx

//* Reference to: System.@LStrCopy;

004602DC E84F47FAFF call 00404A30

004602E1 A1704E4600 mov eax, dword ptr [$00464E70]

//* Possible String Reference to: 'Ac'

004602E6 BA38054600 mov edx, $00460538

//* Reference to: System.@LStrCmp;

004602EB E82C46FAFF call 0040491C

004602F0 0F8487000000 jz 0046037D

004602F6 68704E4600 push $00464E70

004602FB 8D9540FFFFFF lea edx, [ebp+$FFFFFF40]

00460301 B801000000 mov eax, $00000001

//* Reference to: System.ParamStr(Integer):String;

00460306 E88D27FAFF call 00402A98

0046030B 8B8540FFFFFF mov eax, [ebp+$FFFFFF40]

//* Reference to: System.@LStrLen(String):Integer;

00460311 E8C244FAFF call 004047D8

00460316 83E803 sub eax, +$03

00460319 50 push eax

0046031A 8D953CFFFFFF lea edx, [ebp+$FFFFFF3C]

00460320 B801000000 mov eax, $00000001

//* Reference to: System.ParamStr(Integer):String;

00460325 E86E27FAFF call 00402A98

0046032A 8B853CFFFFFF mov eax, [ebp+$FFFFFF3C]

00460330 B904000000 mov ecx, $00000004

00460335 5A pop edx

//* Reference to: System.@LStrCopy;

00460336 E8F546FAFF call 00404A30

0046033B 68744E4600 push $00464E74

00460340 8D9538FFFFFF lea edx, [ebp+$FFFFFF38]

00460346 B801000000 mov eax, $00000001

//* Reference to: System.ParamStr(Integer):String;

0046034B E84827FAFF call 00402A98

00460350 8B8538FFFFFF mov eax, [ebp+$FFFFFF38]

//* Reference to: System.@LStrLen(String):Integer;

00460356 E87D44FAFF call 004047D8

0046035B 83E804 sub eax, +$04

0046035E 50 push eax

0046035F 8D9534FFFFFF lea edx, [ebp+$FFFFFF34]

00460365 B801000000 mov eax, $00000001

//* Reference to: System.ParamStr(Integer):String;

0046036A E82927FAFF call 00402A98

0046036F 8B8534FFFFFF mov eax, [ebp+$FFFFFF34]

00460375 33D2 xor edx, edx

00460377 59 pop ecx

//* Reference to: System.@LStrCopy;

00460378 E8B346FAFF call 00404A30

0046037D A1704E4600 mov eax, dword ptr [$00464E70]

//* Possible String Reference to: 'Ac'

00460382 BA38054600 mov edx, $00460538

//* Reference to: System.@LStrCmp;

00460387 E89045FAFF call 0040491C

0046038C 7411 jz 0046039F

0046038E A1704E4600 mov eax, dword ptr [$00464E70]

//* Possible String Reference to: 'Ekle'

00460393 BA44054600 mov edx, $00460544

//* Reference to: System.@LStrCmp;

00460398 E87F45FAFF call 0040491C

0046039D 750E jnz 004603AD

//* Reference to Form1

0046039F 8B45FC mov eax, [ebp-$04]

//* Reference to control TForm1.Client : TClientSocket

004603A2 8B80F0020000 mov eax, [eax+$02F0]

//* Reference to: ScktComp.TAbstractSocket.Open(TAbstractSocket);

004603A8 E8EF75FFFF call 0045799C

004603AD 33C0 xor eax, eax

004603AF 5A pop edx

004603B0 59 pop ecx

004603B1 59 pop ecx

004603B2 648910 mov fs:[eax], edx

//*//*//*//*//*//* FINALLY

//* Possible String Reference to: '_^[‹å]Ã'

004603B5 68DA034600 push $004603DA

004603BA 8D8534FFFFFF lea eax, [ebp+$FFFFFF34]

004603C0 BA2F000000 mov edx, $0000002F

//* Reference to: System.@LStrArrayClr(void;void;Integer);

004603C5 E87A41FAFF call 00404544

004603CA 8D45F8 lea eax, [ebp-$08]

//* Reference to: System.@LStrClr(void;void);

004603CD E84E41FAFF call 00404520

004603D2 C3 ret

//* Reference to: System.@HandleFinally;

004603D3 E9EC3AFAFF jmp 00403EC4

004603D8 EBE0 jmp 004603BA

//*//*//*//*//*//* END

004603DA 5F pop edi

004603DB 5E pop esi

004603DC 5B pop ebx

004603DD 8BE5 mov esp, ebp

004603DF 5D pop ebp

004603E0 C3 ret

end;

procedure TForm1.Timer2Timer(Sender : TObject);

asm

//* Reference to: System.@Halt0;

0046054C E85B3EFAFF call 004043AC

00460551 C3 ret

end;

procedure TForm1.ClientError(Sender : TObject);

asm

00460554 55 push ebp

00460555 8BEC mov ebp, esp

//* Reference to: System.@Halt0;

00460557 E8503EFAFF call 004043AC

0046055C 5D pop ebp

0046055D C20800 ret $0008

end;

procedure TForm1.ClientConnect(Sender : TObject);

asm

00460560 55 push ebp

00460561 8BEC mov ebp, esp

00460563 6A00 push $00

00460565 53 push ebx

00460566 8BD9 mov ebx, ecx

00460568 33C0 xor eax, eax

0046056A 55 push ebp

0046056B 68B9054600 push $004605B9

//*//*//*//*//* TRY

00460570 64FF30 push dword ptr fs:[eax]

00460573 648920 mov fs:[eax], esp

00460576 FF35704E4600 push dword ptr [$00464E70]

0046057C 68CC054600 push $004605CC

00460581 FF35744E4600 push dword ptr [$00464E74]

00460587 8D45FC lea eax, [ebp-$04]

0046058A BA03000000 mov edx, $00000003

//* Reference to: System.@LStrCatN;

0046058F E80443FAFF call 00404898

00460594 8B55FC mov edx, [ebp-$04]

00460597 8BC3 mov eax, ebx

//* Reference to: ScktComp.TCustomWinSocket.SendText(TCustomWinSocket;AnsiString):Integer;

00460599 E8226CFFFF call 004571C0

//* Reference to: System.@Halt0;

0046059E E8093EFAFF call 004043AC

004605A3 33C0 xor eax, eax

004605A5 5A pop edx

004605A6 59 pop ecx

004605A7 59 pop ecx

004605A8 648910 mov fs:[eax], edx

//*//*//*//*//*//* FINALLY

004605AB 68C0054600 push $004605C0

004605B0 8D45FC lea eax, [ebp-$04]

//* Reference to: System.@LStrClr(void;void);

004605B3 E8683FFAFF call 00404520

004605B8 C3 ret

//* Reference to: System.@HandleFinally;

004605B9 E90639FAFF jmp 00403EC4

004605BE EBF0 jmp 004605B0

//*//*//*//*//*//* END

004605C0 5B pop ebx

004605C1 59 pop ecx

004605C2 5D pop ebp

004605C3 C3 ret

end;

procedure TForm1.FindFile1Complete(Sender : TObject);

asm

//* Reference to: System.@Halt0;

004605D0 E8D73DFAFF call 004043AC

004605D5 C3 ret

end;

end.

Delphi - .....................................