如何在win2000中控制关机(win98中的那个函数不好用.)(50分)

jyh_jack · 2001-12-28

急求一个win2000中的关机函数,win98中的那个关机函数好像在win2000中无法使用. 请求各位前辈不吝赐教................

vine · 2001-12-28

退出系统   function GetWinVersion: String;   var   VersionInfo : TOSVersionInfo;   OSName : String;   begin   // set the size of the record   VersionInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo );   if Windows.GetVersionEx( VersionInfo ) then   begin   with VersionInfo do   begin   case dwPlatformId of   VER_PLATFORM_WIN32s : OSName := 'Win32s';   VER_PLATFORM_WIN32_WINDOWS : OSName := 'Windows 95';   VER_PLATFORM_WIN32_NT : OSName := 'Windows NT';   end; // case dwPlatformId   Result := OSName + ' Version ' + IntToStr( dwMajorVersion ) + '.' + IntToStr( dwMinorVersion ) +   #13#10' (Build ' + IntToStr( dwBuildNumber ) + ': ' + szCSDVersion + ')';   end; // with VersionInfo   end // if GetVersionEx   else   Result := '';   end;   procedure ShutDown;   const   SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; // Borland forgot this declaration   var   hToken : THandle;   tkp : TTokenPrivileges;   tkpo : TTokenPrivileges;   zero : DWORD;   begin   if Pos( 'Windows NT', GetWinVersion) = 1 then // we've got to do a whole buch of things   begin   zero := 0;   if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then   begin   MessageBox( 0, 'Exit Error', 'OpenProcessToken() Failed', MB_OK );   Exit;   end; // if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken)   if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then   begin   MessageBox( 0, 'Exit Error', 'OpenProcessToken() Failed', MB_OK );   Exit;   end; // if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken)   // SE_SHUTDOWN_NAME   if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' , tkp.Privileges[ 0 ].Luid ) then   begin   MessageBox( 0, 'Exit Error', 'LookupPrivilegeValue() Failed', MB_OK );   Exit;   end; // if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' , tkp.Privileges[0].Luid )   tkp.PrivilegeCount := 1;   tkp.Privileges[ 0 ].Attributes := SE_PRIVILEGE_ENABLED;   AdjustTokenPrivileges( hToken, False, tkp, SizeOf( TTokenPrivileges ), tkpo, zero );   if Boolean( GetLastError() ) then   begin   MessageBox( 0, 'Exit Error', 'AdjustTokenPrivileges() Failed', MB_OK );   Exit;   end // if Boolean( GetLastError() )   else   ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 );   end // if OSVersion = 'Windows NT'   else   begin // just shut the machine down   ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 );   end; // else   end; 这个程序适用于所有Windows版本 另给出调整关机权限： procedure TForm1.AdjustToken(); var   hdlProcessHandle : Cardinal;   hdlTokenHandle : Cardinal;   tmpLuid : Int64;   tkpPrivilegeCount : 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;

grhunter · 2001-12-28

同意。问题的关键是取得权限。

Buder · 2001-12-29

俺也来一段  ：P procedure ReBootWinNT; var    currToken:THandle;    prevState,newState:TTokenPrivileges;    prevStateLen

WORD;    uid:TLargeInteger; begin     // Set the privledges so we CAN reboot...    OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, currToken);    LookupPrivilegeValue(nil, 'SeShutdownPrivilege',uid);    newState.PrivilegeCount:=1;    newState.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;    newState.Privileges[0].Luid := uid;    AdjustTokenPrivileges(currToken, False, newState, sizeof(TTokenPrivileges),prevState, prevStateLen);   // Go ahead and reboot...    ExitWindowsEX(EWX_REBOOT, 0); end;

xdog · 2001-12-30

万能关机： function GetWinVersion: String;   var      VersionInfo : TOSVersionInfo;      OSName      : String;   begin      // set the size of the record      VersionInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo );        if Windows.GetVersionEx( VersionInfo ) then         begin            with VersionInfo do            begin               case dwPlatformId of                  VER_PLATFORM_WIN32s   : OSName := 'Win32s';                  VER_PLATFORM_WIN32_WINDOWS : OSName := 'Windows 95';                  VER_PLATFORM_WIN32_NT      : OSName := 'Windows NT';               end; // case dwPlatformId               Result := OSName + ' Version ' + IntToStr( dwMajorVersion ) + '.' + IntToStr( dwMinorVersion ) +                         #13#10' (Build ' + IntToStr( dwBuildNumber ) + ': ' + szCSDVersion + ')';            end; // with VersionInfo         end // if GetVersionEx      else         Result := '';   end;     procedure ShutDown;   const     SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';   // Borland forgot this declaration   var     hToken       : THandle;     tkp          : TTokenPrivileges;     tkpo         : TTokenPrivileges;     zero         : DWORD;   begin     if Pos( 'Windows NT', GetWinVersion) = 1  then // we've got to do a whole buch of things        begin           zero := 0;           if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then              begin                MessageBox( 0, 'Exit Error', 'OpenProcessToken() Failed', MB_OK );                Exit;              end; // if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken)           if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then              begin                MessageBox( 0, 'Exit Error', 'OpenProcessToken() Failed', MB_OK );                Exit;              end; // if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken)               // SE_SHUTDOWN_NAME           if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' , tkp.Privileges[ 0 ].Luid ) then              begin                 MessageBox( 0, 'Exit Error', 'LookupPrivilegeValue() Failed', MB_OK );                 Exit;              end; // if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' , tkp.Privileges[0].Luid )           tkp.PrivilegeCount := 1;           tkp.Privileges[ 0 ].Attributes := SE_PRIVILEGE_ENABLED;             AdjustTokenPrivileges( hToken, False, tkp, SizeOf( TTokenPrivileges ), tkpo, zero );           if Boolean( GetLastError() ) then              begin                 MessageBox( 0, 'Exit Error', 'AdjustTokenPrivileges() Failed', MB_OK );                 Exit;              end // if Boolean( GetLastError() )           else              ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 );         end // if OSVersion = 'Windows NT'      else         begin // just shut the machine down           ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 );         end; // else   end;

jyh_jack · 2002-01-04

多人接受答案了。

如何在win2000中控制关机(win98中的那个函数不好用.)(50分)

jyh_jack

Unregistered / Unconfirmed

vine

Unregistered / Unconfirmed

grhunter

Unregistered / Unconfirmed

Buder

Unregistered / Unconfirmed

xdog

Unregistered / Unconfirmed

jyh_jack

Unregistered / Unconfirmed

Similar threads