有关win2000下关机的问题(300分)

www · 2001-06-13

我用下面的代码在win2000下关机,为什么最后总是出现"现在可以安全的关闭计算机了"的提示,而不是直接关闭计算机电源??? unit guan; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure shutdown;     procedure Button1Click(Sender: TObject);   private   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure Tform1.ShutDown; const   SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; // Borland forgot this declaration var   hToken : THandle;   tkp : TTokenPrivileges;   tkpo : TTokenPrivileges;   zero : DWORD; 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, EWX_POWEROFF     );   end; procedure TForm1.Button1Click(Sender: TObject); begin   shutdown; end; end.

WiseAnt · 2001-06-14

请问，在NT4.0下可以吗？ 我想答案一定是不可以，为什么呢？ 因为NT是不支付ATX直接断开电源的，具体为何，就不得而知。 那是不是没有办法了呢？ 不，不，不！！！！ 我曾经在我的电脑上安装了WIN98，然后再安装了WIN2000，（注意：不是升级） 我在安装WIN98时，在命令行是这样输入的： F:/WIN98>setup/p j 那么，安装后的WIN98支持高级电源管理，可以不退出系统，直接按电源开关， 系统会关闭WIN98后，再断开电源。 而我此时惊奇的发现，我的WIN2000退出后竟然把电源断开了，我好高兴啊！ 所以将这个消息告诉你！

jinrui · 2001-06-14

to www 在98一定没问题，在2000直接选关机都只有很少的计算机能关上 还有一个关机程序你居然写了那么多代码，晕！

DragonPC_??? · 2001-06-14

代码没有问题，我可以正常关机。 我想可能是电源管理方面的问题，首先必须是ATX电源，BIOS里面需要打开相应的配置， Window NT自己关机也是使用了这些代码，绝对没有问题的。

geshicheng · 2001-06-14

你设置一下高级电源管理，里面有。

fossil · 2001-06-14

电源管理

www · 2001-06-14

我用的是atx电源,可以支持软关机的.用win2000的开始菜单关机可以直接关闭电源 的牙,为什么用程序就不行呢????

DragonPC_??? · 2001-06-14

修改   AdjustTokenPrivileges( hToken, False, tkp, SizeOf( TTokenPrivileges ), tkpo, zero ); 为   AdjustTokenPrivileges(hToken, False, tkp, 0, nil, zero); 试试，你的程序没有问题，我这里这是抱着侥幸的心理让你试试。

www · 2001-06-14

提前.

lww · 2001-06-16

两个地方，试验一下 AdjustTokenPrivileges( hToken, False, tkp, SizeOf( TTokenPrivileges ), tkpo, zero ); 改为： AdjustTokenPrivileges( hToken, False, tkp, 0, tkpo, zero ); ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, EWX_POWEROFF     ); 改为： ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0); 另外参照一席MSDN中的例子： HANDLE hToken; TOKEN_PRIVILEGES tkp;   // Get a token for this process.   if (!OpenProcessToken(GetCurrentProcess(),         TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken))     error("OpenProcessToken");   // Get the LUID for the shutdown privilege.   LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME,         &tkp.Privileges[0].Luid);   tkp.PrivilegeCount = 1;  // one privilege to set     tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;   // Get the shutdown privilege for this process.   AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,         (PTOKEN_PRIVILEGES)NULL, 0);   // Cannot test the return value of AdjustTokenPrivileges.   if (GetLastError() != ERROR_SUCCESS)     error("AdjustTokenPrivileges");   // Shut down the system and force all applications to close.   if (!ExitWindowsEx(EWX_SHUTDOWN | EWX_FORCE, 0))     error("ExitWindowsEx");

游游 · 2001-06-19

我也碰到了和你相同的问题，用了下面的代码就好了     HANDLE hToken;     TOKEN_PRIVILEGES tkp;     OpenProcessToken(OpenProcess(PROCESS_ALL_ACCESS, FALSE, GetCurrentProcessId()), TOKEN_ADJUST_PRIVILEGES, &hToken);     LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME, &tkp.Privileges[0].Luid);     tkp.PrivilegeCount = 1;     tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;     if (AdjustTokenPrivileges(hToken, FALSE, &tkp, NULL, NULL, NULL))         ExitWindowsEx(EWX_FORCE | EWX_POWEROFF, 0);         和MSDN里给的没什么区别，只是加了“EWX_POWEROFF = 8”，但我见你的代码里也有。     唯一的可能就是OpenProcess的区别了！

atorm · 2001-09-22

电源，电源，还是电源，怎么这么没脑子？！

免费得到 · 2001-09-29

上面的程序编译后在win98中运行好象不行啊！

only you · 2001-12-08

问题不是在代码上，而是在你的主板上是否使用了ATX电源。

richardw · 2001-12-08

问题不是在代码上，看你的机器硬件配置和系统设置

xianjun · 2001-12-08

ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN or EWX_POWEROFF, 0); 或者 InitiateSystemShutDown(nil, nil, 0, True, False); 肯定可以的，如果你开始菜单上可以的话。

system_owen · 2001-12-11

NT 下可以通过修改注册表实现自动断电（主板支持） 注意：每次重启都须修改一次  HKEY hkResult ;      DWORD lpType,lpcbData ;      BYTE lpData[100];      long ii = RegOpenKey(      HKEY_LOCAL_MACHINE ,      "SOFTWARE//Microsoft//Windows NT//CurrentVersion//Winlogon",      &hkResult);      if(ii==ERROR_SUCCESS )      {       lpcbData =100;       unsigned char ip_add[20];       ip_add[0] = '1';       ip_add[1] = 0x00;       ip_add[2] = 0x00;       ip_add[3] = 0x00;       RegQueryValueEx(                           hkResult,                           "AutoAdminLogon",                           0,                           &lpType,                           &lpData[0],                           &lpcbData );  lpcbData = 2;       RegSetValueEx(                    hkResult,                    "AutoAdminLogon",                    0,                    lpType,                    &ip_add[0],                    lpcbData );      RegCloseKey(hkResult);      }

hog · 2001-12-13

谁说NT4.0不可以关闭电源的？ 我以前用的AST-6150(Pro 150 CPU),在NT4.0Server和Workstation下都可以自动关闭电源，但是98就不行，不知道为什么。（6150是准Server型机器，用过的人就知道了）

烟囱 · 2002-02-05

这个问题真的这么难吗？不可想象，我也被困扰许久了！！！！！！help！！！！！

zhumoo · 2002-02-05

听课。

有关win2000下关机的问题(300分)

www

Unregistered / Unconfirmed

WiseAnt

Unregistered / Unconfirmed

jinrui

Unregistered / Unconfirmed

DragonPC_???

Unregistered / Unconfirmed

geshicheng

Unregistered / Unconfirmed

fossil

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

DragonPC_???

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

lww

Unregistered / Unconfirmed

游游

Unregistered / Unconfirmed

atorm

Unregistered / Unconfirmed

免费得到

Unregistered / Unconfirmed

only you

Unregistered / Unconfirmed

richardw

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

system_owen

Unregistered / Unconfirmed

hog

Unregistered / Unconfirmed

烟囱

Unregistered / Unconfirmed

zhumoo

Unregistered / Unconfirmed

Similar threads