[ EXE 起動時の [ 不明な発行元 ] ダイアログを非表示にする ]

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  OpenDialog1.InitialDir := ExtractFileDir(Application.ExeName);
end;

//=============================================================================
//  指定ファイルのZone.Identifierを削除
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LFileName : string;
  LText     : string;
begin
  OpenDialog1.OptionsEx  := [];
  OpenDialog1.FileName   := '';
  if not OpenDialog1.Execute then exit;

  OpenDialog1.InitialDir := ExtractFileDir(OpenDialog1.FileName);
  LabeledEdit1.Text := '';

  //選択したファイル名
  LFileName := OpenDialog1.FileName;
  LabeledEdit1.Text := LFileName;
  LabeledEdit1.SelStart := Length(LabeledEdit1.Text);


 if FileExists(LFileName + ':Zone.Identifier') then begin
   if not DeleteFile(LFileName + ':Zone.Identifier') then begin
     LText := 'ブロックの解除ができませんでした';
   end else begin
     LText := 'ブロックを解除しました';
   end;
   MessageBox(Handle, PChar(LText), '情報', MB_ICONINFORMATION);
 end else begin
   LText := 'このファイルには ZoneID がありません';
   MessageBox(Handle, PChar(LText), '情報', MB_ICONINFORMATION);
 end;
end;

implementation

uses
  Scripting_TLB,
  ComObj;

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  OpenDialog1.InitialDir := ExtractFileDir(Application.ExeName);
end;

//=============================================================================
//  指定ファイルのZone.Identifierを追加
//  FileSystemObjectオブジェクトを使用する例
//
//  usesにScripting_TLB,ComObjが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LFileSystem : IFileSystem3;
  LTextStream : ITextStream;
  LFileName   : string;
  LText       : string;
begin
  OpenDialog1.OptionsEx := [];
  OpenDialog1.FileName  := '';
  if not OpenDialog1.Execute then exit;

  OpenDialog1.InitialDir := ExtractFileDir(OpenDialog1.FileName);
  LabeledEdit1.Text := '';


  //FileSystemObjectオブジェクトを生成
  LFileSystem := CoFileSystemObject.Create;
  try
    //選択したファイル名
    LFileName := OpenDialog1.FileName;
    LabeledEdit1.Text := LFileName;
    LabeledEdit1.SelStart := Length(LabeledEdit1.Text);

    try
      //ファイルをテキストファイルとして開く
      //OpenTextFileの第3引数をTrueにしないと設定できない
      LTextStream := LFileSystem.OpenTextFile(LFileName + ':Zone.Identifier',
                                              ForWriting,
                                              True,
                                              TristateUseDefault);
      //Zoneidを追加する
      LTextStream.WriteLine('[ZoneTransfer]' + sLineBreak + 'ZoneId=3');
    except
      //ITextStreamの取得に失敗した場合
      LText := 'ブロックを設定できませんでした';
      MessageBox(Handle, PChar(LText), '結果', MB_ICONINFORMATION);
    end;
    if LTextStream <> nil then begin
      LTextStream.Close;
    end;
  finally
    LTextStream := nil;
    LFileSystem := nil;
  end;
end;