1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

function DoFileWork(aOperation: FILEOP_FLAGS; aFrom, aTo: AnsiString; Flags: FILEOP_FLAGS): Integer;
var
  FromPath, ToPath: AnsiString;
  SHFileOpStruct: TSHFileOpStruct;

begin
  ZeroMemory(@SHFileOpStruct, SizeOf(SHFileOpStruct));
  FromPath := aFrom + #0#0;
  ToPath := aTo + #0#0;
  with SHFileOpStruct do
      begin
         Wnd := 0;
         wFunc := aOperation;
         pFrom := PAnsiChar(FromPath);
         if ToPath <> '' then
            begin
               pTo := PAnsiChar(ToPath)
            end
         else
            begin // target available
               pTo := nil;
            end; // target not available
         fFlags := Flags;
      end; // structure
  Result := SHFileOperationA(SHFileOpStruct);
end;