VFP 愛用者社區

rsfon · 註冊時間: 2003-11-10 文章: 1 第 1 樓

SHFileOperation API 之宣告如下

DECLARE INTEGER SHFileOperation IN Shell32;
STRING @lpFileOp

請教如何定義 STRING @lpFileOp 謝謝

syntech · 發表於: 星期日三月 19, 2006 8:22 pm 文章主題:

到 MSDN ONLINE 去查 SHFileOperation

rcj811 · 註冊時間: 2003-08-12 文章: 35 第 3 樓

Declare integer SHFileOperation in SHELL32.dll string @LPSHFILEOPSTRUCT
Declare integer GetActiveWindow in WIN32API
oheap = createobj('Heap')
#Define fo_copy 3
#Define fof_noconfirmation 64
cdeststring = deltree + chr(0) + chr(0)
nstringbase = oheap.allocblob(cdeststring)
cfileopstruct = numtodword(getactivewindow()) ;
+ numtodword(fo_copy) ;
+ numtodword(nstringbase) ;
+ numtodword(nstringbase + len(cdeststring)) ;
+ numtodword(fof_noconfirmation) + chr(0) ;
+ numtodword(0) ;
+ numtodword(0)
If SHFileOperation(cfileopstruct) = 0
retu .T.
Else
retu .F.
Endif