Delphi Debug权限提升
procedure SetPrivilege;varOldTokenPrivileges, TokenPrivileges: TTokenPrivileges;ReturnLength: dword;hToken: THandle;Luid: int64;beginOpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken