SHFILEOPSTRUCT结构体和实例

SHFILEOPSTRUCT结构体的定义如下：
typedef struct _SHFILEOPSTRUCT { // shfos
    HWND         hwnd; //显示状态信息窗口的句柄，一般设为主窗体的句柄
    UINT         wFunc; //要执行的操作
    LPCSTR       pFrom; //源文件或目录
    LPCSTR       pTo; //目标文件或目录
    FILEOP_FLAGS fFlags; //控制文件操作的标志
    BOOL         fAnyOperationsAborted; //操作是否放弃
    LPVOID       hNameMappings; //文件名映射对象的句柄，很少用
    LPCSTR       lpszProgressTitle; //进度条标题，仅在fFlags标志中指定了//FO
F_SIMPLEPROGRESS时有效
} SHFILEOPSTRUCT, FAR *LPSHFILEOPSTRUCT;

 

 

Delphi用记录TSHFileOpStruct对此结构做了两种封装：ANSI字符和宽字符版本。读者可
从ShellAPI单元的第265行看到如下代码：
  _SHFILEOPSTRUCTA = packed record  //ANSI版本
    Wnd: HWND;
    wFunc: UINT;
    pFrom: PAnsiChar;
    pTo: PAnsiChar;
    fFlags: FILEOP_FLAGS;
    fAnyOperationsAborted: BOOL;
    hNameMappings: Pointer;
    lpszProgressTitle: PAnsiChar; { only used if FOF_SIMPLEPROGRESS }
  end;
  {$EXTERNALSYM _SHFILEOPSTRUCTW}
  _SHFILEOPSTRUCTW = packed record //宽字符版本
    Wnd: HWND;
    wFunc: UINT;
    pFrom: PWideChar;
    pTo: PWideChar;
    fFlags: FILEOP_FLAGS;
    fAnyOperationsAborted: BOOL;
    hNameMappings: Pointer;
    lpszProgressTitle: PWideChar; { only used if FOF_SIMPLEPROGRESS }
  end;
  {$EXTERNALSYM _SHFILEOPSTRUCT}
  _SHFILEOPSTRUCT = _SHFILEOPSTRUCTA;
  TSHFileOpStructA = _SHFILEOPSTRUCTA;
  TSHFileOpStructW = _SHFILEOPSTRUCTW;
  TSHFileOpStruct = TSHFileOpStructA;
  //默认情况下TSHFileOpStruct为ANSI版本
  {$EXTERNALSYM SHFILEOPSTRUCTA}
  SHFILEOPSTRUCTA = _SHFILEOPSTRUCTA;
  {$EXTERNALSYM SHFILEOPSTRUCTW}
  SHFILEOPSTRUCTW = _SHFILEOPSTRUCTW;
  {$EXTERNALSYM SHFILEOPSTRUCT}
  SHFILEOPSTRUCT = SHFILEOPSTRUCTA;
 //默认情况下SHFILEOPSTRUCT为ANSI版本
在ShellAPI单元的第200行对wFunc参数的取值定义了4种操作：
  {$EXTERNALSYM FO_MOVE}
  FO_MOVE           = $0001; //移动操作，从pFrom到pTo
  {$EXTERNALSYM FO_COPY}
  FO_COPY           = $0002; //复制操作，从pFrom到pTo
  {$EXTERNALSYM FO_DELETE}
  FO_DELETE         = $0003; //删除操作，删除pFrom中指定的目录或文件（忽略//
pTo参数）
  {$EXTERNALSYM FO_RENAME}
  FO_RENAME         = $0004; //重命名操作，重命名pFrom中指定的目录或文件。
在ShellAPI单元的第210行对fFlags参数定义了如下可能取值：
  {$EXTERNALSYM FOF_MULTIDESTFILES}
  FOF_MULTIDESTFILES         = $0001; //表明pTo 参数是多个文件而不是一个//目
录
  {$EXTERNALSYM FOF_CONFIRMMOUSE}
  FOF_CONFIRMMOUSE           = $0002; //目前没有实现
  {$EXTERNALSYM FOF_SILENT}
  FOF_SILENT                 = $0004;  //不创建进度条/报告
  {$EXTERNALSYM FOF_RENAMEONCOLLISION}
  FOF_RENAMEONCOLLISION      = $0008; //当目标文件已存在时，将源文件改
//名再复制或移动
  {$EXTERNALSYM FOF_NOCONFIRMATION}
  FOF_NOCONFIRMATION         = $0010;  //操作过程中不显示确认信息，相当//于用
