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 Merubah File berformat flv atau mkv menjadi file rar

Oke gan kali ini ane akan sharing Cara Merubah File berformat flv atau mkv menjadi file rar.Caranya cukup mudah

• Pertama

Cukup klik kanan pada file yang akan dirubah formatnya lalu rename file misal nama file format1.mkv nah kalian rubah file ini menjadi format1.rar mudah bukan

Tapi kok yang saya nggak ada tulisan .mkv dibelakangnya????

Nah untuk masalah ini kita lihat cara kedua

• Kedua

klik satu kali pada filenya lalu klik tulisan organize di pojok kiri dijendela window

maka akan terbuka tampilan menu ditampilan menu tersebut kalian pilih  change folder and search options

maka akan terbuka lagi tampilan menu

disitu kalian hilangkan ceklist klik gambar 

maka tulisan mkv yang tidak ada akan muncul

OKE terimakasih


http://formationssh12.blogspot.com/2015/01/cara-merubah-file-berformat-flv-atau.html

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

melodi gitar doraemon lengkap

kali ini saya akan membagikan melodi doraemon

2.3 2.2 2.2 2.2 1.4 2.2 1.3 1.3 1.4 1.3 1.2 1.3 1.2 2.4 2.2 2.4 2.5 2.4 2.2 3.4 2.2 2,4

3.4 2.2 2.2 2.2 1.4 2.2 1.3 1.3 1.4 1.3 1.2 1.3 1.2 2.4 2.3 2.2 3.3 2.2 2.4

2.7 2.8 2.7 2.5 2.7 2.5 3.7 2.5 2.7 2.8 2.10 2.8 2,9 2.8 2.9 2.9 2.10

1.8 1.6 1.4 2.4 1.4 1.6 2.9 2.8 2.9 2.8 2.6 2x

mohon maaf jika ada kesalahan

coment n like

cara membuat template blog kosong

 kali ini saya akan memberikan informasi tentang cara mengosongkan template blog


ganti kode HTML blog yg telah anda siapkan dengan kode berikut ini

<?xml version="1.0" encoding="UTF-8" ?>
<html b:version='2' class='v2' expr:dir='data:blog.languageDirection' xmlns='http://www.w3.org/1999/xhtml' xmlns:b='http://www.google.com/2005/gml/b' xmlns:data='http://www.google.com/2005/gml/data' xmlns:expr='http://www.google.com/2005/gml/expr'>
  <head>
    <meta content='IE=EmulateIE7' http-equiv='X-UA-Compatible'/>
    <b:if cond='data:blog.isMobile'>
      <meta content='width=device-width,initial-scale=1.0,minimum-scale=1.0,maximum-scale=1.0' name='viewport'/>
    <b:else/>
      <meta content='width=1100' name='viewport'/>
    </b:if>
    <b:include data='blog' name='all-head-content'/>
    <title><data:blog.pageTitle/></title>
   <b:skin><![CDATA[/*
-----------------------------------------------
////////////////////////TEMPLATE////////////////////////
///////////////////BLANK///////////////////
///////////////////KOSONG  ///////////
----------------------------------------------- */
#navbar-iframe {   height:0px;   visibility:hidden;   display:none   }
body {
  font: $(body.font);
  color: $(body.text.color);
  background: $(body.background);
background:url(URL GAMBAR KALIAN SENDIRI)
no-repeat center 50%;
margin: 0;
}
  padding: 0 $(content.shadow.spread) $(content.shadow.spread) $(content.shadow.spread);
  $(body.background.override)  margin: 0;
    padding: 0;
}

]]></b:skin>
 
  </head>
  <body>
  <b:section class='navbar' id='navbar' maxwidgets='1' showaddelement='no'>
    <b:widget id='Navbar1' locked='true' title='Navbar' type='Navbar'>
      <b:includable id='main'>&lt;script type=&quot;text/javascript&quot;&gt;
    function setAttributeOnload(object, attribute, val) {
      if(window.addEventListener) {
        window.addEventListener(&#39;load&#39;,
          function(){ object[attribute] = val; }, false);
      } else {
        window.attachEvent(&#39;onload&#39;, function(){ object[attribute] = val; });
      }
    }
  &lt;/script&gt;
&lt;div id=&quot;navbar-iframe-container&quot;&gt;&lt;/div&gt;
&lt;script type=&quot;text/javascript&quot; src=&quot;https://apis.google.com/js/plusone.js&quot;&gt;&lt;/script&gt;
&lt;script type=&quot;text/javascript&quot;&gt;
        gapi.load(&quot;iframes-styles-bubble&quot;, function() {
          if (window.iframes &amp;&amp; iframes.open) {
            iframes.open(
                &#39;//www.blogger.com/navbar.g?targetBlogID\0755719844996891602538\46blogName\75plagiat+you\46publishMode\75PUBLISH_MODE_BLOGSPOT\46navbarType\75LIGHT\46layoutType\75LAYOUTS\46searchRoot\75http://plagiatyou.blogspot.com/search\46blogLocale\75in\46v\0752\46homepageUrl\75http://plagiatyou.blogspot.com/\46vt\75-5387103525508030271&#39;,
                {
                  container: &quot;navbar-iframe-container&quot;,
                  id: &quot;navbar-iframe&quot;
                },
                {
                });
          }
        });
      &lt;/script&gt;&lt;script type=&quot;text/javascript&quot;&gt;
(function() {
var script = document.createElement(&#39;script&#39;);
script.type = &#39;text/javascript&#39;;
script.src = &#39;//pagead2.googlesyndication.com/pagead/js/google_top_exp.js&#39;;
var head = document.getElementsByTagName(&#39;head&#39;)[0];
if (head) {
head.appendChild(script);
}})();
&lt;/script&gt;
</b:includable>
    </b:widget>
  </b:section>

<div style='margin-top:400px; '>
<!--Please keep the Credits intact-->
<center><p><a href='#'>SAYA TIDAK BERANI MELETAK SUMBER,,KARENA SEMUA MENGAKU HTML INI MILIK MEREKA </a>&#169; 2039.</p></center>
</div>
  </body>
</html>

ganti tulisan url gambar kalian sendiri dengan link gambar kalian sendiri
lalu simpan template

dengan begitu anda telah telah berhasil mengosongkan template anda plus menambah gambar sebagai latarnya
template ini juga bisa dijadikan link anti crtl + u
coba anda tekan CRTL dan U di keyboard anda

 pastiakanterbuka link http://plagiatyou.blogspot.com/
    

 semoga bermanfaat

coment bro