远程开机/关机(不需要客户端)用网卡(50分)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    function EnablePrivilege(lpSystemName, lpName: PChar): Bool;
    Function IPCConnect(Server , username , Password : String ) : Integer;
    Function DisIPCConnect(Server : String) : integer;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  RemoteShutDown : Bool;
  ComputerName : PChar;
begin
  if Edit1.Text <> '' then
  begin
    ComputerName := PChar(Edit1.Text);
    EnablePrivilege(ComputerName,'SeRemoteShutdownPrivilege');
    RemoteShutDown :=InitiateSystemShutdown(ComputerName ,nil,0,TRUE,FALSE);
    if RemoteShutDown then
    ShowMessage('（远程）关机'+ComputerName+'成功！')
    else
    ShowMessage('（远程）关机'+ComputerName+'失败！');
  end;
end;

function TForm1.EnablePrivilege(lpSystemName, lpName: PChar): Bool;
var
  hToken : THANDLE;
  fOk : Bool;
  fTest : Bool;
  tp, tpNew : TOKEN_PRIVILEGES;
  ReturnLength : Cardinal;
begin
  fOk := FALSE;
  if IPCConnect(Edit1.Text ,Edit2.Text,Edit3.Text)=0 then
    begin
    if OpenProcessToken(GetCurrentProcess,(TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY),hToken) then
      begin
      tp.PrivilegeCount := 1;
      if not (LookupPrivilegeValue(lpSystemName,lpName,tp.Privileges[0].Luid)) then
      ShowMessage('Can not lookup privilege value!!');
      tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      if not (AdjustTokenPrivileges(hToken,FALSE,tp,sizeof(tp),tpNew,ReturnLength)) then
      ShowMessage('Can not adjust privilege value!!');
      if GetLastError = ERROR_SUCCESS then
      fOk := TRUE
      else
      fOK := FALSE;
      CloseHandle(hToken);
    end;
  end;
  Result := fOk;
end;

Function TForm1.IPCConnect(Server , username , Password : String ) : Integer;
var
  NR : TNetResource;
begin
  FillChar(NR, SizeOf(NR), 0);
  NR.dwType := RESOURCETYPE_ANY;
  NR.lpLocalName := '';
  NR.lpProvider := '';
  NR.lpRemoteName := pchar('//'+Server);
  Result := WNetAddConnection2(NR, pchar(Password), pchar(UserName), 0);
end;

Function TForm1.DisIPCConnect(Server : String) : integer;
begin
  Result := WNetCancelConnection2(pchar(Server),0,True);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if IPCConnect(Edit1.Text ,Edit2.Text,Edit3.Text) <>0 then
  begin
     showmessage('连接失败');
     exit;
  end
  else
  begin
     showmessage('连接成功');
     exit;
  end;
end;

end.

-------------------------------------

object Form1: TForm1
  Left = 383
  Top = 178
  Width = 291
  Height = 167
  Caption = '远程关机'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 33
    Top = 16
    Width = 52
    Height = 13
    Caption = '计算机名'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 33
    Top = 47
    Width = 39
    Height = 13
    Caption = '用户名'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 33
    Top = 76
    Width = 26
    Height = 13
    Caption = '密码'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 87
    Top = 11
    Width = 121
    Height = 21
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object Button1: TButton
    Left = 184
    Top = 103
    Width = 75
    Height = 25
    Caption = '关机'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object Edit2: TEdit
    Left = 87
    Top = 42
    Width = 121
    Height = 21
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    Text = 'Administrator'
  end
  object Edit3: TEdit
    Left = 87
    Top = 72
    Width = 121
    Height = 21
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    PasswordChar = '*'
    TabOrder = 3
  end
  object Button2: TButton
    Left = 32
    Top = 104
    Width = 75
    Height = 25
    Caption = '测试连接'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Button2Click
  end
end