Клуб программистов

    Delphi функция DeleteFile удаляет файл заданный файловым именем - FileName.

    Файл - выбирается в текущей директории.

    Если файл был удален, то возвращается True, в противном случае возвращается False.

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

begin
   // Try to open a text file for writing to
   fileName := 'Test.txt';
   AssignFile(myFile, fileName);
   ReWrite(myFile);

   // Write to the file
   Write(myFile, 'Hello World');

   // Close the file
   CloseFile(myFile);

   // Reopen the file in read mode
   Reset(myFile);

   // Display the file contents
   while not Eof(myFile) do
   begin
     ReadLn(myFile, data);
     ShowMessage(data);
   end;

   // Close the file for the last time
   CloseFile(myFile);

   // Now delete the file
   if DeleteFile(fileName)
   then ShowMessage(fileName+' deleted OK')
   else ShowMessage(fileName+' not deleted');

   // Try to delete the file again
   if DeleteFile(fileName)
   then ShowMessage(fileName+' deleted OK again!')
   else ShowMessage(fileName+' not deleted, error = '+ 
                    IntToStr(GetLastError));
end;

Hello World
Test.txt deleted OK
Test.txt not deleted, error = 2