Текущий архив: 2003.12.19;
Скачать: CL | DM;
Вниз
Как удалить папку? Найти похожие ветки
← →
plyaznik © (2003-10-25 00:49) [0]Удалять а)в корзину; б)вообще
← →
Guerrillero © (2003-10-25 01:08) [1]SHFileOperation + F1
а) SHFILEOPSTRUCT + FOF_ALLOWUND
б) "вообще" ???
← →
plyaznik © (2003-10-25 12:01) [2]"вообще - это с жесткого диска"
← →
Ihor Osov'yak © (2003-10-25 12:13) [3]> "вообще - это с жесткого диска"
тебе же упоминали о FOF_ALLOWUNDO и F1.. Или еще англо-русский словарик
вв помощь позвать?
← →
Ihor Osov'yak © (2003-10-25 12:21) [4]ладно, я сегодня добрый:
function DeleteFolder(aFolderName: string; aMustVoobsche: boolean): boolean;
(*returns true unless error or user abort*)
var
r: TshFileOpStruct;
i: integer;
begin
aFolderName := aFolderName + #0#0;
result := false;
i := GetFileAttributes(PChar(aFolderName));
if (i = -1) or (i and FILE_ATTRIBUTE_DIRECTORY = 0) then
exit;
fillchar(r, sizeof(r), 0);
r.wFunc := FO_DELETE;
r.pFrom := pChar(aFolderName);
r.fFlags := {FOF_ALLOWUNDO or} FOF_NOCONFIRMATION;
if not aMustVoobsche
then
r.fFlags := r.fFlags or FOF_ALLOWUNDO;
result := (0 = ShFileOperation(r)) and (not r.fAnyOperationsAborted);
end;
ps - набивалось почти по памяти, не тестировалось - могут быть опячатки..
Но идея понятна, надеюсь..
ps2 -
возможно нужно что-то из этого
uses
ShellAPI,
ShlObj,
SHFolder...
← →
Nick Denry © (2003-10-25 22:44) [5]Давно кода не было :-(((
Страницы: 1 вся ветка
Текущий архив: 2003.12.19;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
