DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: webb123
今日帖子: 33
在线用户: 17
导航: 论坛 -> 文档资料 斑竹:liumazi,ruralboy  
作者:
男 haiq (海强) ★☆☆☆☆ -
普通会员
2016/4/21 13:30:59
标题:
Win10 开机启动程序的权限问题...... 浏览:2712
加入我的收藏
楼主:     在 Windows 10 中,通过注册表(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run)指定的开机启动程序不能具有管理员权限,否则将被忽略,不会运行。也就是你不能在 Project -> Options -> Application 中通过选中 Enabled Administrator Privileges 来使编译生成的程序运行时具有管理员权限。
    遇到这种情况如何处理呢?
----------------------------------------------
我不用,是因为不知有何用。
作者:
男 nevergrief (孤独骑士) ★☆☆☆☆ -
盒子活跃会员
2016/4/21 15:40:20
1楼: 有2种办法:
1. 写一个COM组件,把相应的功能封装在里面。等需要用到admin功能权限的时候,提示用户,需要提升权限。提升之后,COM的功能全部提供给主程序使用,就没有问题了。而此时主程序还是普通权限,所以自启动没有问题。我有提升COM权限的相关代码,你需要的话可以给你。但你得自己写COM。
2. 把软件的主函数写成两种分叉。就是用来自己调用自己。一旦满足某种功能,第二个实例就立刻退出。
----------------------------------------------
只有偏执狂才能生存!
作者:
男 mricy (Icy) ▲▲▲▲△ -
普通会员
2016/4/21 17:06:35
2楼: 还有个方法 告诉用户 必须以 Administrato账户启动windows 方可使用 哈哈哈
----------------------------------------------
哦哟喂,看过来: http://zelig.cn
作者:
男 xlonger (xlonger) ★☆☆☆☆ -
普通会员
2016/4/21 18:43:49
3楼: 感觉win 8 和10后,再修改系统的一下设置就比较难了。

比如程序里放个 webBrwoser控件,想把 程序设置为 Windows系统默认浏览器,光修改注册表 好像不行了。
----------------------------------------------
我打的是酱油,而不是别的什么油。
我灌的是口水,而不是别的什么水。
我聊的折腾不是那个不折腾的折腾。
我说的阿娇不是那个邓玉娇的阿娇。
3个代表,6个为什么,9个肠胃炎。
D性强的领导干部都不喜欢热比娅。
我特别要讲的是,屁民网黄色论坛是我经常上网必选的 网站之一
作者:
男 kingofsun (小矮人酋长) ★☆☆☆☆ -
普通会员
2016/4/22 12:43:24
4楼: 提升程序权限即可
----------------------------------------------
-
作者:
男 xlonger (xlonger) ★☆☆☆☆ -
普通会员
2016/4/24 8:10:28
5楼: 楼上搞个例子,我说的那个功能。我可以付款100。
----------------------------------------------
我打的是酱油,而不是别的什么油。
我灌的是口水,而不是别的什么水。
我聊的折腾不是那个不折腾的折腾。
我说的阿娇不是那个邓玉娇的阿娇。
3个代表,6个为什么,9个肠胃炎。
D性强的领导干部都不喜欢热比娅。
我特别要讲的是,屁民网黄色论坛是我经常上网必选的 网站之一
作者:
男 yuto (yuto) ▲▲▲▲▲ -
普通会员
2016/4/24 12:07:44
6楼: procedure TForm1.BitBtn1Click(Sender: TObject);
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
try
Reg.Access:=KEY_WOW64_64KEY or KEY_WRITE;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
begin
Reg.WriteString('StartRun','"C:\Program Files\StartRun\StartRun.exe" --startup');  //添加键值,加入开机启动项
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
try
Reg.Access:=KEY_WOW64_64KEY or KEY_WRITE;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
begin
Reg.DeleteValue('StartRun'); //删除键值,取消开机自启动
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;
此帖子包含附件:
PNG 图像
大小:269.3K
----------------------------------------------
-
作者:
男 esmall (esmall) ▲▲▲▲▲ -
普通会员
2017/3/31 13:07:25
7楼: 不知道楼主解决了问题没有?
----------------------------------------------
-
作者:
男 tuesdays (Tuesday) ▲▲▲▲△ -
普通会员
2017/3/31 13:45:01
8楼: 要用计划任务.  计划任务有超级高权限.
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行89.84375毫秒 RSS