delphi - 如何复制多个文件并使用通配符

Question

有什么想法为什么这行不通吗？没有错误，我的文本文件只是无法复制。

procedure TForm1.CopyFiles(Source, Target: string);
var
FO: TShFileOpStruct;
begin
   FillChar(FO,SizeOf(FO),#0);
   FO.Wnd := Form1.Handle;
   FO.wFunc := FO_COPY;
   FO.pFrom := PChar(Source);
   FO.pTo := PChar(Target);
   ShFileOperation(FO);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    CopyFiles('c:\test\*.txt','c:\test2\');
end;

Answer 1

您没有错误，因为您没有检查 SHFileOperation 调用的返回值。可能存在错误，但您无法知道它，因为您忽略了检查它。

您遇到的另一个问题是您未能按文档中所述双空终止字符串。所以就像这样:

FO.pFrom := PChar(Source + #0);
FO.pTo := PChar(Target + #0);

鉴于您所犯的这些错误，我建议您再次仔细阅读该文档。