Как удалить файлы в delphi?

Пользователь

от jaren , в категории: Другие , 2 года назад

Как удалить файлы в delphi?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

2 ответа

P

Пользователь

от Programmer , 2 года назад

@jaren Добрый день!

Для удаления файлов в Delphi предусмотрена зарезервированная функция DeleteFile

Возвращает она булевое значение true/false в зависимости от того был ли файл удален успешно.

Минимальный пример

1
2
3
4
5
6
7
procedure MyDeleteFileProc;
begin
  if DeleteFile('Тут полный путь к файлу') then
    ShowMessage('Файл успешно удален!')
  else
    ShowMessage('Ошибка! ' + SysErrorMessage(GetLastError));
end; 

Пользователь

от quinton.prosacco , 9 месяцев назад

@jaren 

Для удаления файлов в Delphi можно использовать функцию DeleteFile, которая удаляет файл по указанному пути. Например, чтобы удалить файл "test.txt" в корневом каталоге диска C, можно использовать следующий код:

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
  if FileExists('C:	est.txt') then
    DeleteFile('C:	est.txt');
end;


В этом примере сначала проверяется, существует ли файл "test.txt" по указанному пути. Если файл существует, он будет удален функцией DeleteFile.


Также можно использовать команду ShellExecute, чтобы удалить файл через командную строку. Например, чтобы удалить файл "test.txt" в корневом каталоге диска C, можно использовать следующий код:

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var
  FileName: string;
begin
  FileName := 'C:	est.txt';
  ShellExecute(0, 'open', 'cmd.exe', '/C del ' + FileName, nil, SW_HIDE);
end;


В этом примере в командной строке запускается ко***** "del" для удаления файла "test.txt". Параметр "/C" указывает на выполнение команды и закрытие командной строки после завершения. Параметр SW_HIDE скрывает окно командной строки.