当WINDOW删除文件时怎么样能给出自己的对话框来确定是否真的删除文件

Hi，popmailzjw，您好！ 主要將利用Win32提供給我們的SHFileOperation來實現您想要的功能。SHFileOperation可以實現文件系統物件的拷貝，移動，重命名或者刪除操作:

function SHFileOperation(
    const lpFileOp: TSHFileOpStruct
); integer: stdcall;

注意，參數lpFileOp是TSHFileOpStruct的結構，包含了函數執行操作的資訊。請參考一下下面的code:

......
uses
  shellapi;
......
implementation    {$R *.DFM}    function RecycleFile(sFileName: string): Boolean;
var
  FOS: TSHFileOpStruct;
begin
   FillChar(FOS, SizeOf(FOS), 0);
   with FOS do
      begin
         wFunc := FO_DELETE;
         pFrom := PChar(sFileName);
         fFlags := FOF_ALLOWUNDO;
      end;
   Result := (SHFileOperation(FOS) = 0);
end;     procedure TForm1.Button1Click(Sender: TObject);
begin
 if fileexists(edit1.text) then
   RecycleFile(edit1.Text   #0);
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  if opendialog1.Execute then
    edit1.text:=Opendialog1.filename;
end;    procedure TForm1.Button3Click(Sender: TObject);
begin
   close;
end;    end.

小弟又在打腫臉充胖子了，還請各位先進一笑而過 ================================= <>人生在勤，不索何獲 <>業精於勤荒於嬉，行成於思毀於隨 <>臨淵羡魚不如退而結網

------
人生在勤，不索何获？

版主大人，我要的是WINDOWS删除文件时我要控制它，不是我自己编程怎么实现 WINDOWS操作文件时不是用的这个函数，我HOOK不到它，我想HOOK WINDOWS删除文件的函数，就是我要接管它

直接 HOOK DeleteFileA/W 及SHFileOperation 並接管 NtCreateFile / NtOpenFile