Удаление каталога с файлами

[SANTA_KLAUD]

Вот пример Удаления файла (выбираю в файл лист бокс файл и жму удалить)

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
// кнопка Удаление
if MessageDlg('Вы уверены, что хотите удалить этот файл?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
then DeleteFile(pansichar(FileListBox1.F ileName));
FileListBox1.Update;
end;


надо по аналогу удалить выбираемый также каталог из дериктори лист бокс со всем его содержимым.

Скока не пробовал не как не получается. Если кто может напишите плиз

[B_N]

Или делайте рекурсию на удаление вручную, или удаляйте через SHFileOperation.

[SANTA_KLAUD]

знал бы как сделал бы

[B_N]

http://programmersforum.ru/showthread.php?t=3574
http://programmersforum.ru/showthread.php?t=12961

[Terran]

Можешь воспользоваться такой функцией:

Function MyRemoveDir(SDir: String): Boolean;
Var
IIndex: Integer;
SearchRec: TSearchRec;
SFileName: String;
Begin
Result:=False;
SDir:=SDir + '\*.*';
IIndex:=FindFirst(SDir, FaAnyFile, SearchRec);
While IIndex=0 Do
Begin
SFileName:=ExtractFileDir(sDir)+'\' +SearchRec.Name;
If SearchRec.Attr = FaDirectory Then
Begin
If (SearchRec.Name <> '' ) And (SearchRec.Name <> '.') And
(SearchRec.Name <> '..') Then
MyRemoveDir(SFileName);
End
Else
Begin
If SearchRec.Attr <> FaArchive Then
FileSetAttr(SFileName, FaArchive);
If Not DeleteFile(SFileName) Then
End;
IIndex:=FindNext(SearchRec);
End;
FindClose(SearchRec);
RemoveDir(ExtractFileDir(SDir));
Result:=True;
End;

[SANTA_KLAUD]

а как это в виде процедуры одной кнопки ?

[dron-s]

удаляйте через SHFileOperation

полностью согласен
делается это очень легко

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;

[SANTA_KLAUD]

Result := (0 = ShFileOperation(fos));

[Error] Unit1.pas(341): Undeclared identifier: 'Result' чтото где то не хватает

[dron-s]

версия Delphi?

[SANTA_KLAUD]

версия delphi 7
напиши плиз код готовой кнопки мож просто я тупой а не с версией