加入收藏 | 设为首页 | 会员中心 | 我要投稿 河北网 (https://www.hebeiwang.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 编程 > 正文

win7中的Uac与开机自动启动解决方法

发布时间:2018-09-14 17:42:04 所属栏目:编程 来源:站长网
导读:在行使的进程中我们会发明,假如把带Uac的Exe写入注册表的Run中,是无法实现开机自动启动的,缘故起因就是带Uac的exe必要申请打点员权限,以便运行执行措施,而在开机时无法申请到打点员权限,Exe将无法正常启动。那么怎样使带Uac的Exe开机自动启动呢。 既然带U
在行使的进程中我们会发明,假如把带Uac的Exe写入注册表的Run中,是无法实现开机自动启动的,缘故起因就是带Uac的exe必要申请打点员权限,以便运行执行措施,而在开机时无法申请到打点员权限,Exe将无法正常启动。那么怎样使带Uac的Exe开机自动启动呢。
既然带Uac的Exe开机无法申请到打点员权限,那么可以新建一个不带Uac的小措施,在个中实现申请打点员权限启动exe不就可以办理题目了吗?实现要领如下:
unit DyjStartMainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellAPI;
const
WM_STARTCLOSE = WM_USER + 100;
type
TFrmDyjStart = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
protected
procedure WMStartClose(var Msg: TMessage); message WM_STARTCLOSE;
public
{ Public declarations }
end;
var
FrmDyjStart: TFrmDyjStart;
implementation
{$R *.dfm}
procedure TFrmDyjStart.FormCreate(Sender: TObject);
begin
PostMessage(Self.Handle, WM_STARTCLOSE, 0, 0);
end;
procedure TFrmDyjStart.WMStartClose(var Msg: TMessage);
var
_vPathExe : string;
begin
_vPathExe := ExtractFilePath(Application.ExeName) + 'sysreset.exe';
ShellExecute(0, 'runas', PChar(_vPathExe), nil, nil, SW_SHOWNORMAL);
Application.Terminate;
end;

(编辑:河北网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    热点阅读