小弟在Delphi版的第一贴：如何编程获得用户对文件的新建、复制、删除等操作！！！

Question

在资源管理器中进行新建文件、删除文件、文件的复制、粘贴等操作后，怎样用程序捕捉其信息！！如：将 D:\A.txt 复制到 E:\
    在 D:\ 下新建文件 B.txt
    ...程序捕捉这些信息后在ListView中显示：
    **点**分**秒  复制文件 D:\A.txt 到 E:\
    **点**分**秒  新建文件 D:\b.txt
    ...小弟第一次在Delphi版中发贴，望各路高手捧场，多谢！！！（最好付源码）

Answer 1

资源管理器中截获就通过编写外壳扩展就可以了
只是监控使用MS没有公开的WM_ShellNotify = $401;消息一个Demounit CopyMain;interfaceuses Windows, ComObj, ShlObj;type
  TCopyHook = class(TComObject, ICopyHook)
  protected
    function CopyCallback(Wnd: HWND; wFunc, wFlags: UINT; pszSrcFile: PAnsiChar;
             dwSrcAttribs: DWORD; pszDestFile: PAnsiChar; dwDestAttribs: DWORD): UINT; stdcall;
  end;  TCopyHookFactory = class(TComObjectFactory)
  protected
    function GetProgID: string; override;
    procedure ApproveShellExtension(Register: Boolean; const ClsID: string); virtual;
  public
    procedure UpdateRegistry(Register: Boolean); override;
  end;implementationuses ComServ, SysUtils, Registry;{ TCopyHook }//  when Windows shell attend to copy files£¬CopyCallBack will be called by explorerfunction TCopyHook.CopyCallback(Wnd: HWND; wFunc, wFlags: UINT;
  pszSrcFile: PAnsiChar; dwSrcAttribs: DWORD; pszDestFile: PAnsiChar;
  dwDestAttribs: DWORD): UINT;
const
  FO_COPY = 2;
  FO_DELETE = 3;
  FO_MOVE = 1;
  FO_RENAME = 4;
var
  sOp:string;
begin
  Case wFunc of
    FO_COPY: sOp:=format('Do you want to copy %s to %s ?',[pszSrcFile,pszDestFile]);
    FO_DELETE: sOp:=format('Do you want to delete %s ?',[pszSrcFile]);
    FO_MOVE: sOp:=format('Do you want to move %s to %s ?',[pszSrcFile,pszDestFile]);
    FO_RENAME: sOp:=format('Do you want to rename %s to %s ?',[pszSrcFile,pszDestFile]);
    else  sOp:=format('Unknown shell folder operation %d',[wFlags]);
  end;
  // show hint let user deside if continue
  Result := MessageBox(Wnd, PChar(sOp),'Shell Folder Operation Notify', MB_YESNOCANCEL);
end;{ TCopyHookFactory }function TCopyHookFactory.GetProgID: string;
begin
  Result := '';
end;procedure TCopyHookFactory.UpdateRegistry(Register: Boolean);
var
  ClsID: string;
