目录_定位BUG改进

Wm邪少

这个命令是失效的，原因在于易语言是Ansi，而ILCreateFromPath中的pszPath是Unicode

另外SHOpenFolderAndSelectItems提到：
Remarks

CoInitialize or CoInitializeEx must be called before using SHOpenFolderAndSelectItems. Not doing so causes SHOpenFolderAndSelectItems to fail.

但其实初始化不初始化好像并不影响使用，最后修改版本如下：

  

子程序名	返回值类型	公开	备 注
目录_定位	逻辑型		成功则打开文件所在目录并选中文件，失败返回假,本命令为初级命令！
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型				需提供文件绝对路径
编辑模式	逻辑型				重命名模式。

变量名	类 型	静态	数组	备 注
lngPidl	整数型
lngRet	整数型
strFile	文本型
返回值	逻辑型

如果真 (文件_是否存在 (文件路径) ＝ 假)
返回 (假)
lngPidl ＝ SHCreateFromPath (编码_Ansi到Unicode (文件路径, ))
如果真 (lngPidl ＝ 0)
返回 (假)
CoInitialize (0)
lngRet ＝ SHOpenFolderAndSelectItems (lngPidl, 0, 0, 选择 (编辑模式, 1, 0))
SHFree (lngRet)
CoUninitialize ()
返回 (lngRet ＝ 0)

.版本 2<br /> <br /> .子程序 目录_定位, 逻辑型, 公开, 成功则打开文件所在目录并选中文件，失败返回假,本命令为初级命令！<br /> .参数 文件路径, 文本型, , 需提供文件绝对路径<br /> .参数 编辑模式, 逻辑型, 可空, 重命名模式。<br /> .局部变量 lngPidl, 整数型<br /> .局部变量 lngRet, 整数型<br /> .局部变量 strFile, 文本型<br /> .局部变量 返回值, 逻辑型<br /> <br /> .如果真 (文件_是否存在 (文件路径) ＝ 假)<br />     返回 (假)<br /> .如果真结束<br /> lngPidl ＝ SHCreateFromPath (编码_Ansi到Unicode (文件路径, ))<br /> .如果真 (lngPidl ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> CoInitialize (0)<br /> lngRet ＝ SHOpenFolderAndSelectItems (lngPidl, 0, 0, 选择 (编辑模式, 1, 0))<br /> SHFree (lngRet)<br /> CoUninitialize ()<br /> 返回 (lngRet ＝ 0)

PS：ILCreateFromPath的pszPath类型从文本型改为字节集

love886

顶，还是不顶？我的思想进行著激烈的斗争。

jhyw886

每次我遇见此类贴子时，我都会不由自主的盘膝而坐、气沉丹田，红唇白齿间冷爆出一句 厉害

jhyw886

顶，还是不顶？我的思想进行著激烈的斗争。

猥琐小胖子

那个用的ILCreateFromPathA没问题啊。
-------
另外一个按官方是要加，初始化com库防止线程调用失败。

已注销370852

然后有的线程里使用对象，一定要初始化com，有的情况不用，我就遇到过，我电脑可以，发别人就不行

已注销370852

毛线，人家明明用的ILCreateFromPathA
你不会不知道win32api都分为ansi版和unicode版吧
你看到的msdn只是假定ILCreateFromPathW的情况

505695437

抢个沙发！！