学步园

SHFileOperation 能不能做到当有相同文件或文件夹时,给出提示,是否覆盖? VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061223120233167.html
RT

可以的。  
   
  fFlags   :=   FOF_ALLOWUNDO;  
   
  --------------测试  
   
  procedure   TFormDemo.ButtonAPIClick(Sender:   TObject);  
  var  
      shellinfo:   TSHFileOpStructA;  
  begin  
      with   shellinfo   do  
      begin  
          wnd       :=   Application.Handle;  
          wFunc   :=   FO_COPY;  
          pFrom   :=   PChar('c:\abc.txt');  
          pTo       :=   PChar('d:\');  
          fFlags   :=   FOF_ALLOWUNDO;  
      end;  
      SHFileOperation(shellinfo);  
  end;  
   
 

谢谢,多添了一个标志.MSDN有点读不理解

Q