Post Game

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.

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.

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;

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;

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;

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.

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.