Hallo kali ini admin Capsa mau kasih tips yaitu Cara Membuat Aplikasi Ping CMD Dengan Delphi mungkin dari sahabat sahabat ada yang belum tahu cara membuat ping cmd dan logoutnya agar bisa ditampilkan memo berikut tipsnya buat kamu delphier.
Ok dan sebelumnya juga admin sudah kasih tips tentang Cara Blokir Website di Komputer Kita ok next langsung prkatek saja ya sob, sebenarnya ada 2 cara apakah mau di genrate dengan fungsi baru yang dijalankan via form active atau single fungsi ok kita coba yang dibawah ini saja dulu silahkan langsung praktekan.
1. Langkah pertama buka delphi sobat lalu tambahkan dulu komponen Button dan memo dan untuk commandnya sudah ada via fungsinya kemudian tambahkan dulu winsock di uses biar tidak debug.
2. Yang kedua kemudiaan Tambahkan kode dibawah ini setelah {$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; //atau sw_normal
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;
3. Yang terakhir untuk memanggil fungsi diatas silahkan klik atau onclick button1lalu masukan kode Memo1.Text := GetDosOutput('ping 8.8.8.8 -t'); dan jika ping 8.8.8.8 -t agar bisa diedit diluar sesuai keinginan silahkan tinggal tambahakan komponen Edit saja jadi nanti hasilnya menjadi Memo1.Text := GetDosOutput(edit1.text);
4. Yang terakhir silahkan simpan Save As atau terserah anda mau disimpan dimana juga dan selesai sudah tutorial kali ini tentang Cara Mudah Membuat Aplikasi Ping CMD Dengan Delphi semoga bermanfaat dan membantu terima kasih banyak good luck for you...
Baca Juga: Cara Download File di Internet Dengan MDM
Baca Juga: Cara Download File di Internet Dengan MDM
CAPSA (Cara Apa Saja) Informasi Download Lagu dan Proxy Free Full Version Blogger
0 komentar:
Posting Komentar