Функция для удаления папки с файлами

Что бы удалить папку  с файлами можно воспользоваться данной функцией

 

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;

 

Вызывается так: DelDir (‘путь и имя папки которую нужно уничтожить’);