怎样用易语言创建一个以管理员权限运行的快捷方式？

qw2136

怎样用易语言创建一个以管理员权限运行的快捷方式？不要告诉我把快捷方式先设置好放在图片资源组再写出文件。我需要用代码创建的以管理员权限运行的一个快捷方式？用代码怎么写？哪位大佬会的？

山猫啊

test.e (4.54 KB, 下载次数: 15)

2025-3-13 07:02 上传

点击文件名下载附件

测试的话随便编译出来然后测试就可以

cckj

  

子程序名	返回值类型	公开	备 注
_创建管理员权限快捷方式	整数型
参数名	类 型	参考	可空	数组	备 注
目标文件路径	文本型
快捷方式路径	文本型
快捷方式名称	文本型

变量名	类 型	静态	数组	备 注
快捷方式对象	IWshShortcut
桌面路径	文本型

桌面路径 ＝ 取特殊文件夹路径 (0) ＋ “\” ＋ 快捷方式名称 ＋ “.lnk”
创建对象 (快捷方式对象, “WScript.Shell.CreateShortcut”)
快捷方式对象.TargetPath ＝ 目标文件路径
快捷方式对象.WorkingDirectory ＝ 取目录 (目标文件路径)
快捷方式对象.Description ＝ “以管理员权限运行的快捷方式”
快捷方式对象.Save 快捷方式路径
' 设置快捷方式以管理员权限运行
调用 API (“ShellExecuteW”, , 快捷方式路径, “runas”, , 1)
' 注意：上面的 ShellExecuteW 调用实际上不会直接修改快捷方式属性，
' 它只是用来以管理员权限运行该快捷方式。要真正设置快捷方式以管理员权限运行，
' 需要修改快捷方式的属性，这通常涉及到修改快捷方式的二进制数据或使用其他工具。
' 但由于易语言本身对快捷方式的操作有限，这里提供一个变通的方法：
' 创建一个批处理文件来调用该快捷方式并以管理员权限运行。

变量名	类 型	静态	数组	备 注
批处理文件路径	文本型

批处理文件路径 ＝ 取特殊文件夹路径 (0) ＋ “\temp_admin_run.bat”
如果 (文件是否存在 (批处理文件路径))
删除文件 (批处理文件路径)

变量名	类 型	静态	数组	备 注
批处理文件内容	文本型

批处理文件内容 ＝ “@echo off” ＋ #换行符 ＋ “powershell Start-Process """ ＋ 快捷方式路径 ＋ """ -Verb RunAs”
文本写到文件 (批处理文件路径, 批处理文件内容)
' 提示用户运行批处理文件
信息框 (“请双击桌面上的‘” ＋ 快捷方式名称 ＋ “’批处理文件以管理员权限运行目标程序。”, 0, “提示”)
返回 0

i支持库列表	支持库注释
shell32	(未知支持库)

.版本 2<br /> <br /> .支持库 shell32<br /> <br /> .子程序 _创建管理员权限快捷方式, 整数型<br /> .参数 目标文件路径, 文本型<br /> .参数 快捷方式路径, 文本型<br /> .参数 快捷方式名称, 文本型<br /> <br /> .局部变量 快捷方式对象, IWshShortcut<br /> .局部变量 桌面路径, 文本型<br /> <br /> 桌面路径 ＝ 取特殊文件夹路径 (0) ＋ “\” ＋ 快捷方式名称 ＋ “.lnk”<br /> <br /> 创建对象 (快捷方式对象, “WScript.Shell.CreateShortcut”)<br /> 快捷方式对象.TargetPath ＝ 目标文件路径<br /> 快捷方式对象.WorkingDirectory ＝ 取目录 (目标文件路径)<br /> 快捷方式对象.Description ＝ “以管理员权限运行的快捷方式”<br /> 快捷方式对象.Save 快捷方式路径<br /> <br /> ' 设置快捷方式以管理员权限运行<br /> 调用 API (“ShellExecuteW”, , 快捷方式路径, “runas”, , 1)<br /> <br /> ' 注意：上面的 ShellExecuteW 调用实际上不会直接修改快捷方式属性，<br /> ' 它只是用来以管理员权限运行该快捷方式。要真正设置快捷方式以管理员权限运行，<br /> ' 需要修改快捷方式的属性，这通常涉及到修改快捷方式的二进制数据或使用其他工具。<br /> ' 但由于易语言本身对快捷方式的操作有限，这里提供一个变通的方法：<br /> ' 创建一个批处理文件来调用该快捷方式并以管理员权限运行。<br /> <br /> .局部变量 批处理文件路径, 文本型<br /> 批处理文件路径 ＝ 取特殊文件夹路径 (0) ＋ “\temp_admin_run.bat”<br /> <br /> .如果 (文件是否存在 (批处理文件路径))<br />     删除文件 (批处理文件路径)<br /> .如果结束<br /> <br /> .局部变量 批处理文件内容, 文本型<br /> 批处理文件内容 ＝ “<a href="https://bbs.125.la/home.php?mod=space&uid=69001" target="_blank">@echo</a> off” ＋ #换行符 ＋ “powershell Start-Process """ ＋ 快捷方式路径 ＋ """ -Verb RunAs”<br /> <br /> 文本写到文件 (批处理文件路径, 批处理文件内容)<br /> <br /> ' 提示用户运行批处理文件<br /> 信息框 (“请双击桌面上的‘” ＋ 快捷方式名称 ＋ “’批处理文件以管理员权限运行目标程序。”, 0, “提示”)<br /> <br /> 返回 0

aipca

这个在程序第一次运行的时候，把它写到注册表里去，以后就会以兼容管理员运行。
用到的模块

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
路径	文本型

路径 ＝ 取运行目录 () ＋ “\test.exe”
注册表_写注册项_Ex (4, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers”, 路径, 到字节集 (“~ RUNASADMIN”), #REG_SZ, , 真)

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 路径, 文本型<br /> 路径 ＝ 取运行目录 () ＋ “\test.exe”<br /> 注册表_写注册项_Ex (4, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers”, 路径, 到字节集 (“~ RUNASADMIN”), #REG_SZ, , 真)

运行以后就会是这样的效果

qw2136

啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊

aipca

qw2136 发表于 2025-3-18 03:40
啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊

我的方法不是解决问题了吗？