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



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

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



style="display:inline-block;width:468px;height:60px"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="7620109552">

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!

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