帮吗修改成，启a动后任务栏不显示图标，然后延迟4秒后自...

小铁匠

帮吗修改成，启a动后任务栏不显示图标，然后延迟4秒后自动结束。

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
主窗口	Ex_DirectUI

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

启动自绘 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
启动自绘			exd秒绘模块，

变量名	类 型	静态	数组	备 注
全局_运行库句柄	整数型
窗口句柄	整数型

全局_运行库句柄 ＝ _LoadLibrary (取指针_字节集型 ( #exduidll ), 0, 0)
全局_初始化 (全局_运行库句柄, 真, #ex_directui, , #mapdata, “微软雅黑”, , , #文本渲染模式_ClearType文本和hinting技术, , , )
窗口句柄 ＝ 窗口_创建 (, “界面”, , , 1481, 686, 假, , , , )
主窗口.事件_背景重画 (&事件_背景重画_起始, )
主窗口.挂接窗口 (, 窗口句柄, , , , , #标题栏_隐藏, 255, , , , {  }, 0, 假)
主窗口.Esc销毁窗口 (真)
主窗口.置进入特效 ( #特效类型_窗口_渐隐渐显, , , , , , , , )
窗口_消息循环 (窗口句柄)
FreeLibrary (全局_运行库句柄)  ' api加载的话,结束之前调用释放,否则xp会报错

子程序名	返回值类型	公开	备 注
事件_背景重画_起始
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型
图形指针	整数型
宽度	整数型
高度	整数型

变量名	类 型	静态	数组	备 注
i	整数型

图形_重置剪辑区 (图形指针)
图形_清除 (图形指针, )
i ＝ 图像_创建自字节集 ( #图片1, )
图形_绘图_Ex (图形指针, i, MakeRCF (0, 0, 宽度, 高度, ), , #底图方式_居中, , , , )
图像_销毁 (i)

.版本 2<br /> <br /> .程序集 程序集1<br /> .程序集变量 主窗口, Ex_DirectUI<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 启动自绘 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 启动自绘, , , exd秒绘模块，<br /> .局部变量 全局_运行库句柄, 整数型<br /> .局部变量 窗口句柄, 整数型<br /> <br /> 全局_运行库句柄 ＝ _LoadLibrary (取指针_字节集型 (#exduidll), 0, 0)<br /> 全局_初始化 (全局_运行库句柄, 真, #ex_directui, , #mapdata, “微软雅黑”, , , #文本渲染模式_ClearType文本和hinting技术, , , )<br /> 窗口句柄 ＝ 窗口_创建 (, “界面”, , , 1481, 686, 假, , , , )<br /> 主窗口.事件_背景重画 (&事件_背景重画_起始, )<br /> 主窗口.挂接窗口 (, 窗口句柄, , , , , #标题栏_隐藏, 255, , , , {  }, 0, 假)<br /> 主窗口.Esc销毁窗口 (真)<br /> 主窗口.置进入特效 (#特效类型_窗口_渐隐渐显, , , , , , , , )<br /> <br /> <br /> 窗口_消息循环 (窗口句柄)<br /> FreeLibrary (全局_运行库句柄)  ' api加载的话,结束之前调用释放,否则xp会报错<br /> <br /> <br /> .子程序 事件_背景重画_起始<br /> .参数 窗口句柄, 整数型<br /> .参数 图形指针, 整数型<br /> .参数 宽度, 整数型<br /> .参数 高度, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 图形_重置剪辑区 (图形指针)<br /> 图形_清除 (图形指针, )<br /> <br /> i ＝ 图像_创建自字节集 (#图片1, )<br /> 图形_绘图_Ex (图形指针, i, MakeRCF (0, 0, 宽度, 高度, ), , #底图方式_居中, , , , )<br /> 图像_销毁 (i)

小铁匠

有大神帮助下吗？

初晴雨后

1、图标设置   易语言界面左上角 程序 -> 配置 ->设置程序图标
2、4秒后关闭:在 窗口_消息循环 (窗口句柄) 前加上 启动线程 (&结束, , )
结束的子程序就是:

.子程序 结束
延迟(4000)
主窗口.投递消息 (256, 27, 1)

.版本 2
.支持库 EThread

.程序集 程序集1
.程序集变量 窗口句柄, 整数型
.程序集变量 主窗口, Ex_DirectUI

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行


启动自绘 ()
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 启动自绘, , , exd秒绘模块，
.局部变量 全局_运行库句柄, 整数型

全局_运行库句柄 ＝ _LoadLibrary (取指针_字节集型 (#exduidll), 0, 0)
全局_初始化 (全局_运行库句柄, 真, #ex_directui, , #mapdata, “微软雅黑”, , , #文本渲染模式_ClearType文本和hinting技术, , , )
窗口句柄 ＝ 窗口_创建 (, “界面”, , , 1481, 686, 假, , , , )
主窗口.事件_背景重画 (&事件_背景重画_起始, )
主窗口.挂接窗口 (, 窗口句柄, , , , , #标题栏_隐藏, 255, , , , {  }, 0, 假)
主窗口.Esc销毁窗口 (真)
主窗口.置进入特效 (#特效类型_窗口_渐隐渐显, , , , , , , , )
启动线程 (&结束, , )
窗口_消息循环 (窗口句柄)
FreeLibrary (全局_运行库句柄)  ' api加载的话,结束之前调用释放,否则xp会报错


.子程序 结束

延时 (4000)
主窗口.投递消息 (256, 27, 1)

.子程序 事件_背景重画_起始
.参数 窗口句柄, 整数型
.参数 图形指针, 整数型
.参数 宽度, 整数型
.参数 高度, 整数型
.局部变量 i, 整数型

图形_重置剪辑区 (图形指针)
图形_清除 (图形指针, )

i ＝ 图像_创建自字节集 (#图片1, )
图形_绘图_Ex (图形指针, i, MakeRCF (0, 0, 宽度, 高度, ), , #底图方式_居中, , , , )
图像_销毁 (i)

cxl

启动窗口这里改下就可以了

小铁匠

cxl 发表于 2026-7-26 20:33
启动窗口这里改下就可以了

没有启动窗口的，你下载我发的源码看看

小铁匠

可以隐藏任务栏了。 哪位大神知道怎么让他4秒后自动关闭吗？

cxl

小铁匠 发表于 2026-7-26 20:37
没有启动窗口的，你下载我发的源码看看

这个是模块里面的功能啊

小铁匠

cxl 发表于 2026-7-26 20:49
这个是模块里面的功能啊

延时4秒后自动关闭，加到哪里？

cxl

窗口句柄 ＝ 窗口_创建 (, “界面”, , , 1481, 686, 假, , , , 假)  在这里

cxl

小铁匠 发表于 2026-7-26 21:00
延时4秒后自动关闭，加到哪里？

可以弄个启动线程子程序 也可以弄个时钟

补充内容 (2026-7-26 21:31):
这个没有窗口就只能用线程