请问如何通过编程关机？(100分)

chen_ht · 2002-12-11

在WINDOWS XP 系统下，如何通过编程关机， 包括关电源，系统如何设置

chenzheng770101 · 2002-12-11

控制WINDOWS的开关：如关闭WINDOWS，重新启动WINDOWS等, ExitWindowsEx(UINT uFlags,DWORD dwReserved);是实现这一功能的API函数 首先定义常数 const EWX_FORCE=4; //关闭所有程序并以其他用户身份登录 EWX_LOGOFF=0; //重新启动计算机并切换到MS-DOS方式 EWX_REBOOT=2; //重新启动计算机 EWX_SHUTDOWN=1;//关闭计算机 运行时给How赋值，让他等于EWX_SHUTDOWN或其他，调用以下语句 ExitWindowsEx(How,0); /////////////////////////////////////////// Function ShutDownWindows(Flags: Byte) : Boolean; begin      Result := ExitWindowsEx(Flage, 0)      // 如果成功返回 True. end; Flags可用参数： EWX_LOGOFF:   (=0)   安全地关闭所有进程，并关闭用户登录。 EWX_SHUTDOWN:   (=1)   关闭系统。所有缓冲区的内容都能被安全的存盘，所有进程都将被停止。   对于Windows NT: 必须有 SE_SHUTDOWN_NAME 的安全特权方可进行此项操作。   对于Windows 95: 不必有任何特权。 EWX_REBOOT:   (=2)   关闭并重新启动系统。   对于Windows NT: 必须有 SE_SHUTDOWN_NAME 的安全特权方可进行此项操作。   对于Windows 95: 不必有任何特权。 EWX_FORCE:   (=4)    强制切断连接，关闭所有应用程序。当使用这个参数时，Windows 将不向正在运行的应用程序发送 WM_QUERYENDSESSION 和 WM_ENDSESSION 消息，有可能造成数据丢失。所以推荐只在紧急时使用这个参数。 EWX_POWEROFF:   (=8)   关闭系统并切断电源，需要ATX电源支持。 ///////////////////////////////////// unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }     procedure AdjustToken;   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} 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; procedure TForm1.Button1Click(Sender: TObject); begin      AdjustToken;      ExitWindowsEx((EWX_SHUTDOWN Or EWX_FORCE Or EWX_REBOOT), $FFFF); end; end.

zw84611 · 2002-12-11

网上找来的，没试过。 function ShutMeDown:string; var    hToken : THandle;    tkp,p  : TTokenPrivileges;    RetLen : DWord;    ExReply: LongBool;    Reply  : DWord; begin case Win32Platform of         VER_PLATFORM_WIN32_WINDOWS: //***Windows 9x/ME***//         begin         ExReply:= ExitWindowsEx(EWX_POWEROFF or EWX_SHUTDOWN or EWX_FORCE, 0);         if ExReply then         Result:='Shutdown Initiated'         else         Result:='Shutdown failed with ' + IntToStr(GetLastError);         end;         VER_PLATFORM_WIN32_NT:  //***Windows NT/2000/XP***//         begin         if OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken) then                 begin                 if LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid) then                         begin                         tkp.PrivilegeCount := 1;                         tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges(hToken,False,tkp,SizeOf(TTokenPrivileges),p,RetLen);                         Reply := GetLastError;                 if Reply = ERROR_SUCCESS then          begin          ExReply:= ExitWindowsEx(EWX_POWEROFF or EWX_FORCE, 0);          if ExReply then          Result:='Shutdown Initiated'          else          Result:='Shutdown failed with ' + IntToStr(GetLastError);          end;         end;         end; end; //end case end; end;

dearchenzhihua · 2002-12-11

要关闭xp 需要有关机特权,,,    先用openprcesstoken打开令牌,,然后才能访问,用LookupPrivilegeValue找出令牌特权 的luid,然后再设置特权属性,,用AdjustTokenPrivileges后,,就可以用exitwindowsex关机 了..至于这几个API 函数楼上的几位DX已经写的很清楚了... 也就是说对于这种像win2000和xp这样的有安全的系统,,首先要取得特权...

Pc 狂迷 · 2002-12-11

ExitWindowsEx(关闭类型参数，系统保留参数)； 例：exitwindowsex(ewx_shutdown,0); //关闭Windows 　　其中，系统保留参数无特定意义，一般写0即可；关闭类型可以是以下几种： 　　EWX_FORCE：强制关闭，Windows不会发送任何消息给正运行的程序，这可能导致数据丢失； 　　EWX_LOGOFF：关闭所有正在运行的程序，注销当前用户并重新登录； 　　EWX_POWEROFF：关闭Windows并关机，当然，系统必须支持电源管理； 　　EWX_REBOOT：关闭Windows并重新启动； 　　EWX_SHUTDOWN：关闭Windows，缓冲区内的数据将被写入磁盘。

chen_ht · 2002-12-12

To chenzheng770101:     请问procedure TForm1.AdjustToken();是用来做什么的？

lookingin · 2002-12-12

ExitWindowsEx(1, 0)

ZRWeng · 2002-12-12

》procedure TForm1.AdjustToken(); 在NT下取得关机的权限吧。

chen_ht · 2002-12-12

谢谢!

请问如何通过编程关机？(100分)

chen_ht

Unregistered / Unconfirmed

chenzheng770101

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

dearchenzhihua

Unregistered / Unconfirmed

Pc 狂迷

Unregistered / Unconfirmed

chen_ht

Unregistered / Unconfirmed

lookingin

Unregistered / Unconfirmed

ZRWeng

Unregistered / Unconfirmed

chen_ht

Unregistered / Unconfirmed

Similar threads