delphi xe 提权代码

本文整理自网络，侵删。

 
 
//提升进程令牌函数
function AdjustProcessPrivilege(ProcessHandle:THandle;Token_Name:Pchar):boolean;
var
Token:THandle;
TokenPri:_TOKEN_PRIVILEGES;
ProcessDest:int64;
l:DWORD;
begin
Result:=False;
if OpenProcessToken(ProcessHandle,TOKEN_Adjust_Privileges,Token) then
begin
if LookupPrivilegeValue(nil,Token_Name,ProcessDest) then
begin
TokenPri.PrivilegeCount:=1;
TokenPri.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
TokenPri.Privileges[0].Luid:=ProcessDest;
l:=0;
//更新进程令牌，成功返回TRUE
if AdjustTokenPrivileges(Token,False,TokenPri,sizeof(TokenPri),nil,l) then
Result:=True;
end;
end;
end;
 
 
if AdjustProcessPrivilege(GetCurrentProcess,'SeDebugPrivilege') then　　//提升权限
begin
Memo1.Lines.Add('提升权限成功')
end
else
begin
Memo1.Lines.Add('提升权限失败');
end;

 
 

相关阅读 >>

Delphi android 保持唤醒状态

Delphi 取键盘值

Delphi playsound()函数应用

Delphi sendtextmessage 等方便的消息发送函数

Delphi 网址链接结尾自动补/

Delphi strtoint 将“字符型”转换成“整数型”

Delphi 一个高效的正整数排序函数

Delphi 根据进程名得到进程所在路径

winapi 字符及字符串函数(10): lstrcpy - 复制字符串

Delphi获取本地全部盘符并存如combobox1

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

转载请注明出处：木庄网络博客 » delphi xe 提权代码