SHFileOperation 能不能做到当有相同文件或文件夹时,给出提示,是否覆盖?

Question

RT

Answer 1

可以的。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;

Answer 2

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