|
发表于 2011-8-30 18:55:19
|
显示全部楼层
广东省中山市
本帖最后由 a5501241 于 2011-8-30 18:58 编辑
这个很简单的 谁都可以做
[e]
.版本 2
.支持库 xplib
.支持库 edroptarget
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 n, 整数型
.程序集变量 文件名, 文本型
.子程序 __启动窗口_创建完毕
XP风格 (2)
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
文件名编辑框.内容 = 接收到的文件路径
.子程序 _提取按钮_被单击
.计次循环首 (100, n)
提取资源文件图标 (文件名编辑框.内容, 0, 取运行目录 () + “\” + 到文本 (n) + “.ico”, n)
.计次循环尾 ()
信息框 (“提取成功”, 0, )
文件名编辑框.内容 = “”
.子程序 _文件名编辑框_内容被改变
提取按钮.禁止 = 假
.子程序 _删除按钮_被单击
' 计次循环首 (100, n)
' 删除文件 (取运行目录 () + “\” + 到文本 (n) + “.ico”)
' 信息框 (“谢谢使用”, 0, )
' 计次循环首 (100, n)
' 文件名 = 寻找文件 (“*.ico”, )
' 删除文件 (文件名)
时钟1.时钟周期 = 1
.子程序 _时钟1_周期事件
.局部变量 文件名, 文本型
文件名 = 寻找文件 (“*.ico”, )
.如果 (文件名 = “”)
时钟1.时钟周期 = 0
.否则
删除文件 (文件名)
[/e]
|
|