Удаление, файлов

[Vladya]

Народ подскажите пожалуйста нужно очень срочно. Возможно ли в делфи написать программу что бы при нажатии на кнопку удаляли определенные заранее файлы папки и т.д.? Если можно скиньте пример. Да и вот еще что если можно, что бы при удалении показывался прогресс удаления. Всем спасибо. Помогите пожалуйста нужно очень срочно.

[mihali4]

нужно очень срочно

Ну, ежели очень срочно, то спуститесь в самый низ этой страницы и читайте готовые ответы в "Похожих темах".
Кстати, на форуме есть поиск. Достаточно было ввести "удаление файлов" и - вуа-ля...

[Terran]

http://programmersforum.ru/showthrea...F2%EE%F0%E8%FE
http://programmersforum.ru/showthrea...EB%E5%ED%E8%E5
http://programmersforum.ru/showthrea...EB%E5%ED%E8%E5
http://programmersforum.ru/showthrea...EB%E5%ED%E8%FF
http://programmersforum.ru/showthrea...EB%E5%ED%E8%FF

[Vladya]

спасибо большое, у мну еще маленький вопрос а можно как то сделать что бы при удалении появлялось окно с прогрессбаром? Подскажите куда его влепить если ето возможно. Вот код программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, CheckLst;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    CheckListBox1: TCheckListBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if DeleteFile('D:\видео\Новая папка\Monah_master_kung_fu_[torrents.ru].torrent.avi')=true then showmessage('Файл удален') else showmessage('Удаление неуспешно');
if DeleteFile('D:\видео\Новая папка\kulak _is_saolinya_[torrents.ru].avi')=true then showmessage('Файл удален') else showmessage('Удаление неуспешно');
if DeleteFile('D:\видео\Новая папка\NGO.Kung-Fu.mastera.i.ih.tajny.Drakony.s.gory.Vudan.2003.DivX.TVRip.avi')=true then showmessage('Файл удален') else showmessage('Удаление неуспешно');
if DeleteFile('D:\видео\Новая папка\shaolin vs lama.avi')=true then showmessage('Файл удален') else showmessage('Удаление неуспешно');
if DeleteFile('D:\видео\Новая папка\Vozvrashenie36stupshaolinj.mp4')=true then showmessage('Файл удален') else showmessage('Удаление неуспешно');
if DeleteFile('D:\видео\джет ли\Служители зла.vob')=true then showmessage('Файл удален') else showmessage('Удаление неуспешно');
if DeleteFile('D:\видео\джет ли\Swordsman.II.(Jet.Li).(DVD.Rip.Rus.By.Gigon).avi')=true then showmessage('Файл удален') else showmessage('Удаление неуспешно');
end;

end.

[mihali4]

Теперь представим себе, что чмсло удаляемых файлов не несколько, а много... И что, будем сидеть и тыкать кнопку ОК на мессадже, если файлы кем-то заняты и не удаляются? Несерьезно как-то...
Разумнее в некоторую строку складывать названия тех файлов, которые не удалились и потом показать это сообщение или "Файлы успешно удалены".
По поводу прогрессбара.
Устанавливаем ему макс равным числу удаляемых файлов, позишн в ноль и после каждого удаления добавляем единичку.
Ну и список удаляемых файлов что - забивать в текст программы??? Их нужно сложить, скажем, в листбокс, брать оттуда по одному и удалять в цикле.