VFP 愛用者社區

[sa30123]

程式如下

procedure runexapp
parameter In_App, In_Params

IF TYPE("In_Params") <> "C"
In_Params = ""
ENDIF

SP = SYS(5)+SYS(2003)+'\shell32.dll'


DECLARE INTEGER ShellExecute IN (SP);
INTEGER hndWin, ;
STRING cAction, ;
STRING cFileName, ;
STRING cParams, ;
STRING cDir, ;
INTEGER nShowWin


** Declare API function (only need to declare once in main.prg).

cAction = "open"
cFileName = In_App
cPath = SYS(5)+SYS(2003)
cParams = In_Params

mRtn = ShellExecute(0,cAction,cFileName,cParams,cPath, 0)

=============================================

在本機端測試成功
但是在轉移出去就產生不出來

我用網路芳鄰的方式進去執行~也可以產生
但是他自己執行卻產生不出來

[syntech]

OS ?


是否為權限問題?

[sa30123]

謝謝,已解決