delphi Debug权限提升

本文整理自网络，侵删。

 
procedure SetPrivilege;
 
var
 
OldTokenPrivileges, TokenPrivileges: TTokenPrivileges;
 
ReturnLength: dword;
 
hToken: THandle;
 
Luid: int64;
 
begin
 
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken);
 
LookupPrivilegeValue(nil, 'SeDebugPrivilege', Luid);
 
TokenPrivileges.Privileges[0].luid := Luid;
 
TokenPrivileges.PrivilegeCount := 1;
 
TokenPrivileges.Privileges[0].Attributes := 0;
 
AdjustTokenPrivileges(hToken, False, TokenPrivileges, SizeOf(TTokenPrivileges), OldTokenPrivileges, ReturnLength);
 
OldTokenPrivileges.Privileges[0].luid := Luid;
 
OldTokenPrivileges.PrivilegeCount := 1;
 
OldTokenPrivileges.Privileges[0].Attributes := TokenPrivileges.Privileges[0].Attributes or SE_PRIVILEGE_ENABLED;
 
AdjustTokenPrivileges(hToken, False, OldTokenPrivileges, ReturnLength, PTokenPrivileges(nil)^, ReturnLength);
 
end;
 

相关阅读 >>

Delphi自动检测u盘插入、拔出及获取u盘盘符

Delphi 多次改变 richedit.text部份文本的颜色后，出现所有字体都变色的的解决办法

Delphi 莫名奇妙的错误 Delphi is not a valid integer value

Delphi idhttp1post上传图片

Delphi mailurlmaybeinvalid 检测邮箱地址有效性

Delphi remobjects，您值得拥有

Delphi 取得ie下面输入框内容

Delphi中combobox.items.indexof用法

Delphi shellexecute调用系统命令关闭计算机

Delphi 反外挂，反破解思想代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi Debug权限提升