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

[dron-s]

быть такого не может, потому что Result возвращает резутьтат функции....
ты ShellAPI добавл в Uses?
p.s. проверил у себя, всё работает отлично....

[SANTA_KLAUD]

Сообщение от dron-s

быть такого не может, потому что Result возвращает резутьтат функции....
ты ShellAPI добавл в Uses?
p.s. проверил у себя, всё работает отлично....

Кинь листинг свой сравню похоже я отупел

[dron-s]

какой ещё листин
всё уже написано!!!!

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;

[SANTA_KLAUD]

мнебы к кнопке прикрутить

[dron-s]

ты сколько классов заканчивал?

procedure TForm1.Button1Click(Sender: TObject);
begin
 DelDir(PathDir);
//PathDir - путь до директории, которую надо удалить
// например надо удалить Temps папку, лежащую в корне диска С
// пишем deldir('c:\Temps');
end;

[SANTA_KLAUD]

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

[NoName_emaNoN]

Сообщение от dron-s

ты сколько классов заканчивал?

Спокойно!) Все мы такими были... ну может не все, но... Объясним популярно товарищу...

Товарисч! Заместо переменной PathDir используй директорию выделенную в "директорилист бокс". Благо свойства этого объекта позволяют считать выделенную директорию и "впихнуть" её в функцию... Выглядеть это будет примерно так: DelDir( DirectoryListBox.Path );

На счёт Path или Directory сказать точно не могу ибо нет под рукой Делфи... Но суть думаю понятна?

[SANTA_KLAUD]

Всё понятно теперь всё работает

Всем огромное спасибо