请问在WIN2000下如何实现软件关机，并且关闭电源(50分)

星月 · 2001-06-06

我使用API ExWindowsEx 函数的时候。系统确实实现关机了。 但是最后留给我一个对话框，告诉我可以关闭电源了。我还得手动关闭电源。 我在注册表里已经把PowerDownAfterShutDown 给置1了。 可是还是不能自动关闭电源。 我使用开始-》关机，就可以关闭系统和电源。并且不受 PowerDownAfterShutDown的限制。 我还想问问这个健值到地起什么作用。 谢谢！

sonie · 2001-06-06

没办法，从nt起就无法软件关电源了。

cactus123456 · 2001-06-06

首先，如果你在win2000的开始菜单中关闭系统，计算机能关闭电源， 即主板支持，使用下面函数即可。 这是我以前的回答http://www.delphibbs.com/delphibbs/dispq.asp?lid=414648 再给你回答一遍 win2000和nt的关机机制和win98不一样 必须调用AdjustTokenPrivileges使se_shutdown_name有效 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Memo1: TMemo;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     procedure DoShutdown;     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;    logoff: boolean = false;    reboot: boolean = false;    warn: boolean = false;    downQuick: boolean = false;    cancelShutdown: boolean = false;    powerOff: boolean = false;    timeDelay: integer = 0; implementation {$R *.DFM} function HasParam(Opt: Char): Boolean; var    x: integer; begin      result := false;      for x := 1 to paramCount do          if (paramstr(x) = '-'+opt) or (paramstr(x) = '/'+opt) then result := true; end; function GetErrorString: String; var    lz: Cardinal;    err: array[0..512] of Char; begin      lz := GetLastError;      FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, lz, 0, @err, 512, nil);      result := string(err); end; procedure Tform1.DoShutdown; var    rl,flgs: Cardinal;    hToken: Cardinal;    tkp: TOKEN_PRIVILEGES; begin      flgs := 0;      if downQuick then flgs := flgs or EWX_FORCE;      if not reboot then flgs := flgs or EWX_SHUTDOWN;      if reboot then flgs := flgs or EWX_REBOOT;      if poweroff and (not reboot) then flgs := flgs or EWX_POWEROFF;      if logoff then flgs := (flgs and (not (EWX_REBOOT or EWX_SHUTDOWN or EWX_POWEROFF))) or EWX_LOGOFF;      if Win32Platform = VER_PLATFORM_WIN32_NT then begin         if not OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then            memo1.lines.add('Cannot open process token. ['+GetErrorString+']')         else begin              if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then begin              tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;              tkp.PrivilegeCount := 1;              AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);              if GetLastError <> ERROR_SUCCESS then                    memo1.lines.add('Error adjusting process privileges.');              end else memo1.lines.add('Cannot find privilege value. ['+GetErrorString+']');         end;         if CancelShutdown then            if AbortSystemShutdown(nil) = False then               memo1.lines.add('Cannot abort. [/'+GetErrorString+'/]')            else                memo1.lines.add('Cancelled./')         else begin              if InitiateSystemShutdown(nil, nil, timeDelay, downQuick, Reboot) = False then                 memo1.lines.add('Cannot go down. [/'+GetErrorString+'/]')              else                  memo1.lines.add('Shutting down!/');         end;      end      else begin           ExitWindowsEx(flgs, 0);      end; end; procedure TForm1.Button1Click(Sender: TObject); begin      memo1.lines.add('Shutdown v0.3 for Win32 (similar to the Linux version)');      memo1.lines.add('(c) 2000 NeuralAbyss Software. All Rights Reserved.');      if HasParam('?') or (ParamCount=0) then begin         memo1.lines.add('Usage:    shutdown [-akrhfnc] [-t secs]');         memo1.lines.add('                  -k:      don''t really shutdown, only warn.');         memo1.lines.add('                  -r:      reboot after shutdown.');         memo1.lines.add('                  -h:      halt after shutdown.');         memo1.lines.add('                  -p:      power off after shutdown');         memo1.lines.add('                  -l:      log off only');         memo1.lines.add('                  -n:      kill apps that don''t want to die.');         memo1.lines.add('                  -c:      cancel a running shutdown.');      end else begin          if HasParam('k') then warn := true;          if HasParam('r') then reboot := true;          if HasParam('h') and reboot then begin             memo1.lines.add('Error: Cannot specify -r and -h parameters together!');             Exit;          end;          if HasParam('h') then reboot := false;          if HasParam('n') then downQuick := true;          if HasParam('c') then cancelShutdown := true;          if HasParam('p') then powerOff := true;          if HasParam('l') then logoff := true;          DoShutdown;      end; end; procedure TForm1.Button2Click(Sender: TObject); begin           reboot := true;           DoShutdown; end; end.

