Delphi 标记为未声明标识符的复制文件

创建了一个复制函数，当尝试在其中使用“CopyFile”时，在编译时，Delphi会将其标记为未声明的标识符

我做错什么了吗

function TdmData.CopyAFile(Sourcefile, DestFile: string): boolean;
var Src, Dest : PChar;
begin
  Src := StrAlloc(Length(SourceFile)+1);
  Dest := StrAlloc(Length(DestFile)+1);
try
  StrPCopy(Src,SourceFile);
  StrPCopy(Dest,DestFile);

  result := (CopyFile(Src,Dest,FALSE));
finally
  StrDispose(Src);
  StrDispose(Dest);
end;
end;

任何帮助都将不胜感激，

---

谢谢。

CopyFile

是在

Windows

单元中声明的Windows API函数。您需要将

Windows

添加到uses子句中。或者，如果您使用的是完全限定的名称空间，请添加

Winapi.Windows

代码还应避免执行实际上不必要的堆分配和字符串复制。您可以将问题中的代码替换为：

uses
  Windows; // or Winapi.Windows

....

function TdmData.CopyAFile(const SourceFile, DestFile: string): Boolean;
begin
  Result := CopyFile(PChar(SourceFile), PChar(DestFile), False);
end;