Lompat ke konten Lompat ke sidebar Lompat ke footer

Cara Membuat Dos Command Dengan Delphi

Cara Membuat Dos Command Dengan Delphi
Dos Command Dengan Delphi
Cara Membuat Dos Command Dengan Delphi -  Hai sobat blogger sekalian dimanapun sobat berada semoga selalu diberi kesahat dan rejeki yang halal, nambah koleksi lagi ni sobat buat arsip juga sekalian berbagi kepada sobat bloger,

seperti kita ketahui salah satu perintah DOS yang terdapat pada windows seringkali menggunakan tools bawaan windows yaitu (Command prompt) atau sering disebut CMD, merupakan aplikasi kecil dengan fitur unik dan menarik dengan banyak multi fungsi dari sebuah aplikasi kecil ini,

dengan aplikasi CMD bawaan windows ini kita dapat membuat folder mngahpus memindahkan dan masih banyak lagi, juga kadang kita sering menggunakanya sebagai ping host dengan aplikasi ini tentunya kita harus paham bahasa perintahnya untuk menggunakan tools ini.

Baca juga bagaimana  Cara Membuat Password Dialog Delphi

Nah kali ini saya akan mecoba berbagi tutorial singkat yaitu membangun sebuah aplikasi yang bisa dibilang fungsinya hampir sama dengan tools CMD dari windows, ada kalanya kita membutuhkan opsi ini pada sebuah projek program yang kita bangun dalam contoh menjalankan services mysql secara otomatis ketika program dijalankan nah disinilah fungsi ini berperan dalam pengoprasiannya.

Langsung saja sobat buka aplikasi delphi kesayangan sobat kalo saya menggunakan delphi 7 yang familiar pada masanya :) buatlah sebuah Form baru lalu tambahkan :
  1. Satu buah komponen TEdit     kasih nama : Edit1
  2. Satu buah komponen TButton kasih nama : Button1
  3. Satu buah komponen TMemo  kasih nama : Memo1
Lebih mantepnya lihat pada gambar dibawah ini:
Cara Membuat Dos Command Dengan Delphi
Form Dos Command With Delphi

Setelah sobat desain sedemikian rupa lalu menuju ke Source code letakan kode dibawah ini pada area implementation atau letakan dibawah kode {$R *.dfm} 


function GetDosOutput(CommandLine: string; Work: string = 'C:\'): string;
var
SA: TSecurityAttributes;
SI: TStartupInfo;
PI: TProcessInformation;
StdOutPipeRead, StdOutPipeWrite: THandle;
WasOK: Boolean;
Buffer: array[0..255] of AnsiChar;
BytesRead: Cardinal;
WorkDir: string;
Handle: Boolean;
begin
Result := '';
with SA do begin
nLength := SizeOf(SA);
bInheritHandle := True;
lpSecurityDescriptor := nil;
end;
CreatePipe(StdOutPipeRead, StdOutPipeWrite, @SA, 0);
try
with SI do
begin
FillChar(SI, SizeOf(SI), 0);
cb := SizeOf(SI);
dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
wShowWindow := SW_HIDE;
hStdInput := GetStdHandle(STD_INPUT_HANDLE);
hStdOutput := StdOutPipeWrite;
hStdError := StdOutPipeWrite;
end;
WorkDir := Work;
Handle := CreateProcess(nil, PChar('cmd.exe /C ' + CommandLine),nil, nil, True, 0, nil, PChar(WorkDir), SI, PI);
CloseHandle(StdOutPipeWrite);
if Handle then
try
repeat
WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);
if BytesRead > 0 then
begin
Buffer[BytesRead] := #0;
Result := Result + Buffer;
end;
until not WasOK or (BytesRead = 0);
WaitForSingleObject(PI.hProcess, INFINITE);
finally
CloseHandle(PI.hThread);
CloseHandle(PI.hProcess);
end;
finally
CloseHandle(StdOutPipeRead);
end;
end;


Setelah sobat meletakan kode tersebut selanjutnya sobat klik dua kali Button1 dan letakan kode dibawah ini :
[
Memo1.Text := GetDosOutput(Edit1.Text);
]


Jika semua langkah diatas sudah semua dan dirasa sudah benar semua lalu tes dan jalankan, coba masukan beberapa bahasa dos pada kolom Text Edit dan tekan tombolnya jika tampil maka selamat sobat sukses membuat program kecil  Dos Command Dengan Delphi,

namun ada beberapa fungsi perintah dos yang membutuhkan hak akses sebagai administrator jadi supaya perintah dos command di eksekusi dengan baik jalankan program dengan cara klik kanan Run As Administrator.

Dan sobat bisa kembangkan agar lebih banyak fungsi dengan satu kali klik :)

Anda juga dapat mengunduh Source Code pada tautan dibawah ini, (Terimakasih atas dukungan Anda):

[lock]
[/lock]

Yap sekian sobat untuk tutorial mengenai bagamana cara Membuat Dos Command Dengan Delphi mudah bukan dan saya berharap semoga tutorial kali ini berguna dan bermanfaat buat sobat, saya undur diri jangan lupa komentar dan saranya yah sobat, Waslam.

2 komentar untuk "Cara Membuat Dos Command Dengan Delphi"