在网上学习了“在VFP中调用其他应用程序的实用技术”,并通过以下代码进行了验证，确是可以很方便地通过命令：=shellstart("D:\AAA\FILE1.doc")打开文件FILES1.DOC, 彻底扔掉RUN命令。用该命令同样可调用xls、pdf等格式文件。
但，当调用rar格式时，遇到问题：开机后第一次执行该函数调用无任何反应，第二次以后均正常。

不明白是什么原因，请各位高手指点。
 

Function shellstart
Para documentname

* 声明ShellExecute函数
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,;
        STRING lpszOP, ;
        STRING lpszFile, ;
        STRING lpszParams, ;
        STRING lpszDir, ;
        INTEGER fsshowcmd

* 指定ShellExecute函数的输出指向Windows桌面
DECLARE INTEGER GetDesktopWindow IN win32api
HWND = GetDesktopWindow()

*　指定操作命令为"打开"方式
lpszOP = "open"

* 指定ShellExecute操作的对象为 documentname
lpszFile = documentname
lpszParams = ""

* 指定ShellExecute的缺省目录为c:\temp
lpszDir = "c:\temp"
fsshowcmd = 0

* 执行ShellExecute命令
LNRETURN = ShellExecute(HWND, lpszOP,lpszFile, lpszParams, lpszDir,fsshowcmd)

RETURN


=shellstart("D:\AAA\FILE1.doc")
=shellstart("D:\AAA\FILE2.pdf")
=shellstart("D:\AAA\FILE3.rar")

FileName=GETFILE()
DoOut(0,'OPEN',JUSTFNAME(FileName),'',JUSTPATH(FileName),9)
*------------------------------------------------------------------------------------------
FUNCTION DoOut
PARAMETERS lnHwnd,lcCom,lcFile,LcPra,lcPath,lcMode
DECLARE INTEGER ShellExecute IN "Shell32.dll" INTEGER hwnd,STRING,STRING,STRING,STRING,LONG
Shellexecute(lnHwnd,lcCom,lcFile,LcPra,lcPath,lcMode)
CLEAR DLLS "ShellExecute"
ENDPROC

这段代码不知对楼主可有帮助
代码原作者：流星雨

收到的鲜花

• 有约故人来 于 2013-03-13 15:26 送鲜花  3朵   附言：好文章！提供的代码很好，目前已经引用，没 ...

好文章！提供的代码很好，目前已经引用，没有发现问题。谢谢sdta，谢谢！