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 =Cpath
lpszParams = ""
lpszDir = "c:\temp"
fsshowcmd = 1
* 执行ShellExecute命令
LNRETURN = ShellExecute(HWND, lpszOP,lpszFile,lpszParams,lpszDir,fsshowcmd)
来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/70007877/viewspace-2794988/ ,如需转载,请注明出处,否则将追究法律责任。