再问怎样在VFP中调用外部命令

在VFP中如何调用其它程序

-------------------------------------------------------------

Declare Long WinExec In kernel32 String,Long

=WinExec("notepad.exe",1)

Clear Dlls

WinExec(one.exe,SW_SHOW)

里面的SW_SHOW意思是什么

WinExec(）函数第二个参数是什么意思

如果我想以无参数运行one.exe应该怎么办??

SW_SHOW表示以当前大小激活运行后的程序窗口并显示它。

第二个参数是控制程序主窗口的显示方式

第二个参数可能的取值为 ：

************************* 窗口指定可视性定义 **********************************API函数ShellExecute中最后一个参数及wscript.shell方法中的第2个参数也是这样定义的。

0 SW_HIDE 隐藏窗口，活动状态为原调用窗口

6 SW_MINIMIZE 最小化窗口，活动状态为原调用窗口

9 SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状兄咐差态

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

3 SW_SHOWMAXIMIZED 最大化窗口，并将其激活

2 SW_SHOWMINIMIZED 最小化窗口，并将其激活

7 SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口

8 SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口

4 SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口

1 SW_SHOWNORMAL 与SW_RESTORE相同

****************************************************************************

一般情况下，第二个参数取SW_SHOWNORMAL即可，这样就是无参数运行App.exe

WinExec("App.exe -参数" , SW_SHOWNORMAL)第二个参数只是WinExec函数的参数，不是AppName.exe的参数。

或

ox=Createobject("wscript.shell")

ox.Run("notepad.exe",1,0) &&第2个参数参考上面《窗口指定可视性定义》,第3个参数0表示调用后马上将控件权返回原调用程序，1表示直接被调用程序结束后才将控件权返回原调用程序(调用外部文件时让系统一直等待，直到运行结束才返回控制权就可以了)。

Release ox

如：

ox=Createobject("wscript.shell")

ox.Run("cmd /c copy c:\abc\1.txt d:\",0,1)

Release ox

Messagebox(' *** 作完成！',64,'信息提示')

或

在VFP中我们可以用run来调用由VFP自身生成的.exe文件。命令格式：

run c:\..\*.exe

当调用非VFP自身生成的.exe文件时，需要加上绝对路径和参数。

一般来说，用VFP运行非VFP自身生成的可执行文件时，会有一个黑色的窗口显示一下。可以通过加上/n来隐藏这个窗口。例如运行Windows下的扫雷游戏，命令格式如下：

RUN/n C:\Windows\Winmine.exe

下面运行一个更复杂一点的程序。用word打开c:\下的一个名为mlx.doc的word文件，命令格式如下：

run /n3 C:\Program Files\Microsoft Office\Office\Winword.exe C:\mlx.doc

参数：参考上面《窗口指定可视性定义》

n 在运行时隐藏VFP的黑色窗口。羡皮

3 表示以最大化的方式运行程序。1正常方式、2最小化方式、3最大化方式

在这种情况下，虽然可以通过加上参数使程序程序能够流畅运行，但还是要指定绝对路径,而在实际开发时我们常常无法确定所需要启动的应用程序的文件名及其绝对路径。比如，在上例中，我们无法确定用户的word到底安装在什么地方，如果用户把word安装到了别的地方，上述命令便会简樱出错。再如，一个.gif文件，有的用户喜欢用ACD See来打开，有的用户喜欢用IE来打开，有的用户喜欢用豪杰来打开,……

为了解这种情况我们可以调用Windows的文件关连来打开文件。即所有的文件都用系统默认的程序来打开。这就要调用Windows的Win32 API函数。调用方式如下：

DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING lpszOP,STRING lpszFile,STRING lpszParams,STRING lpszDir,INTEGER fsshowcmd

DECLARE INTEGER GetDesktopWindow IN win32api

HWND = GetDesktopWindow()

lpszOP = "open"

* 指定要打开的文件名

lpszFile ="c:\mlx.doc"

lpszParams = ""

lpszDir = "c:\temp"

fsshowcmd = 1

* 执行ShellExecute命令

LNRETURN = ShellExecute(HWND, lpszOP,lpszFile, lpszParams, lpszDir,fsshowcmd)

可以用任意的文件名来替换上文中的 c:\mlx.doc 。如果指定的文件名Windows无法找到相应的关连程序，这时程序将不会做出反应。有关的参数可以自行偿试进行修改,以达到最佳效果。

-------------------------------------------------------------

API函数ShellExecute的使用

ShellExecute

说明 Shellexecute 函数用于对文件执行一个动词(verb). 它通常用于启动一个与特定文件类相关联的应用程序. 例如, 要启动 Word 来读一个 .doc 文件, 或启动 记事本 来编辑一个 .txt 文件. 用于第二个参数中的最常用的动词是 "Open", 但其它可用的动词是 "edit","print","explore" 和 "properties". 有趣的是, 使用 "mailto:" 或 "http://" 前缀, ShellExecute 函数也可用于以一个给定的邮件地址启动默认的邮件阅读器或给定的 URL 启动默认的浏览器.

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

是否可以调用外部软件打开文件，如调用记事本打开c:\abd.txt？

解析:

简明:

DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING, STRING, STRING, STRING, INTEGER

ShellExecute(0,"open","d:\1.doc","","",1)

详细

DECLARE INTEGER ShellExecute IN shell32

INTEGER hwnd,

STRING lpOperation,

STRING lpFile,

STRING lpParameters,

STRING lpDirectory,

INTEGER nShowCmd

参数：

hwnd

1.指定一个父视窗的代码(Handle)值。

(一个指派给视窗的数值，供作业系统追踪视窗属性)

2.该应用程式所产生的视窗若有错误发生时会收到一个类似错误报告的讯息方块。

3.一般都设为 0。

lpOperation

对指定档案执行时所做的动作，有颤昌此下列几种选择：(依该档案所能提供的动作而定)

edit 编辑

explore 浏览

find 搜寻

open 开启茄迅

print 列印

备注：

该档案所能提供的动作可由 档案总管 -->工具 -->资料夹选项 -->档案类型

-->进阶 -->执行动作 可以查知。

lpFile

指定执行所指派动作的档案(可含完整路径名称)或物件名称。

lpParameters

若指定档案是一个可执行档案(executable file)，且其后可下参数时，lpParameters

就是存放该执行档的参数内容。若无参数，补上 "" 即可。迅握

lpDirectory

程式执行的工作目录。若为 ""，表示采用预设的目录。

nShowCmd

指定执行该档案时，其应用程式以何种方式显示视窗：

0 不显示

1 最大化

2 最小化

---