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



style="display:block"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="5792664354"
data-ad-format="link">

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

 

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

Популярность: 0 [?]

Рубрика: Delphi · Метки:

Выразите свои мысли

Скажите нам, что вы думаете...
и если вы хотите сопроводить комментарий своей аватаркой, воспользуйтесь сервисом gravatar!