请问怎样在WIN2000下获得关机权限？(100分)

Iveny · 2002-02-21

我想在WIN2000下用ExitWindowsEx(EWX_SHUTDOWN, 0)实现关机，请问怎样获得关机权限？ 可以给出完整的代码吗？谢谢！

yzhshi · 2002-02-21

贴上几个吧。全是论坛摘下来的，没有实验。 1、 procedure TForm1.Button1Click(Sender: TObject); begin   AdjustToken;   ExitWindowsEx(EWX_SHUTDOWN, 0); end; //获取NT系统的操作权限 procedure AdjustToken(); var   hdlProcessHandle : Cardinal;   hdlTokenHandle   : Cardinal;   tmpLuid          : Int64;   tkp              : TOKEN_PRIVILEGES;   tkpNewButIgnored : TOKEN_PRIVILEGES;   lBufferNeeded    : Cardinal;   Privilege        : array[0..0] of _LUID_AND_ATTRIBUTES; begin   hdlProcessHandle := GetCurrentProcess;   OpenProcessToken(hdlProcessHandle,                    (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY),                    hdlTokenHandle);   // Get the LUID for shutdown privilege.   LookupPrivilegeValue('', 'SeShutdownPrivilege', tmpLuid);   Privilege[0].Luid := tmpLuid;   Privilege[0].Attributes := SE_PRIVILEGE_ENABLED;   tkp.PrivilegeCount := 1;   // One privilege to set   tkp.Privileges[0] := Privilege[0];   // Enable the shutdown privilege in the access token of this process.   AdjustTokenPrivileges(hdlTokenHandle,False,tkp,Sizeof(tkpNewButIgnored),                         tkpNewButIgnored,lBufferNeeded); end; ------------------------------------------------------------------------------ 2、 function SetPrivilege (sPrivilegeName: string; bEnabled: 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, PChar (sPrivilegeName), TP.Privileges[0].LUID) then   begin     if bEnabled 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

D影子D · 2002-02-23

我想问问有没有别的方法？（简单实现关机）

yzhshi · 2002-02-23

据说没戏，除非，除非，悄悄的把手移到机箱的Power上，然后……[

]

wnjer · 2002-02-23

只能使用yzhshi的方法

smilboy · 2002-02-23

function ShutDownSystem: Boolean; //关闭计算机 var   VerInfo: TOSVersionInfo;   hToken: THANDLE;   tkp: TOKEN_PRIVILEGES;   Nothing: Cardinal; begin   if IsWinNT then   begin     VerInfo.dwOSVersionInfoSize := SizeOf(VerInfo);     GetVersionEx(VerInfo);     if VerInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then     begin       OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,         hToken);       LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);       tkp.PrivilegeCount := 1;       tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;       AdjustTokenPrivileges(hToken, FALSE, tkp, 0, nil, Nothing);     end;     ExitWindowsEx(EWX_FORCE + EWX_SHUTDOWN + EWX_POWEROFF, 0);   end   else     ExitWindowsEx(EWX_FORCE + EWX_SHUTDOWN + EWX_POWEROFF, 0);   Result := True; end;

smilboy · 2002-02-23

function IsWinNT: boolean; //判断系统是否是WINNT var   MyVerInfo: TOSVersionInfo; begin   MyVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);   GetVersionEx(MyVerInfo);   if MyVerInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then     Result := true   else     Result := false; end;

helpu · 2002-03-02

ExitWindowsEx(EWX_LOGOFF , 0);       //注销 ExitWindowsEx(EWX_SHUTDOWN, 0);      //关机，但是，不关闭电源 ExitWindowsEx(EWX_REBOOT , 0);       // 重启 ExitWindowsEx(EWX_FORCE , 0);        //强制关机 ExitWindowsEx(EWX_POWEROFF, 0);      //关机，并且关闭电源 ExitWindowsEx(EWX_FORCEIFHUNG , 0);  //

NowCan · 2002-03-02

其实不用判断是否是NT，98下调用调整权限的函数虽然没作用，但也不会出错。

happyzhj · 2002-05-04

function SetPrivilege(aPrivilegeName : string;                       aEnabled : 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, PChar( aPrivilegeName ),                            TP.Privileges[ 0 ].LUID ) ) then   begin     if( aEnabled )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; function WinExit( iFlags : integer ) : boolean; //   possible Flags: //   EWX_LOGOFF //   EWX_REBOOT //   EWX_SHUTDOWN begin   Result := True;   if( SetPrivilege( 'SeShutdownPrivilege', true ) ) then   begin     if( not ExitWindowsEx( iFlags, 0 ) )then     begin       Result := False;     end;     SetPrivilege( 'SeShutdownPrivilege', False )   end   else   begin     Result := False;   end; end; 绝对没有问题！

请问怎样在WIN2000下获得关机权限？(100分)

Iveny

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

D影子D

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

wnjer

Unregistered / Unconfirmed

smilboy

Unregistered / Unconfirmed

smilboy

Unregistered / Unconfirmed

helpu

Unregistered / Unconfirmed

NowCan

Unregistered / Unconfirmed

happyzhj

Unregistered / Unconfirmed

Similar threads