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

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

 

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 (‘путь и имя папки которую нужно уничтожить’);

About admin

Speak Your Mind

Tell us what you're thinking...
and oh, if you want a pic to show with your comment, go get a gravatar!

Подтвердите, что Вы не бот — выберите человечка с поднятой рукой: