удалить файлы и папку (с содержимым)

[stebelek]

Добрый день, нужно написать прогу при запуске которой будут удаляться файлы и папка(с содержимым) в общем написал код только для удаления файлов, кто поможет с папкой? Желательно в аське номер 969648, выручайте плиззз, я чайник в делфи.


и ещё хотелось бы вывести в проге какую нибудь строку состояния что ли , чтобы было видно что прога работает, а не тупо нажал кнопку и оно удалилось

короче человека ищу кто за спасибо расскажет/научит элементарному
заранее спасибо

вот код проги:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
SysUtils.DeleteFile('skynet.log');
SysUtils.DeleteFile('files.dat');
SysUtils.DeleteFile('file.dat');
SysUtils.DeleteFile('fa0.log');
SysUtils.DeleteFile('files.dat.bak');
SysUtils.DeleteFile('ftp_dir.log');
SysUtils.DeleteFile('skynet.ini~');
SysUtils.DeleteFile('streamreader.log');
SysUtils.DeleteFile('StreamReader.log');
SysUtils.DeleteFile('fish.log');
SysUtils.DeleteFile('session.pids');
SysUtils.DeleteFile('mac_stat.dat');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

end.

___________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[_-Re@l-_]

Вот, посмотрите ссылку.

[stebelek]

Сообщение от _-Re@l-_

Вот, посмотрите ссылку.

Но ведь RemoveDir('Новая папка'); для пустых папок!? или я ошибаюсь?

[Serge_Bliznykov]

_-Re@l-_, нет, так не пойдёт... RmDir удалит только ПУСТОЙ каталог.
А каталог с содержимым не сможет. (выдаст ошибку)


вот пример из DelphiWorld:

uses  .....
  ShellApi; 


function DelDir(dir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar(dir + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;

p.s. ВНИМАНИЕ! Папка удалится без всяких вопросов вместе со всеми сложенными подпапками (и всеми вложенными файлами)! НАПРОЧЬ!
Будьте крайне осторожны и бдительны!

[stebelek]

помогите разобраться с этим кодом, ну типа что для чего

[_-Re@l-_]

Вот, ещё нашёл.

[Serge_Bliznykov]

помогите разобраться с этим кодом, ну типа что для чего

А что Вы хотите разобрать то?!

в список используемых модулей (в секцию uses ) дописать имя модуля ShellApi

т.к. функция использует структуры данных и функции этого модуля. Фактически происходит заполнение нужных структур и вызов функции Windows - а она уже делает то, что её попросили.

[stebelek]

Вот так должно получиться?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function DelDir(dir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar(dir + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;



var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
DelDir(dir: 'temp');
SysUtils.DeleteFile('skynet.log');
SysUtils.DeleteFile('files.dat');
SysUtils.DeleteFile('file.dat');
SysUtils.DeleteFile('fa0.log');
SysUtils.DeleteFile('files.dat.bak');
SysUtils.DeleteFile('ftp_dir.log');
SysUtils.DeleteFile('skynet.ini~');
SysUtils.DeleteFile('streamreader.log');
SysUtils.DeleteFile('StreamReader.log');
SysUtils.DeleteFile('fish.log');
SysUtils.DeleteFile('session.pids');
SysUtils.DeleteFile('mac_stat.dat');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close; // закрыть главное окно программы
end;

procedure TForm1.Label1Click(Sender: TObject);
begin

end;

end.

[stebelek]

Блин, нифига не разберусь

[stebelek]

А можно это всё сделать при помощи командной строки? так чтобы запускал я екзешник нажимал в нем кнопку очистить и пошло-поехало всё в командной строке выполняться?



есть конечно вариант чтобы в одной папке с екзешником лежал файл *.bat с кодом:

del /f /s /q skynet.log
del /f /s /q files.dat
del /f /s /q file.dat
del /f /s /q fa0.log
del /f /s /q files.dat.bak
del /f /s /q ftp_dir.log
del /f /s /q skynet.ini~
del /f /s /q streamreader.log
del /f /s /q StreamReader.log
del /f /s /q fish.log
del /f /s /q session.pids
del /f /s /q mac_stat.dat
cls
color 0A
ver
echo.
echo viewing TEMP directory
dir temp /B /S
echo.
hostname
echo I ready delete temporary files
echo.
pause
rd /s /q temp
mkdir temp

а кнопка тупо запускала его, но хочу чтобы программа состояла только из одного exe файла