Delphi 實現目錄刪除、複製、移動

unit MainUnit;
interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, FileCtrl, ShellAPI;

type
TMainForm = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.Button1Click(Sender: TObject);
var
yDir: String;
begin
yDir:= '';
if SelectDirectory(yDir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
Edit1.Text:= yDir;
end;

procedure TMainForm.Button2Click(Sender: TObject);
var
mdDir: String;
begin
mdDir:= '';
if SelectDirectory(mdDir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
Edit2.Text:= mdDir;
end;

procedure TMainForm.Button3Click(Sender: TObject);
var
OPS: TSHFileOpStruct;
FromBuf, ToBuf: Array[0..128]of Char;
begin
FillChar(FromBuf, SizeOf(FromBuf), 0); //初始化數組FromBuf
FillChar(ToBuf, SizeOf(ToBuf), 0); //初始化數組ToBuf
StrPCopy(FromBuf, PChar(Edit1.Text)); //將FromBuf填入源目錄
StrPCopy(ToBuf, PChar(Edit2.Text)); //將ToBuf填入目的目錄
with OPS do
begin
Wnd:= Handle;
wFunc:= FO_COPY; //進行復制
pFrom:= @FromBuf;
PTo:= @ToBuf;
fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:= False;
hNameMappings:= nil;
lpszProgressTitle:= nil;
end;
if SHFileOperation(OPS)= 0 then
MessageBox(Handle, '複製成功!', '複製信息', MB_OK+ MB_ICONINFORMATION);

end;

procedure TMainForm.Button4Click(Sender: TObject);
var
OPS: TSHFileOpStruct;
FromBuf: Array[0..128]of Char;
begin
FillChar(FromBuf, SizeOf(FromBuf), 0); //初始化數組FromBuf
StrPCopy(FromBuf, PChar(Edit1.Text)); //將FromBuf填入源目錄
with OPS do
begin
Wnd:= Handle;
wFunc:= FO_DELETE; //進行刪除
pFrom:= @FromBuf;
pTo:= nil;
fFlags:= FOF_NOCONFIRMATION;
lpszProgressTitle:= '正在刪除';
end;
if SHFileOperation(OPS)= 0 then
MessageBox(Handle, '刪除成功!', '刪除信息', MB_OK+ MB_ICONINFORMATION);
end;

procedure TMainForm.Button5Click(Sender: TObject);
var
OPS: TSHFileOpStruct;
FromBuf, ToBuf: Array[0..128]of Char;
begin
FillChar(FromBuf, SizeOf(FromBuf), 0); //初始化數組FromBuf
FillChar(ToBuf, SizeOf(ToBuf), 0); //初始化數組ToBuf
StrPCopy(FromBuf, PChar(Edit1.Text)); //將FromBuf填入源目錄
StrPCopy(ToBuf, PChar(Edit2.Text)); //將ToBuf填入目的目錄
with OPS do
begin
Wnd:= Handle;
wFunc:= FO_MOVE; //進行移動
pFrom:= @FromBuf;
PTo:= @ToBuf;
fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:= False;
hNameMappings:= nil;
lpszProgressTitle:= '正在移動';
end;
if SHFileOperation(OPS)= 0 then
MessageBox(Handle, '移動成功!', '移動信息', MB_OK+ MB_ICONINFORMATION);

end;

end.