如何获得SeDebugPrivilege权限 ( 积分: 160 )

如题，如何获得SeDebugPrivilege权限。
例如，我的执行文件是killvirus.exe,执行后让他获得SeDebugPrivilege权限。
希望给个思路，
最好有调试好的代码。
谢谢[]

喔！在Administrator权限下才能修改！
google下赵一下 nt权限编程! 是社么 sid 之类的!
还有写某个注册表子健的问题，反正都一样，记不清楚了！

function SetPrivilege(sPrivilegeName: AnsiString; bEnable: Boolean): Boolean;
var
TPPrev, TP: TTokenPrivileges;
Token : THandle;
dwRetLen : DWord;
begin
Result := False;
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, Token);
TP.PrivilegeCount := 1;
if LookupPrivilegeValue(nil,PAnsiChar(sPrivilegeName),TP.Privileges[0].LUID) then
begin
if bEnable then
TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
else
TP.Privileges[0].Attributes := 0;
dwRetLen := 0;
Result := AdjustTokenPrivileges(Token, False, TP, SizeOf(TPPrev), TPPrev, dwRetLen);
end;
CloseHandle(Token);
end;