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

FIXME

Не забудь те добавить 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);