Функція DeleteFile – видаляє файл, вказаний у параметрі

Функція DeleteFile в Delphi видаляє файл, вказаний у параметрі.

Функція DeleteFile: Спроба видалити файл двічі

var
  fileName : string;
  myFile   : TextFile;
  data     : string;

begin
  // Спроба відкрити текстовий файл для запису
  fileName := 'Test.txt';
  AssignFile(myFile, fileName);
  ReWrite(myFile);

  // Запис в файл
  Write(myFile, 'Hello World');

  // Закриття файлу
  CloseFile(myFile);

  // Повторне відкриття файлу лише для читання
  Reset(myFile);

  // Показ вмісту файлу
  while not Eof(myFile) do
  begin
    ReadLn(myFile, data);
    ShowMessage(data);
  end;

  // Закриття файлу востаннє
  CloseFile(myFile);

  // Тепер видаляємо файл
  if DeleteFile(fileName)
  then ShowMessage(fileName+' видалено')
  else ShowMessage(fileName+' не видалено');

  // Намагаємося видалити файл повторно
  if DeleteFile(fileName)
  then ShowMessage(fileName+' знову видалено!')
  else ShowMessage(fileName+' не видалений, помилка = '+
                   IntToStr(GetLastError));
end;