procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle,'Open', PChar('ping.exe'),PChar(Edit1.Text) ,nil,SW_SHOWNORMAL); end;