VFP下使用系统默认程序打开文件

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:\xxxr\xxx.txt" 

lpszParams = "" 

lpszDir = "c:\" 

fsshowcmd = 1 

* 执行ShellExecute命令 

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