delphi - 使用 CopyFile 函数时出错

Question

您好，我正在使用CopyFileDelphi 5 中的功能。但是文件没有被复制到目的地。我也看不到错误。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;