Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Удаление папок [D4, Win95/98]

Lexa2003 © (2003-01-23 22:18:00)
Здравствуйте.
Как мне удалить папку с файлами и подпапками?

AndreiR (2003-01-24 12:46:00) [1]
function MyDeleteFiles(PathMask: String; FilesOnly: Boolean): Integer;
var
OpStruc: TSHFileOpStruct;
frombuf: Array [0..MAX_PATH] of Char;
begin
FillChar(frombuf, Sizeof(frombuf), 0);
StrPCopy(frombuf, PathMask);
with OpStruc do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := @frombuf;
pTo := Nil;
if FilesOnly then
fFlags := FOF_NOCONFIRMATION + FOF_FILESONLY
else
fFlags := FOF_NOCONFIRMATION;
hNameMappings := Nil;
lpszProgressTitle := Nil;
end;
Result := ShFileOperation(OpStruc)
end;

Игорь Шевченко (2003-01-24 10:56:00) [2]
alena.svt (24.01.03 10:51)

Занятые не рубит никто. А нафига их рубить-то, занятые ?

ЮРИЙ_К (2003-01-24 10:55:00) [3]
>> alena.svt
Достаточно слов Игорь Шевченко или ешшо ? 8;-)

alena.svt (2003-01-24 10:51:00) [4]
Игорь Шевченко© (24.01.03 10:48)
Прям на повал рубит и скрытые и системные и занятые другим приложением?

Игорь Шевченко (2003-01-24 10:48:00) [5]
function ClearDir(const Path: string; Delete: Boolean): Boolean;

FileUtil.pas

alena.svt (2003-01-24 10:46:00) [6]
ЮРИЙ_К © (24.01.03 10:29)
Покажите мне в RX все чтоб рубила!(название)

ЮРИЙ_К (2003-01-24 10:29:00) [7]
В RX есть специальная функция, все рубит без проблем

Smithson (2003-01-24 10:26:00) [8]
Последовательно. Сперва файлы в подпапках, потом подпапки, потом саму папку.

Reindeer Moss Eater (2003-01-24 10:25:00) [9]
F1

Cosmic (2003-01-24 10:21:00) [10]
F8

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »