Разместите нашу кнопку!

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles



DeleteFile

удаляет физический файл определенный файловым именем

|| function DeleteFile ( const FileName : string ) : Boolean;

Описание:

    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