Функция для удаления папки с файлами
29 Янв 2014
Что бы удалить папку с файлами можно воспользоваться данной функцией
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 (‘путь и имя папки которую нужно уничтожить’);