Cara Membuat CMD menggunakan Delphi 7

www.mbahhanif.site - Pada pembuatan cmd ini menggunnakan Delphi 7, Meski bisa instan yaitu dengan cara press win+r pada keyboard akan langsung muncul sebuah cmd dengan menyalakan google ping nya. 


Untuk proses pembuatan ini dengan madsut inject dilengkapi dengan script cmd dengan sekali klik saja. Tak heran kepada orang yang belajar delphi 7 ini sangat banyak di beri fasilitas cmd pada injectnya masing masing ini.

Cara Membuat Command Prompt Sendiri

Nah, Semua udah tahu kan tentang cmd atau command promt, Biasanya dibuat cek suatu masalah atau jalan pintas pada komputer anda masing masing. Pada pembahasan ini. 

Saya akan membahas bagaimana cara membuat cmd atau command promt sendiri agar bisa mefasilitasi inject atau suatu karya anda masing masing agar terlihat keren. 

Biasanya untuk cmd ini untuk melihat suatu jaringan internet stabil atau tidaknya pada suatu Koneksi jaringan anda masing masing. 

Tutorial Membuat CMD pada Delphi 7

Bahan-bahan untuk membuat cmd

- Berdoa agar diberi kelancaran
- Delphi 7
Delphi 7 MH Delphi
- Beberapa Komponen
- Script

Cara Membuat CMD Dengan Delphi 7

1. Buka delphi 7 anda


2. Klik standart lalu pilih 1 buah edit, 1 buah memo, 2 buah button, lalu letakkan masing masing seperti berikut ini

membuat cmd dengan delphi cmd delphi how to cmd delphi how to make cmd delphi


3. Ganti nama pada edit seperti ini : ping 8.8.8.8 -t, Lihat gambar dibawah ini

membuat cmd dengan delphi cmd delphi how to cmd delphi how to make cmd delphi

4. Ganti nama button ini Start dan Stop Seperti berikut ini.


membuat cmd dengan delphi cmd delphi how to cmd delphi how to make cmd delphi

5. Kemudia kita seting bagian memo nya. Pilih color berwarna hitam.


membuat cmd dengan delphi cmd delphi how to cmd delphi how to make cmd delphi

6. Untuk font, Pilih ANSI_CHIPSET


membuat cmd dengan delphi cmd delphi how to cmd delphi how to make cmd delphi


7. Masih dengan yang sama di Font, Pilih Colornya Warna Putih, Sebagai Berikut Ini.

membuat cmd dengan delphi cmd delphi how to cmd delphi how to make cmd delphi


8. Untuk menghilangkan tulisan memo1, Kita lanjut ke Lines klik 2 kali Kemudian akan muncul form kosong. Kemudian Hapus tulisan memo1 Lalu OK:

membuat cmd dengan delphi cmd delphi how to cmd delphi how to make cmd delphi

9 Karena ini Berupa centang mencentang, Samakan saja pengaturannya seperti gambar berikut ini. 


membuat cmd dengan delphi cmd delphi how to cmd delphi how to make cmd delphi

10. Cari WIN32 kemudian pilih xpmanifes, Letakkan pada pada project anda


membuat cmd dengan delphi cmd delphi how to cmd delphi how to make cmd delphi


11. Pada pilihan Samplesnya, Pilih Komponen Doscomand1 Letakkan pada form kosong pada unit inject anda.

membuat cmd dengan delphi cmd delphi how to cmd delphi how to make cmd delphi

12. Tambahkan Script ini dibawah {SR *.dfm}
procedure mbahhanif(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;

membuat cmd dengan delphi cmd delphi how to cmd delphi how to make cmd delphi

13. Klik Button Start secara 2 kali, Lalu masukkan scriptnya Dibawah ini:
Memo1.Alignment := taLeftJustify; Memo1.Clear;DosCommand1.CommandLine := Edit1.Text;DosCommand1.OutputLines := Memo1.Lines;DosCommand1.Execute;

membuat cmd dengan delphi cmd delphi how to cmd delphi how to make cmd delphi

14. Pada Button Stop, Klik 2 kali. kemudian kasihkan Script ini:
DosCommand1.Stop;Sleep(100);Memo1.Clear;Memo1.Alignment := taCenter;Memo1.Lines.Add('=======[ Command Stopped ]=======');

membuat cmd dengan delphi cmd delphi how to cmd delphi how to make cmd delphi


15. Setelah kita setting memo tadi. Pada pilihan memo ini, klik 2 kali lalu masukkan scriptnya ini:
mbahhanif(Memo1);if Memo1.Lines.Count = 500 thenmemo1.Lines.Clear;

membuat cmd dengan delphi cmd delphi how to cmd delphi how to make cmd delphi


16. Setelah semua sudah selesai. langkah terakhir yaitu me RUN/F9, Apakah berhasil atau tidaknya suatu project. Setelah berhasil kita start yang tersambung internet maka tampilan seperti berikut ini

membuat cmd dengan delphi cmd delphi how to cmd delphi how to make cmd delphi

17. Dan apabila kita stop maka otomatis akan muncul seperti berikut ini 


membuat cmd dengan delphi cmd delphi how to cmd delphi how to make cmd delphi

18. Selesai

Semoga bermanfaat untuk pembelajaran pembuatan cmd dengan delphi 7 sendiri. Kurang lebihnya bisa berkomentar. Sekian dan terim kasih mbah.

Related Post

Cara Internet Gratis Pc/Laptop Full Lengkap MH Tips Berinternetan
Cara Internet Gratis Android Full Lengkap MH Tips Berinternetan
Cara Membuat Koneksi Internet Gratis Menjadi Stabil MH Tips Berinternetan
Tutorial Delphi 7 MH Delphi 7
42 Situs dan Cara Membuat SSH Yang Sangat Direkomendasi MH Tips Berinternetan
Aplikasi Gretongan MH Aplikasi
Group FB [MH] Mbah Hanif MH Facebook
Inject PC Terbaru MH Inject PC
Jamu Internet MH Trik Internet
Daftar Isi Mbah Hanif MH Daftar Isi
Info Trik Gretongan MH Info