begin
  ClsID := GUIDToString(ClassID);
  inherited UpdateRegistry(Register);
  ApproveShellExtension(Register, ClsID);
  if Register then
     // add clsid to registry "CopyHookHandlers"
     CreateRegKey('directory\shellex\CopyHookHandlers\' + ClassName, '', ClsID)
     else DeleteRegKey('directory\shellex\CopyHookHandlers\' + ClassName);
end;procedure TCopyHookFactory.ApproveShellExtension(Register: Boolean; const ClsID: string);
const
  SApproveKey = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Approved';
begin
  with TRegistry.Create do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if not OpenKey(SApproveKey, True) then Exit;
      if Register
         then WriteString(ClsID, Description)
         else DeleteValue(ClsID);
    finally
      Free;
    end;
end;const
  CLSID_CopyHook: TGUID = '{66CD5F60-A044-11D0-A9BF-00A024E3867F}';
  LIBID_CopyHook: TGUID = '{D2F531A0-0861-11D2-AE5C-74640BC10000}';
initialization
  TCopyHookFactory.Create(ComServer, TCopyHook, CLSID_CopyHook,
  'CR_CopyHook', 'Shell Folder Operation Notify',ciMultiInstance, tmApartment);
end.

Answer 2

消息监控的部分接口，详细的网上可以下载Code的type
  pshnotifystruct=^shnotifystruct;
  shnotifystruct=record
                   dwitem1,dwitem2:PItemIDList;
                 end;
type
  PSHFileInfoByte=^SHFileInfoByte;
  _SHFileInfoByte=record
                   hIcon,iIcon,dwAttributes:integer;
                   szDisplayName:array[0..259] of char;
                   szTypeName:array[0..79] of char;
                 end;
  SHFileInfoByte=_SHFileInfoByte;
type  PIDLSTRUCT=^_IDLSTRUCT;
  _IDLStruct=record
               pidl:PItemIDList;
               bWatchSubFolders:integer;
             end;
  IDLStruvt=_IDLStruct;function SHChangeNotifyDeregister(hNotify:integer):integer;stdcall; external 'Shell32.DLL' index 4;
function SHChangeNotifyRegister(hWnd,uFlags,dwEvenID,uMSG,cItems:LongWord;lpps:PIDLStruct):integer;
         stdcall;external 'Shell32.DLL' index 2;
function SHGetFileInfoPidl(pidl:PItemIDList;dwFileAttributes:integer;psfib:PSHFileInfoByte;
         cbFileInfo:Integer;uFlags:integer):integer;stdcall; external 'Shell32.DLL' name 'SHGetHileInfoA';注意的是，只对Explorer，我的电脑有效，程序建立的文件无法知道
如果想监控所有的，必须使用驱动实现，例如File Monitor等

Answer 3

能给个下载地址吗？
或发到我的油箱 [email protected]
小弟对Delphi不熟，望各路高手指点。

Answer 4

Sample控件页里面有TShellNotification(好像是这样写)控件可以直接使用，呵呵

Answer 5

Delphi中实现文件拷贝的三种方法 
1．调用API函数
procedure CopyFile(FromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,FromFileName); //指定源文件名
AssignFile(f2,ToFileName); //指定目标文件名
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRec(f2).Handle)<0
Then
Raise EinoutError.creat('文件复制错误')
Finally
CloseFile(f2); //关闭 f2
End;
Finally
Until length(sLine)<=0;
End;
End; 
2.文件流
procedure copyfile;
var f1,f2: tfilestream ;
begin
f1:=Tfilestream.Create(sourcefilename,fmopenread);
try
f2:=Tfilestream.Create(targetfilename,fmopenwrite or fmcreate);
try
f2.CopyFrom(f1,f1.size);
finally
f2.Free;
end;
finally
f1.Free;
end;
end;3．利用内存块读写buffer实现
Procudure FileCopy(const Fromfile,Tofile:string);
Var
F1,F2:file;
NumRead,Numwritten:word;
Buf:array [1..2048] of char;
Begin
AssignFile(F1,Fromfile);
Reset(F1,1);
AssignFile(F2,Tofile);
Rewrite(F2,1);
Repeat
BlockRead(F1,buf,sizeof(buf),NumRead);
BlockWrite(F2,buf,Numread,NumWritten);
Until (NumRead=0) or (NumWritten<>NumRead);
CloseFile(F1);
CloseFile(F2);
End

Answer 6

二楼兄弟说的CopyHook就可以实现但和你的要求不太相同，copyhook只能监控文件（文件夹）复制、删除、移动和重命名这样几种操作
对“新建”操作不能监控

Answer 7

SHELL32.DLL中的SHChangeNotifyRegister可以监视对文件的操作但SHChangeNotifyRegister函数是MS未公开的API，所以需要动态获取他的地址
然后用这个函数注册一个回调函数，当有文件操作的时候就可以在这个回调函数中得到通知这个函数的缺点就是只能监视不能控制：（祝你好运！

Answer 8

这个函数的定义如下：
typedef WINSHELLAPI HANDLE (WINAPI *pfSHChangeNotifyRegister)(
HWND hWnd,
DWORD dwFlags,
LONG wEventMask, 
UINT uMsg,
DWORD cItems,
LPPIDLSTRUCT *lpItems);我是用VC的，你自己转成pascal语法就可以啦：）

Answer 9

谁能给个CopyHook的完整例子？

Answer 10

你看李伟的书深入windows内核编程，里面有现成的例子。

Answer 11

_SHFILEOPSTRUCTA = packed record
    Wnd: HWND;
    wFunc: UINT;
    pFrom: PAnsiChar;
    pTo: PAnsiChar;
    fFlags: FILEOP_FLAGS;
    fAnyOperationsAborted: BOOL;
    hNameMappings: Pointer;
    lpszProgressTitle: PAnsiChar; { only used if FOF_SIMPLEPROGRESS }
  end;

Answer 12

李伟的书《深入windows内核编程》我找不到啊！！

Answer 13

Sample控件页里面有TShellChangeNotifier控件可以直接使用，呵呵

Answer 14

刚学Delphi就做这个。。太难了

Answer 15

unit UFileOpertion;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,FileCtrl,ShellAPI, StdCtrls;type
  TForm1 = class(TForm)
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button4Click(Sender: TObject);
var
  Dir:String;
begin
  Dir:='D:';
   if SelectDirectory(Dir,[sdAllowCreate,sdperformCreate,sdPrompt],0) then
       //sdAllowCreate  允许创建目录
      //sdPerformCreate  执行创建目录
      //sdPrompt    显示提示信息
      //函数执行成功
     Self.Edit1.Text:=Dir;
end;procedure TForm1.Button5Click(Sender: TObject);
var
  Dir:string;
begin
   Dir:='D:';
    if SelectDirectory(Dir,[sdAllowCreate,sdPerformCreate,sdPrompt],0) then
     Self.Edit2.Text:=Dir;
end;procedure TForm1.Button1Click(Sender: TObject);
var
   OpStruc:TSHFileOpStruct;
   FromBuf,ToBuf:Array[0..128] of Char;
begin
   //用0初始化数组 FromBuf和ToBuf
   FillChar(FromBuf,Sizeof(FromBuf),0);
   FillChar(ToBuf,SizeOf(ToBuf),0);
   //分别在数组FromBuf和ToBuf填入操作的源目录及目标目录
   StrPCopy(FromBuf,PChar(Edit1.Text));
   StrPCopy(ToBuf,Pchar(Edit2.Text));
   //开始填充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;//单击“移动”按钮执行的操作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;
//下面执行删除操作
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);
    Self.Edit1.Text:='';
end;procedure TForm1.Button6Click(Sender: TObject);
begin
  Close;
end;end.