Форум: "Основная";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];

Вниз

Как удалить директорию с поддиректориями   Найти похожие ветки 

← →
McSimm   (2002-02-25 14:17) [4]

Приведенная ниже функция умеет удалять, копировать и перемещать:

uses
ShellApi

type
TFileOperActionType = (foaCopy, foaMove, foaDelete);

function DoFileOp(WndHandle: HWND; From, To_: String; FilesOnly: Boolean; Op: TFileOperActionType): Integer;
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..MAX_PATH] of Char;
begin
FillChar(frombuf, Sizeof(frombuf), 0);
FillChar(tobuf, Sizeof(tobuf), 0);
StrPCopy(frombuf, From);
StrPCopy(tobuf, To_);
with OpStruc do
begin
Wnd := WndHandle;
case Op of
foaCopy: wFunc:= FO_COPY;
foaMove: wFunc:= FO_MOVE;
foaDelete: wFunc:= FO_DELETE;
end;
pFrom := @frombuf;
pTo := @tobuf;
if FilesOnly then fFlags := FOF_NOERRORUI + FOF_SILENT + FOF_NOCONFIRMATION + FOF_FILESONLY
else fFlags := FOF_NOERRORUI + FOF_SILENT + FOF_NOCONFIRMATION + FOF_NOCONFIRMMKDIR;
// fAnyOperationsAborted:= False;
hNameMappings:= Nil;
lpszProgressTitle:= Nil;
end;
Result := ShFileOperation(OpStruc)
end;

---

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

Форум: "Основная";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.004 c