Senin, 05 September 2016

Cara Membuat Tool Command Prompt CMD Windows Dengan Delphi Terbaru 2016

Senin, 05 Agustus 2016 - www.indoblog.me Ok Guys Langsung Saja disimak Informasi Dengan Cara Membuat Tool Command Prompt CMD Windows Dengan Delphi Terbaru 2016 Ok bagi anda yang sudah tahu tentang interface command prompt yang ada di windows maka dengan tutorial ini maka admin akan berikan sedikit panduannya bagimana cara bikin dan buat cmd dengan bantuan bahasa program pascal atau delphi berikut ulasannya.

Bagi sahabat sahabat semuanya yang membutuhkan tutorial cmd yang work langsung saja disimak ulasannya dibawah ini dan silahkan langsung dipraktekan saja yah, dan harap diingat dan jadi catatan tutorial ini membutuhkan komponen tambahan doscommand untuk doscommand sendiri dan cara instalnya pernah admin share di tahun sebelumnya tinggal anda cek lagi di tag delphi saja atau search di kolom pencarian diatas saja.

Lihat Juga: Kumpulan Daftar Payload Inject All Operator Terbaru 2016
Command Prompt CMD For Windows 7 8.1 10

1. Ok silahkan langsung buka delphi anda lalu silahkan tambahkan 1 Button, 1 Edit, 1 Memo dan 1 Doscommand silahkan atur seperti pada gambar dibawah ini, untuk Komponen Doscommand sendiri bisa anda cari di Palette "Sample" dengan catatan doscommand sudah anda instal.

Commad Prompt/CMD Windows 7 8.1 10

2. Kemudian dibawah {$R *.dfm} silahkan masukan coding dibawah ini, contoh bisa lihat gambar dibawah,

procedure CMDMemo(Memo: TMemo) ;
var
  ScrollMessage:TWMVScroll;
  i:integer;
begin
  ScrollMessage.Msg := WM_VScroll;
  for i := 0 to Memo.Lines.Count do
  begin
   ScrollMessage.ScrollCode:=sb_LineDown;
   ScrollMessage.Pos:=0;
   Memo.Dispatch(ScrollMessage) ;
  end;
end;

Commad Prompt/CMD Windows 7 8.1 10

3. Kemudian onclick memonya atau double klik memonya (memochange) lalu masukan code dibawah ini, contoh lihat gambar,

  CMDMemo(Memo1);
  if Memo1.Lines.Count = 500 then
    memo1.Lines.Clear;

Commad Prompt/CMD Windows 7 8.1 10

4. Kemudian pada Button silahkan klik dan masukan coding dibawah ini, contohnya bisa lihat gambar dibawah saja,

 if Button1.Caption = 'Start' then
  begin
  Memo1.Alignment := taLeftJustify; Memo1.Clear;
  DosCommand1.CommandLine := edit1.Text;
  DosCommand1.OutputLines := Memo1.Lines;
  DosCommand1.Execute;
    Button1.Caption := 'Stop';
  end else begin
  DosCommand1.Stop;
  Sleep(100);
  Memo1.Clear;
  Memo1.Alignment := taCenter;
    Button1.Caption := 'Start';
  end;

Commad Prompt/CMD Windows 7 8.1 10

5. Yang terakhir silahkan tekan F9 atau RUN dan semoga tidak ada yang error lalu silahkan pada edit1.text misalkan silahkan ketikan ping 8.8.8.8 atau misal saya akan menguji ipconfig/all maka hasilnya kira-kira seperti pada gambar dibawah ini dan dengan begitu maka fungsi CMD di windows bisa anda implementasikan dengan delphi.

Commad Prompt/CMD Windows 7 8.1 10

Ok itulah tutorial dasar dan panduan dasar tentang command prompt atau cmd windows pada delphi dan semoga panduan dasar ini bisa menambah wawasan bagi anda semuanya, untuk contoh source codenya silahkan ambil DISINI dan passwordnya silahkan gunakan URL Lengkap postingan ini saja.

Lihat Juga Bray: Cara Membuat Tunneling CMD SSH Client Terbaru 2016

Sekian Tutorial pada kesempatan kali ini tentang Cara Membuat Tool Command Prompt CMD Windows Dengan Delphi Terbaru 2016 semoga apa yang sudah disampaikan bisa bermanfaat untuk anda semuanya dan atas kunjungannya kami ucapkan terima kasih, Wassalam.


EmoticonEmoticon