发信人: gzxuliang(独孤求胜)
整理人: hunter__fox(2002-03-16 21:48:54), 站内信件
|
【 在 sdlf 的大作中提到：】
: 我想得到网上邻居上的一个路径名，可是用getdir()函数只能看到本地的驱动器，看不到网上邻居，请问怎么实现！谢谢！
:......
FUNCTION GetFolder
DECLARE INTEGER FindWindow IN WIN32API STRING,STRING
DECLARE INTEGER SHBrowseForFolder IN "Shell32.DLL" INTEGER @
DECLARE INTEGER SHGetPathFromIDList IN "Shell32.DLL" INTEGER,STRING @
lcTitle=_SCREEN.CAPTION &&取当前主窗口标题。
hOwner=FindWindow(0,lcTitle) &&取当前主窗口句柄
pidl=SHBrowseForFolder(hOwner) &&如果成功,将显示文件夹树,并将选择后的列表框指针,返回给pidl变量。
IF !ISNULL(pidl)
SelectPath=SPACE(512)
=SHGetPathFromIDList(pidl,@SelectPath)
ELSE
SelectPath=""
ENDIF
RETURN IIF(!EMPTY(SelectPath),LEFT(SelectPath,LEN(ALLT(SelectPath))-1),"")
----
版权所有,违者必究!
如有雷同,纯属巧合! |
|