Delphi调用外部程序函数详解

1,WinExec():

 

  WinExec主要运行EXE文件,不能运行其他类型的文件。不用引用特别单元。

 

  原型:UINT WinExec(exePath,ShowCmd)

 

  示例,我想要用记事本打开"C:\HDC.TXT",以正常方式运行:WinExec(pChar('notepad c:\taoyoyo.txt'),SW_SHOWNORMAL); 

 

  参数说明:

  --xePath:命令行参数。注意,要用pChar转化一下。

  --ShowCmd:外部程序的运行方式。其取值如下: 

  ----SW_HIDE 隐藏 

  ----SW_MAXIMIZE 最大化 

  ----SW_MINIMIZE 最小化,并把Z order顺序在此窗口之后(即窗口下一层)的窗口激活 

  ----SW_RESTORE 激活窗口并还原为初始化大小 SW_SHOW 以当前大小和状态激活窗口 

  ----SW_SHOW 用当前的大小和位置显示一个窗口,同时令其进入活动状态 

  ----SW_SHOWDEFAULT 以默认方式运行

  ----SW_SHOWMAXIMIZED 激活窗口并最大化 

  ----SW_SHOWMINIMIZED 激活窗口并最小化 

  ----SW_SHOWMINNOACTIVE 最小化但不改变当前激活的窗口 

  ----SW_SHOWNA 以当前状态显示窗口但不改变当前激活的窗口 

  ----SW_SHOWNOACTIVATE 以初始化大小显示窗口但不改变当前激活的窗口 

  ----SW_SHOWNORMAL 激活并显示窗口,如果是最大(小)化,窗口将会还原。第一次运行程序 时应该使用这个值 

 

  如果调用成功,这个函数会返回一个不小于31的值,否则调用失败,其返回值的意义如下:

  --0 系统内存或资源不足 

  --ERROR_BAD_FORMAT .EXE文件格式无效(比如不是32位应用程序) 

  --ERROR_FILE_NOT_FOUND 指定的文件设有找到

  --ERROR_PATH_NOT_FOUND 指定的路径没有找到

 

  其他:

  这个函数和system()非常类似,只能运行.EXE文件,这样在WINDOWS中有它不尽人意的地方,比如不能用此方法通过关联的方法打开文件,例如WinExec("1.html",SW_SHOWNA);就不能打开此文档。

 

  2,ShellExecute() :

 

  不仅可以运行EXE文件,也可以运行系统已经关联的文件。

  这个函数和WIN9X中的命令行命令"start"类似,不光可以对文件进行操作,还可以对HTTP、MAILTO等进行操作。这样我们可以设计有超级链接风格的程序了。

  ShellExecute的功能要强得多,并且可以完全替代WinExec(),事实上,WinExec()也是为了和以前版本兼容而保留,所以,我们要尽量使用ShellExecute()。

 

  首先必须引用shellapi.pas单元:uses ShellAPI; 

 

  函数原型:function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,Directory: PChar; ShowCmd: Integer): HINST; stdcall; 

 

  参数含义如下: 

 

  --hWnd:用于指定父窗口句柄。当函数调用过程出现错误时,它将作为Windows消息窗口的父窗口。例如,可以将其设置为应用程序主窗口句柄,即Application.Handle,也可以将其设置为桌面窗口句柄(用GetDesktopWindow函数获得)。 

  --Operation:用于指定要进行的操作。

  ----open:操作表示执行由FileName参数指定的程序,或打开由FileName参数指定的文件或文件夹;

  ----print:操作表示打印由FileName参数指定的文件;

  ----explore:操作表示浏览由FileName参数指定的文件夹。

  ----为nil时,表示执行默认操作“open”。 

  --FileName:用于指定要打开的文件名、要执行的程序文件名或要浏览的文件夹名。 

  --Parameters:若FileName参数是一个可执行程序,则此参数指定命令行参数,否则此参数应为nil或PChar(0)。 

  --Directory:用于指定默认目录。 

  --ShowCmd:若FileName参数是一个可执行程序,则此参数指定程序窗口的初始显示方式,否则此参数应设置为0。 

  ----SW_HIDE 隐藏 

  ----SW_MAXIMIZE 最大化 

  ----SW_MINIMIZE 最小化,并把Z order顺序在此窗口之后(即窗口下一层)的窗口激活 

  ----SW_RESTORE 激活窗口并还原为初始化大小 SW_SHOW 以当前大小和状态激活窗口 

  ----SW_SHOW 用当前的大小和位置显示一个窗口,同时令其进入活动状态 

  ----SW_SHOWDEFAULT 以默认方式运行

  ----SW_SHOWMAXIMIZED 激活窗口并最大化 

  ----SW_SHOWMINIMIZED 激活窗口并最小化 

  ----SW_SHOWMINNOACTIVE 最小化但不改变当前激活的窗口 

  ----SW_SHOWNA 以当前状态显示窗口但不改变当前激活的窗口 

  ----SW_SHOWNOACTIVATE 以初始化大小显示窗口但不改变当前激活的窗口 

  ----SW_SHOWNORMAL 激活并显示窗口,如果是最大(小)化,窗口将会还原。第一次运行程序 时应该使用这个值 

 

  若ShellExecute函数调用成功,则返回值为被执行程序的实例句柄。若返回值小于32,则表示出现错误。 

 

  示例:

 

  (1),刚才的例子:WinExec(pChar('notepad c:\taoyoyo.txt'),SW_SHOWNORMAL); 

  就可以改变为(假设窗口的句柄为Handle) 

  ShellExecute(Handle,'open','notepad','c:\taoyoyo.txt','',SW_SHOWNORMAL); 

 

  此外,还可以不用那么复杂,因为.TXT的关联程序就是记事本,所以只要这样就可以了:

  ShellExecute(Handle,'','c:\taoyoyo.txt','','',SW_SHOWNORMAL); 

 

  (2),例子(delphi): 

  在一个应用程序调用c:Project1.exe; 

  ShellExecute(handle, 'open','c:Project1.exe','字串内容',nil, SW_SHOWNORMAL); 

 

  在Project1.exe里可以调用: 

  procedure TForm1.FormCreate(Sender: TObject); 

  var i:integer; 

  begin 

  for i:=1 to paramcount do 

  if ParamStr(i)〈〉'' then showmessage(ParamStr(i)); 

  end;  

已标记关键词 清除标记
相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页