Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

удалить папку   Найти похожие ветки 

 
comintegrator ©   (2003-06-14 19:45) [0]

народ ! подскажите плиз как на дельфи программно удалить папку?


 
Pesh ©   (2003-06-14 20:01) [1]

пустую папку можно похерить так: RemoveDir или RemoveDirectory (см. Help)
Не пустую нужно сначала очистить от файлов ( DeleteFile(fName:string))
А файлы перед тем как покоцать рекомендуется очистить от ненужных атрибутов типа System, ReadOnly, мешающих удалению:

procedure vClearAttr ( sFName:string);
var iAttr:Integer;
begin
iAttr:=FileGetAttr(sFName);
if (iAttr and faHidden) <>0 then iAttr:=iAttr - faHidden;
if (iAttr and SysUtils.faReadOnly) <>0 then iAttr:=iAttr - faReadOnly;
if (iAttr and faSysFile) <>0 then iAttr:=iAttr - faSysFile;
if (iAttr and faArchive) <>0 then iAttr:=iAttr - faArchive;
FileSetAttr(sFName, iAttr);
end;


 
Song ©   (2003-06-14 21:59) [2]

ShFileOperation()



Страницы: 1 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
3-83922
Tanya
2003-06-03 16:49
2003.06.26
Запись данных в базу при отключении питания


1-84361
Chlavik
2003-06-16 17:02
2003.06.26
Как мне поступить ? (классы)


14-84735
Дремучий
2003-06-05 18:54
2003.06.26
Кто из форумцев пользуется клиентом форума? Каким?


14-84604
Marser
2003-06-06 15:59
2003.06.26
Сон разума


3-83941
Stam
2003-05-23 10:26
2003.06.26
Ошибка при работе с Oracle - ORA-04031. Помогите...