使用 ShellExecute 来进行 Ping 操作!

原创 2004年11月01日 15:10:00

今日闲来无聊, 看到CSDN上有篇文章说关于 ShellExecute 函数的使用,突发奇想,如何利用 ShellExecute这个好东东来调用 cmd.exe 这个命令提示符程序并赋予一个值给它,让它自动进行 Ping 操作?

关键发现: 先打开MS-DOS 窗口研究,在命令提示字符下输入 cmd/? ,查看cmd.exe这个M$一直保留的程序的帮助,有了发现.

//===================================================================
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses shellapi;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    ShellExecute (Handle,nil,'cmd.exe','/K ping 127.0.0.1',nil,SW_NORMAL);
//-----这句是使用参数 /K,Ping完 IP 127.0.0.1 后,cmd.exe窗口静静的等你看结果哦...

    //ShellExecute (Handle,nil,'cmd.exe','/C ping 127.0.0.1',nil,SW_NORMAL);
//-----这句是使用参数 /C,Ping完 IP 127.0.0.1 后,cmd.exe窗口消失了...
end;
end.

//=====================================================================
一点感想:
M$开发的程序一般都可以带参数运行,这个很好啊...带不同的参数,会有不同的最终结果.这点应该值得肯定.

如何通过ping识别操作系统

TLL=32——WIN98 TLL=64——LINUX2.2.X/2.4.X TLL=128——WIN NT/2000/XP TLL=255——UNIX/BSD PS:以上TLL值均为近似值,因为数据...
  • lightLinux
  • lightLinux
  • 2014年09月11日 22:35
  • 773

ShellExecute函数的用法

ShellExecute函数原型及参数含义如下:  function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,Directo...
  • primer_programer
  • primer_programer
  • 2007年12月26日 15:26
  • 2926

怎样在c#中执行ShellExecute这个API函数?

---------------------------------------------------------------   Process  p  =  new  Process();  p....
  • justin_hua
  • justin_hua
  • 2008年03月05日 17:34
  • 1085

VB中Shell和ShellExecute函数的使用方法和区别

 写了一个vb的程序,用来把原来写的几个vb和vc的程序整合起来。就是使用Shell函数。结果发现,vc的程序可以很好的显示,但vb写的却一运行就最小化了。仔细查看了一下以下文章,才发现原来shell...
  • asftrhgjhkjlkttttttt
  • asftrhgjhkjlkttttttt
  • 2009年11月10日 14:23
  • 14514

ShellExecute 与 ShellExecuteEx 的使用方法

ShellExecute: 1.函数功能: 你可以给它任何文件的名字,它都能识别出来并打开它。 2.函数原型: HINSTANCE ShellExecute( ...
  • hellokandy
  • hellokandy
  • 2016年08月12日 10:02
  • 1299

调用ShellExecute所需要头文件

调用ShellExecute所需要头文件 #include   "windows.h "                       #include   "shellapi.h "...
  • gameWYD
  • gameWYD
  • 2011年10月10日 18:30
  • 6492

Delphi下的ShellExecute使用

ShellExecute使用 函数原型 function ShellExecute(hWnd: HWND; Operation, FileName, Parameters, Director...
  • qwe515800
  • qwe515800
  • 2017年04月16日 12:01
  • 601

使用 Ping进行网络诊断

Ping命令工作原理!2009-04-27 22:48“Ping”命令是我们在判断网络故障常用的命令,但您真正明白这个命令运行后会发生什么,以及出现的各种信息说明了什么吗?其实熟练的掌握Ping命令的...
  • expectbird
  • expectbird
  • 2013年03月01日 11:13
  • 299

system,WinExec, ShellExecute,CreateProcess 区别

其中以WinExec最为简单,ShellExecute比WinExec灵活一些,CreateProcess最为复杂。     WinExec 有两个参数,前一个指定路径,后一个指定显示方式。 ...
  • whucv
  • whucv
  • 2012年08月18日 02:39
  • 4177

ShellExecute 的使用方法总结

这篇文章是介绍ShellExecute的使用方法的总结,详细介绍了ShellExecute函数的使用方法。...
  • CreatedSign
  • CreatedSign
  • 2014年01月27日 11:01
  • 3418
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用 ShellExecute 来进行 Ping 操作!
举报原因:
原因补充:

(最多只允许输入30个字)