易语言开机自动运行两种做法

bugaosuni1314

  

子程序名	返回值类型	公开	备 注
_开机自启动_被选择

' 开机自启动两种写法
' 第一种
如果 (取文本右边 (取执行文件名 (), 3) ≠ “exe”)
启动程序 ＝ “Wang.exe”
取执行文件名 ()
如果 (开机自启动.选中 ＝ 真)
开机自启动.选中 ＝ 假
如果 (删除注册项 ( #本地机器, “software\microsoft\windows\CurrentVersion\Run\我的启动项”) ＝ 真)
信息框 (“取消开机自启动成功”, 64, “成功提示”, )
信息框 (“取消开机自启动失败”, 64, “失败提示”, )
开机自启动.选中 ＝ 真
如果 (写注册项 ( #本地机器, “software\microsoft\windows\CurrentVersion\Run\我的启动项”, 取运行目录 () ＋ “\” ＋ 启动程序) ＝ 真)
信息框 (“设置开机自启动成功”, 64, “成功提示”, )
信息框 (“设置开机自启动失败”, 64, “失败提示”, )

' 开机自启动两种写法
' 第二种
如果 (开机自启动.选中 ＝ 真)
开机自启动.选中 ＝ 假
取消自动运行 (取执行文件名 ())
信息框 (“取消开机自启动成功”, 64, “成功提示”, )

开机自启动.选中 ＝ 真
设置自动运行 (“Wang.exe”, 取运行目录 () ＋ 取执行文件名 (), #接口常量 .到注册表)
信息框 (“设置开机自启动成功”, 64, “成功提示”, )

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 _开机自启动_被选择<br /> <br /> ' 开机自启动两种写法<br /> ' 第一种<br /> <br /> .如果 (取文本右边 (取执行文件名 (), 3) ≠ “exe”)<br />     启动程序 ＝ “Wang.exe”<br /> .否则<br />     取执行文件名 ()<br /> <br /> .如果结束<br /> .如果 (开机自启动.选中 ＝ 真)<br />     开机自启动.选中 ＝ 假<br />     .如果 (删除注册项 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\我的启动项”) ＝ 真)<br />         信息框 (“取消开机自启动成功”, 64, “成功提示”, )<br />     .否则<br />         信息框 (“取消开机自启动失败”, 64, “失败提示”, )<br />     .如果结束<br /> <br /> .否则<br />     开机自启动.选中 ＝ 真<br />     .如果 (写注册项 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\我的启动项”, 取运行目录 () ＋ “\” ＋ 启动程序) ＝ 真)<br />         信息框 (“设置开机自启动成功”, 64, “成功提示”, )<br />     .否则<br />         信息框 (“设置开机自启动失败”, 64, “失败提示”, )<br />     .如果结束<br /> <br /> .如果结束<br /> ' 开机自启动两种写法<br /> ' 第二种<br /> .如果 (开机自启动.选中 ＝ 真)<br />     开机自启动.选中 ＝ 假<br />     取消自动运行 (取执行文件名 ())<br /> <br />     信息框 (“取消开机自启动成功”, 64, “成功提示”, )<br /> <br /> <br /> .否则<br />     开机自启动.选中 ＝ 真<br />     设置自动运行 (“Wang.exe”, 取运行目录 () ＋ 取执行文件名 (), #接口常量.到注册表)<br />     信息框 (“设置开机自启动成功”, 64, “成功提示”, )<br /> <br /> .如果结束

ck0f02

支持开源~！感谢分享

anzh4

感谢分享，很给力！~

gtm60

支持开源~！感谢分享

jingyigufen

thanks for your sharing ,my friend.

lq850815

6666666666666666666

张升

感谢分享，很给力！~

超级无敌暴龙

感谢大佬

futieming

感谢分享，很给力！~

风一样存在

感谢分享，支持开源