uses
  ShellAPI;

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  OpenDialog1.Filter := 'exe ファイル (*.exe)|*.exe';
  OpenDialog1.InitialDir := ExtractFileDir(Application.ExeName);

  LabeledEdit1.Text := '';
  LabeledEdit2.Text := '';
end;

//=============================================================================
//  対象のEXEファイルの選択
//=============================================================================
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  OpenDialog1.OptionsEx  := [];
  OpenDialog1.FileName   := '';
  if not OpenDialog1.Execute then exit;
  OpenDialog1.InitialDir := ExtractFileDir(OpenDialog1.FileName);

  LabeledEdit1.Text := OpenDialog1.FileName;
  LabeledEdit1.SelStart := Length(LabeledEdit1.Text);

  LabeledEdit2.Text := ChangeFileExt(ExtractFileName(LabeledEdit1.Text), '');
end;

//=============================================================================
//  指定したプログラムの実行時に
//  [ Windows セキュリティの重要な警告 ] ダイアログを表示しないようにする
//  ShellExecuteの使用にはusesにShellAPIが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LAppExePath : string;
  LRuleName   : string;
  LCmdPath    : string;
  LArgument   : string;
  LhInst      : HINST;
begin
  if Trim(LabeledEdit1.Text) = '' then exit;
  if Trim(LabeledEdit2.Text) = '' then exit;

  LAppExePath := LabeledEdit1.Text;
  LRuleName   := LabeledEdit2.Text;

  LCmdPath := 'cmd.exe';
  LArgument := '/c netsh advfirewall firewall add '
             + 'rule name=' + LRuleName + ' '
             + 'dir=in action=allow '
             + 'program=' + LAppExePath + ' '
             + 'enable=yes';

  //管理者権限が必要なので第2引数をrunasとしている
  LhInst :=  ShellExecute(Handle,
                          'runas',
                          PChar(LCmdPath),
                          PChar(LArgument),
                          nil,
                          SW_HIDE);
  if LhInst > 32 then begin
    //管理者に昇格して実行した
  end else begin
    //管理者に昇格しなかった
  end;
end;

//=============================================================================
//  指定したプログラムの実行時に
//  [ Windows セキュリティの重要な警告 ] ダイアログを表示するようにする
//  ShellExecuteの使用にはusesにShellAPIが必要
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LAppExePath : string;
  LRuleName   : string;
  LCmdPath    : string;
  LArgument   : string;
  LhInst      : HINST;
begin
  if Trim(LabeledEdit1.Text) = '' then exit;
  if Trim(LabeledEdit2.Text) = '' then exit;

  LAppExePath := LabeledEdit1.Text;
  LRuleName   := LabeledEdit2.Text;

  LCmdPath := 'cmd.exe';
  LArgument := '/c netsh advfirewall firewall delete '
             + 'rule name=' + LRuleName + ' '
             + 'program=' + LAppExePath;

  //管理者権限が必要なので第2引数をrunasとしている
  LhInst :=  ShellExecute(Handle,
                          'runas',
                          PChar(LCmdPath),
                          PChar(LArgument),
                          nil,
                          SW_HIDE);
  if LhInst > 32 then begin
    //管理者に昇格して実行した
  end else begin
    //管理者に昇格しなかった
  end;
end;

uses
  ShellAPI;

{$R *.DFM}

//=============================================================================
//  Windows ファイアウォールを無効にする
//  ShellExecuteの使用にはusesにShellAPIが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LExeFile  : String;
  LArgument : String;
  LhInst    : HINST;
begin
  LExeFile  := 'cmd.exe';
  LArgument := '/c netsh advfirewall set allprofiles state off';

  //管理者権限が必要なので第2引数をrunasとしている
  LhInst :=  ShellExecute(Handle,
                          'runas',
                          PChar(LExeFile),
                          PChar(LArgument),
                          nil,
                          SW_HIDE);
  if LhInst > 32 then begin
    //管理者に昇格して実行した
  end else begin
    //管理者に昇格しなかった
  end;
end;

//=============================================================================
//  Windows ファイアウォールを有効にする
//  ShellExecuteの使用にはusesにShellAPIが必要
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LExeFile  : String;
  LArgument : String;
  LhInst    : HINST;
begin
  LExeFile  := 'cmd.exe';
  LArgument := '/c netsh advfirewall set allprofiles state on';

  //管理者権限が必要なので第2引数をrunasとしている
  LhInst :=  ShellExecute(Handle,
                          'runas',
                          PChar(LExeFile),
                          PChar(LArgument),
                          nil,
                          SW_HIDE);
  if LhInst > 32 then begin
    //管理者に昇格して実行した
  end else begin
    //管理者に昇格しなかった
  end;
end;