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.
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.
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
- 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
3. Ganti nama pada edit seperti ini : ping 8.8.8.8 -t, Lihat gambar dibawah ini
4. Ganti nama button ini Start dan Stop Seperti berikut ini.
5. Kemudia kita seting bagian memo nya. Pilih color berwarna hitam.
6. Untuk font, Pilih ANSI_CHIPSET
7. Masih dengan yang sama di Font, Pilih Colornya Warna Putih, Sebagai Berikut Ini.
8. Untuk menghilangkan tulisan memo1, Kita lanjut ke Lines klik 2 kali Kemudian akan muncul form kosong. Kemudian Hapus tulisan memo1 Lalu OK:
9 Karena ini Berupa centang mencentang, Samakan saja pengaturannya seperti gambar berikut ini.
10. Cari WIN32 kemudian pilih xpmanifes, Letakkan pada pada project anda
11. Pada pilihan Samplesnya, Pilih Komponen Doscomand1 Letakkan pada form kosong pada unit inject anda.
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;
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;
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 ]=======');
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;
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
17. Dan apabila kita stop maka otomatis akan muncul seperti berikut ini
18. Selesai
Semoga bermanfaat untuk pembelajaran pembuatan cmd dengan delphi 7 sendiri. Kurang lebihnya bisa berkomentar. Sekian dan terim kasih mbah.
Related Post