在delphi7中安全删除文件

uses
  Windows;

function SafeDeleteFile(const FileName: string): Boolean;
var
  Handle: THandle;
begin
  Result := False;
  Handle := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if Handle <> INVALID_HANDLE_VALUE then
  begin
    Result := DeleteFile(PChar(FileName));
    CloseHandle(Handle);
  end;
end;

uses
  SysUtils;

function SafeDeleteFile(const FileName: string): Boolean;
begin
  Result := False;
  if FileExists(FileName) then
  begin
    Result := DeleteFile(FileName);
  end;
end;