用易语言编写文件管理器

子程序 __启敬誉动窗口_鼠标右键被按下, 逻辑型

.参数 横向位置, 整数型

.参斗稿卖数 纵向位置, 整数型

.参数 功能键状态, 整数型

d出菜单 (菜单名, , )

可以在菜单管理器新建选项如 前进后空逗退 复制粘贴删除等

你可以试试用vbs重建图标缓存！代码如下困答： ==================================== On Error Resume Next If MsgBox("将关闭所有打开的资源管理器简轮窗口，并重建图标缓存。是否继续？",vbYesNo+vbQuestion,"询问")= vbNo Then Wscript.Quit End If Set FSO = CreateObject("Scripting.FileSystemObject") FSO.DeleteFile(FSO.GetSpecialFolder(0) &"\汪咐慧shelliconcache") Set FSO = Nothing Set Pros = GetObject("winmgmts:\\.\root\cimv2").ExecQuery ("Select * from Win32_Process Where Name = 'explorer.exe'") For Each Pro in Pros Pro.Terminate Next Set Pros = Nothing MsgBox " *** 作已完成。",vbInformation,"提示" ======================================= 打开记事本，把上面的代码复制进去、保存为重建图标缓存 把重建图标缓存.txt 改为 重建图标缓存.vbs （如果看不见.txt，在控制面板，文件夹选项，查看 选项卡，把 隐藏已知文件类型的扩展名 的勾去掉）

麻烦采纳，谢谢!

.版本

2

.子程序

目录文件_文件定位尺拆,

逻辑型,

公开

.参数

文件路径,

文本型

.局部变量

IShellLink,

整数型

.局部变量

pidl,

整数型

.局部圆衫变量

IMalloc,

整数型

.局部变量

nRet,

整数型

CoInitialize_文件定位

(0)

CoCreateInstance_文件定位

({

1,

20,

2,

0,

0,

0,

0,

0,

192,

0,

0,

0,

0,

0,

0,

70

},

0,

1,

{

238,

20,

2,

0,

0,

0,

0,

0,

192,

0,

0,

0,

0,

0,

0,

70

},

IShellLink)

pidl

＝

0

IMalloc

＝

0

nRet

＝

-1

.如果真

(IShellLink

≠

0)

置入代码

({

139,

69,

8,

255,

48,

139,

69,

252,

80,

139,

0,

255,

80,

80

})

置入代码

({

141,

69,

248,

80,

139,

69,

252,

80,

139,

0,

255,

80,

16

})

nRet

＝

SHOpenFolderAndSelectItems_文件定位

(pidl,

0,

0,

0)

SHGetMalloc_文件定橘困腔位

(IMalloc)

置入代码

({

255,

117,

248,

139,

69,

244,

80,

139,

0,

255,

80,

20

})

置入代码

({

139,

69,

244,

80,

139,

0,

255,

80,

8

})

置入代码

({

139,

69,

252,

80,

139,

0,

255,

80,

8

})

.如果真结束

CoUninitialize_文件定位

()

返回

(nRet

＝

0)

---