星月 · 2001-06-06

cactus123456,我已经使用AdjustTokenPrivileges设置权限了。关机可以。 可就是关机完后显示哪个讨厌的“你现在可以关闭电源了”这个对话框。 你的代码我试试。

星月 · 2001-06-06

cactus123456 你的程序我试了。还是不行。还是出现那个讨厌的告诉我关闭电源的对话框。 是不是WIN2000真的象sonie说的那样。真的不支持软件关机啊？

hujunyi · 2001-06-06

W2K是肯定可以软件关机的，我曾经写了个代码，先设置特权，然后调用ExitWindows， 我找一下，看能不能找到我的源码；我记得不用几行代码的，。

sonie · 2001-06-06

关机是能实现的，但关电源，hehe.... 这里不关权限的问题

星月 · 2001-06-06

我想WIN2K一定能实现软件关电源！！ 要不我们点开始-》关机后，系统怎么关的电源呢？那不也是软件关电源嘛。 请各位富翁帮帮忙呀？我很着急呀。小弟先谢谢了。

hujunyi · 2001-06-06

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;   // 设置特权   // Delphi2:   //if not OpenProcessToken(GetCurrentProcess(), ADJUST_PRIV, @Token) then   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; 调用： ShutDown(EWX_POWEROFF + EWX_FORCE);//强制关机并无任何提示 uFlags: Specifies the type of shutdown. This parameter must be some combination of the following values: Value Meaning EWX_FORCE Forces processes to terminate. When this flag is set, Windows does not send the messages WM_QUERYENDSESSION and WM_ENDSESSION to the applications currently running in the system. This can cause the applications to lose data. Therefore, you should only use this flag in an emergency. EWX_LOGOFF Shuts down all processes running in the security context of the process that called the ExitWindowsEx function. Then it logs the user off. EWX_POWEROFF Shuts down the system and turns off the power. The system must support the power-off feature.Windows NT: The calling process must have the SE_SHUTDOWN_NAME privilege. For more information, see the following Remarks section. Windows 95: Security privileges are not supported or required. EWX_REBOOT Shuts down the system and then restarts the system. Windows NT: The calling process must have the SE_SHUTDOWN_NAME privilege. For more information, see the following Remarks section. Windows 95: Security privileges are not supported or required. EWX_SHUTDOWN Shuts down the system to a point at which it is safe to turn off the power. All file buffers have been flushed to disk, and all running processes have stopped. Windows NT: The calling process must have the SE_SHUTDOWN_NAME privilege. For more information, see the following Remarks section. Windows 95: Security privileges are not supported or required.

ljpxyxc · 2001-06-06

WIN2000 SERVER 是不支持软件关机的. WIN2000 PROFESSINOL 是一定可以的.我用VC 搞过一个,核心思想与HUJUNYI的一样.WINNT/2000 实现此类功能涉及程序权限的问题!

向红林 · 2001-06-06

WIN2000 在一些新的主板上要改设置才能软关机 控制面板->电源管理

hujunyi · 2001-06-07

前面的代码我在W2K中文版，D4，HP VEI8-PIII650机上测试通过。 不防需要都试一下啦。

星月 · 2001-06-07

太好了。看了 hujunyi 的代码。我才发现我的问题原来出现在 ExitWindowsEx 函数的参数 上。我只给了EWX_POWEROFF,没有加 EWX_FORCE，想 hujunyi 那样加上两个参数我就可以 软件关机后自动关闭电源了。cactus123456说的也是对的。只是我对他的程序没有好好 分析。我给你俩都加25分吧。谢谢了。

请问在WIN2000下如何实现软件关机，并且关闭电源(50分)

星月

Unregistered / Unconfirmed

sonie

Unregistered / Unconfirmed

cactus123456

Unregistered / Unconfirmed

星月

Unregistered / Unconfirmed

星月

Unregistered / Unconfirmed

hujunyi

Unregistered / Unconfirmed

sonie

Unregistered / Unconfirmed

星月

Unregistered / Unconfirmed

hujunyi

Unregistered / Unconfirmed

ljpxyxc

Unregistered / Unconfirmed

向红林

Unregistered / Unconfirmed

hujunyi

Unregistered / Unconfirmed

星月

Unregistered / Unconfirmed

Similar threads