Cara memunculkan pesan saat from delphi ditutup (diclose)

Hallo kawan,,

Oke kali ini saya akan menulis tentang cara memunculkan pesan saat project delphi kita tutup,

contoh

Pada gambar diatas saat saya ingin menutup aplikasi maka muncul from baru 

Gimana sih cara buatnya.???

Cara membuatnya sangatlah mudah

• Pertama pada project anda,anda klik from kosongnya satu kali saja,
• lalu klik menu events 
• klik dua kali pada menu onclosequery
• masukan kode berikut ini

 if(application.MessageBox('Yakin Vroh?','WARNING!!!',MB_YesNo)=ID_No) then
    begin
      close;
    end;

ditengah tulisan begin dan end;

contoh

***untuk tulisan biru bisa diganti sesuai keinginan

Sekian dan terimakasih

Cara Mengatasi D7reg.exe not found / cannot be found

Oke kali ini pada kesempatan ini saya akan mengeshare cara mengatasi pesan Unable to Register Delphi  d7reg.exe Cannot be Found.Kemarin saat saya mau buat inject tiba-tiba delphi7 saya tidak bisa dibuka dan muncul pesan seperti diatas.Saya udah uniinstall tpi hasilnya tetap sama nggak bisa dibuka dan selalu muncul pesan itu,ditengah keputuasaan saya mencoba segala macam cara.Akhirnya saya mendapat hidayah dari Tuhan yang memberi tau saya lewat google bahwa kamu harus mengapus file registry.slm yang terletak didata C:

Cara mencarinya sangat mudah

di data C: kalian Masuk ke C:\Users\nama user PC sobat\.borland lalu hapus file registry.slm

lalu silahkan buka delphi sobat 

SEKIAN :)

Cara membuat Inject sederhana dengan delphi 7

oke langsung saja..

HARUS SABAR TELATEN TELITI TEKUN DAN TIDAK SOMBONG

Pertama buka delphi 7 anda.
Ditampilan pertama anda akan melihat from kosong,lalu dimenu standard anda klik tombol button untuk memasang buttonnya

sehingga menjadi

lalu pasang lagi button kedua dengan cara yang sama sehingga menjadi

sekarang rubah nama buttonnya,klik satu kali pada button1 lalu pada properties dimenu caption kalian rubah namanya sesuai dengan keinginan.Saya akan merubah namanya pada button1 menjadi HIDUP dan button2 menjadi MATI

sehingga menjadi

lalu kalian klik dua kali pada button1 tadi sehingga akan terbuka tempat meletakan kode-kodenya
Nah pada button1 kalian masukan kode ini

IdMappedPortTCP1.Bindings.Add.Ip:='127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port:=StrToInt('8080');  ///disini angka 8080 ada listen portnya bisa kalian ganti sesuka hati
IdMappedPortTCP1.MappedHost:='10.1.89.130'; ///disini angka 10.1.89.130 ada proxy operator bisa kalian ganti sesuai dengan operator apa yang ingin kalian coba injectnya
IdMappedPortTCP1.MappedPort:=StrToInt('8000'); ///disini angka 8000 ada port operator bisa kalian ganti sesuai dengan operator apa yang ingin kalian coba injectnya
IdMappedPortTCP1.Active:=True;
Button1.Enabled:=False;
Button2.Enabled:=True;

ini adalah daftar proxy dan port operator yang sangat sering digunakan

Telkomsel
proxy                     port
10.1.89.130           8000
Indosat
10.19.19.19           8080
XL
202.152.240.50     8080
THREE 3
10.4.0.10               3128
AXIS
10.8.3.8                 8080

kemudian kalian klik dua kali di button2 tadi,masukan kode ini

IdMappedPortTCP1.Active:=False;
IdMappedPortTCP1.Bindings.Clear;
Button1.Enabled:=True;
Button2.Enabled:=False;

sehingga

lalu kalian masukan TCP terletak dimenu indy servers

klik satu kali di TCP nya lalu menu events klik dua kali menu OnExecute

kemudian diatas tulisan begin kalian letak kode

var
ESIND:string;

setelah itu dibawah tulisan begin kalian letak

ESIND:='GET http://BUGSKAMU/ HTTP/1.1'+#10#13#10#13#10#13+'Connection: Keep-Alive'+#10#13+'Host : BUGSKAMU'#10#13;
if pos('CONNECT',athread.NetData) <>0 then
athread.NetData:=athread.NetData+ESIND;


tulisan BUGSKAMU kalian ganti dengan bug yg kalian ketahui
sehingga

masih dimenu events TCP kalian klik dua kali dimenu ONOUTBOUNDDATA lalu masukan kode

 if (Pos('HTTP', AThread.NetData) <> 0) then
  begin
 AThread.NetData := AThread.NetData;
 AThread.NetData := 'HTTP/1.0 200 Connection established' + #13#13#13 + AThread.NetData;
 AThread.NetData := StringReplace(AThread.NetData,':109',':443',[rfReplaceAll]);

sehingga

terakhir kalian save as dimenu file
lalu kalian buildproject1 di menu project

lalu silahkan coba dengan ssh/openvpn kalian...




http://formationssh12.blogspot.com/2015/01/cara-membuat-inject-sederhana-dengan.html

Cara Membuat Form Delphi Menjadi Tranparan / Transparent

Oke kali ini ane akan buat tutol delphi 7 yaitu cara buat from delphi jadi transparent\

contohnya

pertama pada from kosong di properties

agan rubah pada menu color misalnya dipilih warna clGray maka from akan berubah warna

selanjutnya masi di properties dimenu menu transparent color value agan rubah juga warna clGray,,karena diatas kita memilih warna clGray maka dimenu transparent color value juga harus sama

lalu dimenu transparent color diatas menu transparent color value agan rubah False manjadi True

maka mudah-mudahan jika tidak ada kesalahan maka form tidak akan kelihatan atau menjadi transparent..nah setelah itu tinggal agan ucek2 lagi delphinya hehehe

sekian terimakasih,maaf kalau tidak membantu

http://formationssh12.blogspot.com/2015/01/cara-membuat-form-delphi-menjadi.html