Примеры использования функции 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);