Delphi仅复制具有某些扩展名的文件

如果仅使用Windows，并且对代码的可移植性不感兴趣，则可以恢复使用api：

uses
  ShellApi;

function MultiFileCopy(const ASource, ADest: string): Boolean;
var
  FO: TSHFileOpStruct;
begin
  FillChar(FO, SizeOf(FO), #0);
  FO.Wnd   := 0;
  FO.wFunc := FO_COPY;
  FO.pFrom := PChar(ASource + #0);
  FO.pTo   := PChar(ADest + #0);
  FO.fFlags := FOF_FILESONLY  or FOF_NOERRORUI or FOF_NOCONFIRMATION or FOF_SILENT;
  Result := (SHFileOperation(FO) = 0)and(not FO.fAnyOperationsAborted);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(MultiFileCopy('C:\*.pdf', 'X:\'), True));
end;

上面的代码包含一些使方法完全静音的技巧，请阅读有关标志的SHFileOperation和SetErrorMode的文档（因为David指出SetErrorMode(SEM_FAILCRITICALERRORS)，在应用程序初始化期间应仅调用一次）

正如雷米（Remy）在评论＃0中所说的，因为需要双null终止字符串。