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

Вниз

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

 
Arcalel   (2006-07-08 14:32) [0]

как удалить папку со всем её содержимым?


 
begin...end ©   (2006-07-08 14:38) [1]

SHFileOperation


 
Arcalel   (2006-07-08 16:45) [2]

а как ей пользоваться
пример пожалуйста


 
Homo Sapiens ©   (2006-07-08 17:59) [3]

Нажми Shift+Delete потом OK


 
Homo Sapiens ©   (2006-07-08 18:00) [4]

Вообще вопрос задан некорректно. Возможно, имелось в виду
"Как удалить... средствами делфи???"


 
begin...end ©   (2006-07-08 18:19) [5]

> Arcalel   (08.07.06 16:45) [2]

uses ShellAPI;

var
 SHFileOp: TSHFileOpStruct;
 
begin
 FillChar(SHFileOp, sizeof(SHFileOp), 0);
 with SHFileOp do
 begin
   wFunc := FO_DELETE;
   pFrom := "C:\TestFolder" + #0;
   fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
 end;
 Win32Check(SHFileOperation(SHFileOp) <> 0);
end.


Этот код удалит папку в корзину. Если нужно мимо корзины, уберите флаг FOF_ALLOWUNDO.


 
Шпиён   (2006-07-08 18:43) [6]


> begin...end ©   (08.07.06 18:19) [5]

D6, WinXP Pro rus

Win32Check(SHFileOperation(SHFileOp) <> 0);

Папка удаляется, но после завершения выдается ошибка:

SystemError. Code: 6.
Неверный дескриптор.


 
Шпиён   (2006-07-08 18:49) [7]


> Шпиён   (08.07.06 18:43) [6]

Call Win32Check with the return value of a Windows API call that returns a Boolean to indicate success or failure. If the Windows API returns False (indicating failure), Win32Check calls RaiseLastWin32Error to raise an exception.  If the Windows function returns True, Win32Check returns True.

Следовательно, правильно будет:

 Win32Check(SHFileOperation(SHFileOp) = 0);


 
Шпиён   (2006-07-08 19:09) [8]

А в данном конкретном случае (SHFileOperation, флаг FOF_SILENT не установлен) - Win32Check вообще излишество. Если только Вы не хотите в случае ошибки увидеть два сообщения (одно выдаст SHFileOperation, второе - Win32Check).


 
begin...end ©   (2006-07-08 19:23) [9]

> Шпиён   (08.07.06 18:49) [7]

Да, Вы правы, в знаке я ошибся.


 
NEchto   (2006-07-08 22:09) [10]

Homo Sapiens ©   (08.07.06 18:00) [4]

>
> Вообще вопрос задан некорректно. Возможно, имелось в виду
> "Как удалить... средствами делфи???"


Вы нелепы
Это же форум по ДЕЛЬФИ
зачем уточнять?????



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

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

Наверх




Память: 0.48 MB
Время: 0.098 c
5-1135933137
FrykT
2005-12-30 11:58
2006.07.30
Канва, текст, и... мышка


15-1151892819
Карелин Артем
2006-07-03 06:13
2006.07.30
Вопрос на понедельник. Отвечать серьезно!


1-1150875962
hbreaker
2006-06-21 11:46
2006.07.30
перечисления..


1-1150872127
verybadbug
2006-06-21 10:42
2006.07.30
работа с DockTabSet


2-1152604015
Chort
2006-07-11 11:46
2006.07.30
"выплывание" с правого бока программы дополнительной панели