Copy-Delete-Move Function

Uses ShellApi;

function CopyDir(const fromDir, toDir: string): Boolean;

var   fos: TSHFileOpStruct;

begin

ZeroMemory(@fos, SizeOf(fos));

with fos do  begin

wFunc  := FO_COPY;

fFlags := FOF_FILESONLY;

pFrom  := PChar(fromDir + #0);

pTo    := PChar(toDir)

end;

Result := (0 = ShFileOperation(fos));

end;

function MoveDir(const fromDir, toDir: string): Boolean;

var   fos: TSHFileOpStruct;

begin

ZeroMemory(@fos, SizeOf(fos));

with fos do  begin

wFunc  := FO_MOVE;

fFlags := FOF_FILESONLY;

pFrom  := PChar(fromDir + #0);

pTo    := PChar(toDir)

end;

Result := (0 = ShFileOperation(fos));

end;

function DelDir(dir: string): Boolean;

var   fos: TSHFileOpStruct;

begin

ZeroMemory(@fos, SizeOf(fos));

with fos do  begin

wFunc  := FO_DELETE;

fFlags := FOF_SILENT or FOF_NOCONFIRMATION;

pFrom  := PChar(dir + #0);

end;

Result := (0 = ShFileOperation(fos));

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if cCopyDir('d:\download', 'e:\') = True then

ShowMessage('Directory copied.');

end;