delphi - 使用 CopyFile 函数时出错

Question

您好，我正在 Delphi 5 中使用 CopyFile 函数。但是文件没有被复制到目标。我也看不到错误。了解 CopyFile 失败原因的最佳方法是什么？

if CopyFile(source, dest, false) then
  ShowMessage('Success')
else
  ShowMessage('Error');

我总是收到显示错误。 :(

Answer 1

如果函数失败，您可以调用 GetLastError 来获取扩展错误信息。方法或使用 RaiseLastOSError 方法。

检查此示例

  try
    If copyFile(source , dest,false) then
     ShowMessage('Success')
    else
     RaiseLastOSError;
  except  on E: Exception do
     showMessage(Format('Error executing copyFile %s',[E.Message]));
  end;