用程序重启动NT时出现的问题(100分)

dereck · 2002-01-03

小弟想通过编程实现NT的重启动。 在“大富翁”论坛中查找了多篇文章，尝试了多位专家的代码，但都未获成功。 问题都是出现在调用AdjustTokenPrivileges时，用GetLastError出现以下提示信息： “AdjustTokenPrivileges failed with code 1300”。 曾经看过一位专家说过常量"SeShutdownPrivilege"在delphi中是没有声明的，是不是 需要在unit头Include某些文件，如winnt.h呢？ 请各位英雄赐教！

dadabox · 2002-01-03

http://www.delphibbs.com/delphibbs/dispq.asp?lid=820757 記得給分喲。

dereck · 2002-01-03

用dadabox提供的链接中"吴辽"的代码进行试验,结果错误依然.而且我发现其实错误在调用 LookupPrivilegeValue时就已经出现,其错误代码是"203",可能还是"SeShutdownPrivilege" 的问题. 大家快help me!

飘摇客 · 2002-01-03

试试看下面的代码看看行不行。 procedure TfrmMain.ExitWindowsNT(uFlags: Integer); var     hToken: THandle;     tkp,tkDumb: TTokenPrivileges;     DumbInt: DWORD; begin     FillChar(tkp,sizeof(tkp),0);     if not (OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken)) then         Exit;     LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid);     tkp.PrivilegeCount:=1;     tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;     AdjustTokenPrivileges(hToken,False,tkp,sizeof(tkDumb),tkDumb,DumbInt);     if GetLastError <> ERROR_SUCCESS then         Exit;     if not ExitWindowsEx(uFlags,0) then         Exit; end;

dereck · 2002-01-04

亲爱的"飘摇客",很遗憾地告诉你,错误依旧!

yzhshi · 2002-01-07

我收集的四个重新启动/关闭WinNT/2000的代码，没有实验过，灌水喽[

][

] {-------------------------------------------------------------------------} 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; {-------------------------------------------------------------------------} function ShutDown(uFlags: Cardinal):boolean; const   ADJUST_PRIV = TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES;   SHTDWN_PRIV = 'SeShutdownPrivilege';   PRIV_SIZE   = sizeOf(TTokenPrivileges); var   Len: DWORD;   TokenPriv, Dummy: TTokenPrivileges;   Token: THandle;   Error:integer; begin   error:=0;   // 设置特权   if not OpenProcessToken(GetCurrentProcess(), ADJUST_PRIV, Token) then       Error := Error or 4;   if not LookupPrivilegeValue(nil, SHTDWN_PRIV,TokenPriv.Privileges[0].Luid) then     Error := Error or 8;   TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;   TokenPriv.PrivilegeCount := 1;  // One privilege to set   if not AdjustTokenPrivileges(Token, false, TokenPriv, PRIV_SIZE,Dummy, Len) then     Error:=Error or 16;   ExitWindowsEx(uFlags, 0);   Result := (Error=0); end; procedure TForm1.BitBtn1Click(Sender: TObject); begin  ShutDown(EWX_POWEROFF + EWX_FORCE); end; {--------------------------------------------------------------------------} 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; {---------------------------------------------------------------------------}  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;

dereck · 2002-01-08

试了yzhshi的部分代码，尤其是shutdown过程，曾经使我眼前一亮，其中有这么一个常量 定义： const   SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; // Borland forgot this declaration 但在执行到AdjustTokenPrivileges时还是出错![

] 先谢谢前面几位朋友的热心帮助，希望有经过试验成功的高手把所有的原代码都发给我 (包括常量和变量的定义等)。 大家快帮帮我吧

yzhshi · 2002-01-08

我的全部已经拿出来了，看别人的吧[

]，对了，是否是你的计算机的问题？[

]

dereck · 2002-01-08

亲爱的yzhshi，我在两台NT上都试过了，就是不行![?]

yylg · 2002-01-08

去找我问过的问题，上面有详细的说明

飘摇客 · 2002-01-09

到我的站上下载我个人写的Windows小工具看看，看看在NT下能不能使NT重新启动。 下载地址：http://wolfsoft.nugoo.com/download.asp?flag=2&fl1=14&id=1482&keyword=个人程序 我试过了可以重起NT，如需要源代码可以给我写信，注明DFW。

dereck · 2002-01-15

亲爱的“yylg",我查看了你问过的问题，但似乎你的代码是连编译也没有通过，但我的情况 是编译通过，而程序执行起来不见效果。 我试了“飘摇客”的小程序，果真能够重启动NT，看来非得向”飘摇客”讨源代码了！

dereck · 2002-01-18

我再次阅读了YYLG所提过的问题,然后再试后,果然成功了,真的是版本问题! 谢谢各位了,现在开始发分了,请笑纳!

用程序重启动NT时出现的问题(100分)

dereck

Unregistered / Unconfirmed

dadabox

Unregistered / Unconfirmed

dereck

Unregistered / Unconfirmed

飘摇客

Unregistered / Unconfirmed

dereck

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

dereck

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

dereck

Unregistered / Unconfirmed

yylg

Unregistered / Unconfirmed

飘摇客

Unregistered / Unconfirmed

dereck

Unregistered / Unconfirmed

dereck

Unregistered / Unconfirmed

Similar threads