15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Примеры использования функции SHFileOperation.

Компилятор: Delphi

Не забудь те добавить ShellAPI в uses.

procedure FileOperation (const source, dest: string;
                         op, flags: Integer);
var shf: TSHFileOpStruct;
    s1, s2: string;
begin
FillChar (shf, SizeOf (shf), #0);
s1:= source + #0#0;
s2:= dest + #0#0;
shf.Wnd:=     0;
shf.wFunc:=  op;
shf.pFrom:=  PCHAR (s1);
shf.pTo:=    PCHAR (s2);
shf.fFlags:= flags;
SHFileOperation (shf);
end;

А вот некоторые примеры использования этой функции:

Отправляем файл в корзину

FileOperation (filename, '', FO_DELETE,
               FOF_ALLOWUNDO + FOF_NOCONFIRMATION);

Перемещаем файл в другую директорию

FileOperation (sourcefile, destination, FO_MOVE,
               FOF_ALLOWUNDO + FOF_NOCONFIRMATION);

Копируем файл в другую директорию

FileOperation (sourcefile, destination, FO_COPY,
               FOF_ALLOWUNDO + FOF_NOCONFIRMATION);