DELPHI 7 にて

FileOp.wFunc := FO_DELETE;
FileOp.fFlags := FOF_NOCONFIRMMKDIR + FOF_NOERRORUI;
SHFileOperation( FileOp );
を実行すると、「複数ファイルの削除の確認」のダイアローグが表示されますが
このダイアローグを表示させなくする方法をお教え願います

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2005/10/06 16:58:09
  • 終了:--

回答(2件)

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982005/10/06 17:05:52

ポイント25pt

FileOp.fFlags := FOF_NOCONFIRMMKDIR + FOF_NOERRORUI+FOF_MULTIDESTFILES+FOF_NOCONFIRMATION;

FileOp.fFlags := FOF_NOCONFIRMMKDIR + FOF_NOERRORUI+FOF_NOCONFIRMATION;


では ダメでしょうか?

id:aki73ix No.2

aki73ix回答回数5224ベストアンサー獲得回数272005/10/06 17:29:08

ポイント25pt

http://www.accessclub.jp/bbs3/0088/superbeg31759.html

開いているMDBをコピーする方法 --Access Club 超初心者 FORUM--

ここにフラグの解説があります


procedure TForm1.Button1Click(Sender: TObject);

var

 FileOp: TSHFileOpStruct;

begin

  with FileOp do

  begin

   wnd:=Application.Handle;

   wFunc:= FO_DELETE;

   pFrom:= PChar(Edit1.Text+#0);

   pTo:= nil;

   fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_ALLOWUNDO or FOF_NOCONFIRMMKDIR or FOF_NOERRORUI;

   fAnyOperationsAborted := True;

  end;

  SHFileOperation( FileOp );


end;


end.


のように FOF_NOCONFIRMATION を有効にすれば出なくなります

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません