Minggu, 15 November 2015

Cara Mudah Membuat Aplikasi Ping CMD Dengan Delphi

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.


Tutorial Ping CMD With Delphi

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;

Tutorial Ping CMD With Delphi

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);

Tutorial Ping CMD With Delphi

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