如何让win2000重新启动？？？非常感谢！！！

Question

如何让win2000重新启动？？？非常感谢！！！
我想真真的隐藏自已的程序（在win2000中）。
是否可以给我一个例子？？？非常感谢！！！！
我可以给我的全部分！！！

Answer 1

HaHaFan给过我一个例子:function SetPrivilege(sPrivilegeName:string;bEnabled:boolean):boolean;
var
  TP,TPPre:TTokenPrivileges;
  Token:THandle;
  dwLength:DWORD;
begin
  result := false;
  OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,Token);
  try
  TP.PrivilegeCount := 1;
  if LookupPrivilegeValue(nil,PChar(sPrivilegeName),TP.Privileges[0].LUID) then
  begin
    if bEnabled then
      TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
    else
      TP.Privileges[0].Attributes := 0;
    dwLength := 0;
    Result := AdjustTokenPrivileges(Token,false,TP,sizeof(TPPre),TPPre,dwLength);
  end;
  finally
    CloseHandle(Token);
  end;
end;调用：
  SetPrivilege('SeShutdownPrivilege',true);
  ExitWindowsEx(EWX_SHUTDOWN or EWX_FORCE or EWX_POWEROFF,0);在win2000中隐藏自已的程序，我一直在找办法，没有有效的，除非用病毒技术。

Answer 2

请注意：该结贴了！否则，你有机会赢取CSDN监狱七日游！    ----CSDN管理员        ^-^