delphi 提升进程权限

本文整理自网络，侵删。

 function AdjustProcessPrivilege(ProcessHandle: THandle; Token_Name: PChar): boolean;
var
Token: cardinal;
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;
if AdjustTokenPrivileges(Token, False, TokenPri, sizeof(TokenPri), nil, l) then
Result := True;
end;
end;
end;

调用时使用AdjustProcessPrivilege(GetCurrentProcess,'SeDebugPrivilege');
即可开启当前程序的调试权限。 

相关阅读 >>

Delphi ascii码表及键盘码表

Delphi 取得文件版本

Delphi unidac 连接mdb access 数据库

Delphi通过ie窗口句柄获取网页接口（iwebbrowser2）

Delphixe7关于android 检测屏幕是否处于关闭状态

Delphi中的instrrev函数(倒找文本)

Delphi 中的颜色常量及效果图

字符串截取小例子Delphi源代码

Delphi xe7使用本身的md5单元进行字符串加密

Delphi创建桌面快捷方式及锁定任务栏等功能

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

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