户选择了“yes to all”
  {$EXTERNALSYM FOF_WANTMAPPINGHANDLE}
  FOF_WANTMAPPINGHANDLE = $0020;  //填充hNameMappings成员
  {$EXTERNALSYM FOF_ALLOWUNDO}
  FOF_ALLOWUNDO              = $0040;  //允许撤销操作
  {$EXTERNALSYM FOF_FILESONLY}
  FOF_FILESONLY              = $0080;  //只操作文件
  {$EXTERNALSYM FOF_SIMPLEPROGRESS}
  FOF_SIMPLEPROGRESS         = $0100;  //显示进度条对话框但不显示文件名
  {$EXTERNALSYM FOF_NOCONFIRMMKDIR}
  FOF_NOCONFIRMMKDIR         = $0200;  //新建目录时不提示确认
  {$EXTERNALSYM FOF_NOERRORUI}
  FOF_NOERRORUI              = $0400;  //如果操作出错，不显示用户借口
设计步骤
新建一应用程序，按照图3.1.1所示加入2个TStaticText组件、2个TEdit组件和5个TBut
ton组件；TstaticText和TButton组件的Caption属性设置为如图所示，TEdit组件的Tex
t属性清空。
在uses中加入FileCtrl,shellapi两单元。SelectDirectory函数用到FileCtrl单元，而
SHFileOperation函数及TSHFileOpStruct记录用到shellapi单元。
代码分析
在第一个“…”按钮的OnClick事件中加入如下代码，用于选择操作的源目录：
procedure TForm1.Button4Click(Sender: TObject);
var
  Dir: string;
begin
  Dir := 'D:';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then

//函数执行成功
// sdAllowCreate：允许创建目录
// sdPerformCreate：执行创建目录
// sdPrompt：显示提示信息
    edit1.text:= Dir;
end;
在第二个“…”按钮的OnClick事件中加入如下代码，用于选择操作的目标目录：
procedure TForm1.Button5Click(Sender: TObject);
var
  Dir: string;
begin
  Dir := 'D:';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then

 //解释同上
    edit2.text:= Dir;
end;
在“复制”按钮的OnClick事件中加入如下代码，用于执行复制操作：
procedure TForm1.Button1Click(Sender: TObject);
var
  OpStruc:TSHFileOpStruct;
  FromBuf,ToBuf:Array[0..128] of Char;
begin
  FillChar(FromBuf,Sizeof(FromBuf),0);
  FillChar(ToBuf,Sizeof(ToBuf),0);
  //用0初始化FromBuf和ToBuf数组
  StrPCopy(FromBuf,Pchar(Edit1.Text));
  StrPCopy(ToBuf,Pchar(Edit2.Text));
  //分别在 FromBuf和ToBuf数组中填入操作的源目录及目标目录
  //开始填充OpStruc记录
  with OpStruc 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(OpStruc)=0 then
 //函数执行成功
  MessageBox(Handle,'复制完毕。','复制信息',MB_OK+MB_ICONINFORMATION);
end;
在“移动”按钮的OnClick事件中加入如下代码，用于执行移动操作：
procedure TForm1.Button2Click(Sender: TObject);
var
  OpStruc:TSHFileOpStruct;
  FromBuf,ToBuf:Array[0..128] of Char;
begin
  FillChar(FromBuf,Sizeof(FromBuf),0);
  FillChar(ToBuf,Sizeof(ToBuf),0);
  StrPCopy(FromBuf,Pchar(Edit1.Text));
  StrPCopy(ToBuf,Pchar(Edit2.Text));
  //开始填充OpStruc记录
  with OpStruc 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(OpStruc)=0 then
  //执行成功
  MessageBox(Handle,'移动完毕。','移动信息',MB_OK+MB_ICONINFORMATION);
end;
在“删除”按钮的OnClick事件中加入如下代码，用于执行删除操作：
procedure TForm1.Button3Click(Sender: TObject);
var
  OpStruc:TSHFileOpStruct;
  FromBuf:Array[0..128] of Char;
begin
  FillChar(FromBuf,Sizeof(FromBuf),0);
  StrPCopy(FromBuf,Pchar(Edit1.Text));
  //开始填充OpStruc记录
  with OpStruc do
  begin
    Wnd:=Handle;
    wFunc:=FO_DELETE;
    pFrom:=@FromBuf;
    pTo:=nil;
    fFlags:=FOF_NOCONFIRMATION;
    lpszProgressTitle:='正在删除';
  end;
  if SHFileOperation(OpStruc)=0 then
  //执行成功
  MessageBox(Handle,'删除完毕。','删除信息',MB_OK+MB_ICONINFORMATION);
end;
总结
注意：删除时（wFunc参数设为FO_DELETE）如果想将文件或目录放到回收站（fFlags参
数设置为FOF_ALLOWUNDO）则应该给出文件的绝对路径名，否则可能无法恢复。对于多个
文件的操作，文件名之间要以#0)字符分隔，整个字符串以两个# 0 结束。