一个远程关机程序问题

Question

打算做一个远程关机程序写两个程序,一个客户端用于操作控制;在FORM1上放一个TClientSocket,然后再加一个BOTTON按钮,写命令:clientsocket1.socket.sendtext('CloseWindows');
再写一个服务器端,在FORM2上放一个Tserversocket,在其onclientwrite事件中加入:
if clientsocket1.Socket.ReceiveText= 'CloseWindows' then
  ExitWindowsEx(EWX_SHUTDOWN AND EWX_FORCE, 0);
但运行程序后，对方电脑没什么反映，请指点，谢谢！

Answer 1

在NT/2k下还需要获得关机权限！！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;
        Privil
ege[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;================================================================
　　　　　◆◆◆ CSDN查询助手，查询方便快捷◆◆◆ 下载地址：  
　http://CoolSlob.ifood1.com/Download/CSDNFinder.exe  
　http://CoolSlob.8u8.com/Download/Tools/CSDNFinder.Slob[更名为.exe即可]