送一个简单的网吧游戏菜单

易语言 2020-08-29 14:35:25

送一个简单的网吧游戏菜单

皮肤_从资源加载皮肤 (#皮肤, 取字节集长度 (#皮肤), “”, 10, 10, 0)
皮肤_指定换肤类型 (_启动窗口.取窗口句柄 (), 3001)
置托盘图标 (图标, “至尊游戏菜单”)
打开 (取运行目录 () + “\Son Clip.edb”, , , , , , )
.计次循环首 (取记录数 (), 计次)
跳到 (计次)
高级选择夹1.加入子夹 (读 (1), , 读 (2), , )
.计次循环尾 ()
.如果真 (文件是否存在 (取运行目录 () + “\dat.edb”) = 假)
写到文件 (取运行目录 () + “\dat.edb”, #数据库)
.如果真结束
替换打开 (取运行目录 () + “\dat.edb”, , , , , , )
拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())
设置背景2 (超级列表框1, #背景, 假)
刷新列表 ()
.如果真 (注册项是否存在 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\” + 取执行文件名 ()))
开机启动.选中 = 真
.如果真结束
.如果真 (读配置项 (取运行目录 () + “\yxcd.ini”, “dial-up”, “automatic”, ) = “1”)
时钟3.时钟周期 = 1000
.如果真结束
锁屏时间 = 到数值 (读配置项 (取运行目录 () + “\yxcd.ini”, “Screen lock”, “time”, “10”))
.如果真 (读配置项 (取运行目录 () + “\yxcd.ini”, “Screen lock”, “Automatically lock”, ) = “1”)
时钟4.时钟周期 = 1000
.如果真结束
左边 = -左边
设置窗口透明度 (_启动窗口.取窗口句柄 (), 0)