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

antic_ant · 2002-02-06

写写登陆的程序吧!

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);  //

kingdeezj · 2002-03-02

to helpu:   WIN2000的关机机制和98完全不同,那些函数不顶用吧?

Aiirii · 2002-03-02

procedure CloseWin(CloseType:Byte = 1);     //关机程序  const     EWX_FORCE=4; //关闭所有程序并以其他用户身份登录     EWX_LOGOFF=0; //重新启动计算机并切换到MS-DOS方式     EWX_REBOOT=2; //重新启动计算机     EWX_SHUTDOWN=1;//关闭计算机 begin   if GetisWind2K then AdjustToken();   case CloseType of     EWX_LOGOFF:ExitWindowsEx(EWX_FORCE or EWX_LOGOFF,0);     EWX_REBOOT:ExitWindowsEx(EWX_REBOOT,0);   else    ExitWindowsEx(EWX_FORCE or EWX_SHUTDOWN,0);  //   end; end;  procedure 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; function GetisWind2K:Boolean;  //判断是否为Nt,2k var ver:integer;//版本号　     major:integer;//主版本号   //  minor:integer;//次版本号 begin  Result:=False;  ver:=getversion();//获得版本号  major:=ver and 255;//获得主版本号 // minor:=(ver and 255*256)div 256; //获得次版本号   if major>=5 then Result:=True; end;

kingdeezj · 2002-03-02

如果是在WIN2000下不能软件关机,请检查CMOS中有关POWER MANAGMENT SETUP 中的 ACPI FUNCTION 是否设为允许. 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; procedure TForm1.Button1Click(Sender: TObject); begin ShutDown(EWX_POWEROFF + EWX_FORCE);// end;

helpu · 2002-03-02

To: kingdeezj 当然，前提是你已经获得了权限，例如： 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; procedure TForm1.Button1Click(Sender: TObject); begin   AdjustToken;   ExitWindowsEx(EWX_LOGOFF , 0);   //ExitWindowsEx(EWX_SHUTDOWN, 0);   //ExitWindowsEx(EWX_REBOOT , 0);   //ExitWindowsEx(EWX_FORCE , 0);   //ExitWindowsEx(EWX_POWEROFF, 0);   //ExitWindowsEx(EWX_FORCEIFHUNG , 0); end;

weel · 2002-03-02

如果在2000下可以自动关机，在程序中不能，那么修改你的代码。 如果在2000下不能，程序中也不能，那么修改你的电源设置。

2days · 2002-03-02

只要再加上     EWX_POWEROFF 就可以了~

www · 2002-05-20

接受答案了.

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

antic_ant

Unregistered / Unconfirmed

helpu

Unregistered / Unconfirmed

kingdeezj

Unregistered / Unconfirmed

Aiirii

Unregistered / Unconfirmed

kingdeezj

Unregistered / Unconfirmed

helpu

Unregistered / Unconfirmed

weel

Unregistered / Unconfirmed

2days

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

Similar threads