易文件关联修复[仿制]源码

DDSGXQ

仿制邓学斌的易文件关联修复1.3因为邓学斌的不开源，前几天看有人发问答文件关联，这里花2天抽时间仿制的
读写zc表操作

源码奉上：
易文件关联修复.zip (1.1 MB, 下载次数: 958)

2018-6-21 17:04 上传

点击文件名下载附件




补充内容 (2018-6-24 19:52):
关于文件关联后操作后刷新操作 ： http://bbs.125.la/thread-14186002-1-1.html
关联参考：https://bbs.125.la/thread-14184337-1-1.html

补充内容 (2018-6-25 16:12):
由于不能编辑帖子。说明: 源码里的刷新zc表操作有问题。更改方法看上面的关联后刷新操作。

DDSGXQ

关于刷新桌面图标缓存操作

  

子程序名	返回值类型	公开	备 注
立即刷新

SHChangeNotify (134217728, 0, 0, 0)
重建图标缓存 ()

子程序名	返回值类型	公开	备 注
重建图标缓存			取自易模块查看器

变量名	类 型	静态	数组	备 注
N	文本型		2
M	整数型

N [1] ＝ 取文本注册项 (3, “Control Panel\desktop\WindowMetrics\Shell Icon Size”, )
N [2] ＝ 到文本 (到数值 (N [1]) ＋ 1)
计次循环首 (2, M)
写注册项 (3, “Control Panel\desktop\WindowMetrics\Shell Icon Size”, N [3 － M])
API_SendMessage (65535, 26, 7074996, 0)  ' SendMessage (65535, 26, 42, 0).计次循环尾 ()

DLL命令名	返回值类型	公开	备 注
SHChangeNotify			刷新关联图标
DLL库文件名:
shell32
在DLL库中对应命令名:
SHChangeNotify
参数名	类 型	传址	数组	备 注
SHCNE_ASSOCCHANGED	整数型			134217728
SHCNF_IDLIST	整数型			0
nil	整数型			0
nil	整数型			0

DLL命令名	返回值类型	公开	备 注
API_SendMessage	整数型
DLL库文件名:
user32
在DLL库中对应命令名:
SendMessageA
参数名	类 型	传址	数组	备 注
窗口句柄	整数型
消息值	整数型
参数一	整数型
参数二	整数型

.版本 2<br /> <br /> .子程序 立即刷新<br /> <br /> SHChangeNotify (134217728, 0, 0, 0)<br /> 重建图标缓存 ()<br /> <br /> <br /> .子程序 重建图标缓存, , , 取自易模块查看器<br /> .局部变量 N, 文本型, , "2"<br /> .局部变量 M, 整数型<br /> <br /> N [1] ＝ 取文本注册项 (3, “Control Panel\desktop\WindowMetrics\Shell Icon Size”, )<br /> N [2] ＝ 到文本 (到数值 (N [1]) ＋ 1)<br /> .计次循环首 (2, M)<br />     写注册项 (3, “Control Panel\desktop\WindowMetrics\Shell Icon Size”, N [3 － M])<br />     API_SendMessage (65535, 26, 7074996, 0)  ' SendMessage (65535, 26, 42, 0).计次循环尾 ()<br /> <br /> <br /> .版本 2<br /> <br /> .DLL命令 SHChangeNotify, , "shell32", "SHChangeNotify", 公开, 刷新关联图标<br />     .参数 SHCNE_ASSOCCHANGED, 整数型, , 134217728<br />     .参数 SHCNF_IDLIST, 整数型, , 0<br />     .参数 nil, 整数型, , 0<br />     .参数 nil, 整数型, , 0<br /> .版本 2<br /> <br /> .DLL命令 API_SendMessage, 整数型, "user32", "SendMessageA"<br />     .参数 窗口句柄, 整数型<br />     .参数 消息值, 整数型<br />     .参数 参数一, 整数型<br />     .参数 参数二, 整数型

DDSGXQ

源码中涉及的刷新可能无效，请重启资源管理器。

爱吃猫的小鱼

顶楼主啦..希望楼主多发精品好帖啦.....

ming7

可以，顶一顶

gaoqing

谢谢这个不错

Bszk

谢谢分享~~~

来此一游

非常感谢!终于有人开源了.

DDSGXQ

来此一游 发表于 2018-6-21 17:56
非常感谢!终于有人开源了.

仿写的，邓学斌的不开，90%功能实现了。就差一个刷新缓存的。

谁的坏叔叔

峰生水起之林

感谢分享了