有文件夹或文件被删除的消息是什么?怎么知道被删除文件的位置？(40分)

stuwei · 2002-09-22

请教

rockjie · 2002-09-22

找找有关hook和shell编程的有关文章你就知道了 一般是shell编程类的

rockjie · 2002-09-22

我在COM编程里面也见到过！

tingjie · 2002-09-23

WINSHELLAPI int WINAPI SHFileOperation(     LPSHFILEOPSTRUCT lpFileOp   &nbsp

; typedef struct _SHFILEOPSTRUCT { // shfos       HWND         hwnd;     UINT         wFunc;     LPCSTR       pFrom;     LPCSTR       pTo;     FILEOP_FLAGS fFlags;     BOOL         fAnyOperationsAborted;     LPVOID       hNameMappings;     LPCSTR       lpszProgressTitle; } SHFILEOPSTRUCT, FAR *LPSHFILEOPSTRUCT; 更具体的说明可以参照Delphi Win SDK的帮助文件和MSDN 我记得TurboPower有一组system的控件包中包含一个这样的控件。但是很长时间没用 记不太清楚了。如果需要我可以帮你找一下。

stuwei · 2002-09-23

tingjie所给的方法好像是文件操作的函数吧，我想要的是得到文件被删除的消息

stuwei · 2002-09-23

自己帮自己UP

stuwei · 2002-09-24

自己UP 大家帮忙啊，解决了另有重谢不胜感激!!!!!!!!!!!!!!!!!!

薄荷 · 2002-09-24

这个问题是Com里的copyHook的经典例子了。一般是和上下文菜单一块讲的。 你找本讲com的书，里面应该都有的。

sinoliu · 2002-09-24

delphi7有控件

redfox · 2002-09-24

给你个好东西，用类做的。可监视多种文件操作动作。 http://www.howtodothings.com/showarticle.asp?article=314 那上面还有许多可学习的，如果你的英文够好。 If you have ever needed to know when the shell issues an event here is a  wrapper around SHChangeNotifyRegister wich allows you to know the kind of event and the file(s) affected, this component is in stage 1 of developement however it offers the whole functionality. The component itself is composed of enhancements made to TSHChangeNotify component by Elliott Shevin (shevine@aol.com) By the way here is a list of things you should be aware when using this component for instance restoring an item from the recycle bin to the original location turn on a rename event, while you get a notification over an event you cannot stop it you just get notified of it. Deleting an Item causes 3 events: OnFileDelete (When the dialog, or the lack  of, is displayed normally this is before the deletion of the file) an  OnFolderUpdate (after the element is removed and the folder refreshes) and surprise yet another OnFileDelete (after the file has completely been deleted)  this behavior is not of the component but of the api it relies on. Also according to some documentation I read the apis used on this article are entirely undocumented, perhaps it can be possible to stop the event however due to lack of documentation, it is unknown to me. <-------------- Begin UNIT code ----------------------------> {$IFNDEF VER80} {$IFNDEF VER90} {$IFNDEF VER93}   {$DEFINE Delphi3orHigher} {$ENDIF} {$ENDIF} {$ENDIF} unit ShellNotify; interface uses Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs,   {$IFNDEF Delphi3orHigher} OLE2, {$ELSE} ActiveX, ComObj, {$ENDIF}   ShlObj; type   NOTIFYREGISTER = record     pidlPath : PItemIDList;     bWatchSubtree : boolean;   end;   PNOTIFYREGISTER = ^NOTIFYREGISTER; const   SNM_SHELLNOTIFICATION = WM_USER +1;   SHCNF_ACCEPT_INTERRUPTS = $0001;   SHCNF_ACCEPT_NON_INTERRUPTS = $0002;   SHCNF_NO_PROXY = $8000; type   TNotificationEvent = (neAssociationChange, neAttributesChange,     neFileChange, neFileCreate, neFileDelete, neFileRename,     neDriveAdd, neDriveRemove, neShellDriveAdd, neDriveSpaceChange,     neMediaInsert, neMediaRemove, neFolderCreate, neFolderDelete,     neFolderRename, neFolderUpdate, neNetShare, neNetUnShare,     neServerDisconnect, neImageListChange);   TNotificationEvents = set of TNotificationEvent;   TShellNotificationEvent1 = procedure(Sender: TObject;     Path: String)of Object;   TShellNotificationEvent2 = procedure(Sender: TObject;     path1, path2: String) of Object;   TShellNotification = class(TComponent)   private     fWatchEvents: TNotificationEvents;     fPath: String;     fActive, fWatch: Boolean;     prevPath1, prevPath2: String;     PrevEvent: Integer;     Handle, NotifyHandle: HWND;     fOnAssociationChange: TNotifyEvent;     fOnAttribChange: TShellNotificationEvent2;     FOnCreate: TShellNotificationEvent1;     FOnDelete: TShellNotificationEvent1;     FOnDriveAdd: TShellNotificationEvent1;     FOnDriveAddGui: TShellNotificationEvent1;     FOnDriveRemove: TShellNotificationEvent1;     FOnMediaInsert: TShellNotificationEvent1;     FOnMediaRemove: TShellNotificationEvent1;     FOnDirCreate: TShellNotificationEvent1;     FOnNetShare: TShellNotificationEvent1;     FOnNetUnShare: TShellNotificationEvent1;     FOnRenameFolder: TShellNotificationEvent2;     FOnItemRename: TShellNotificationEvent2;     FOnFolderRemove: TShellNotificationEvent1;     FOnServerDisconnect: TShellNotificationEvent1;     FOnFolderUpdate: TShellNotificationEvent1;     function PathFromPidl(Pidl: PItemIDList): String;     procedure SetWatchEvents(const Value: TNotificationEvents);     function GetActive: Boolean;     procedure SetActive(const Value: Boolean);     procedure SetPath(const Value: String);     procedure SetWatch(const Value: Boolean);   protected     procedure ShellNotifyRegister;     procedure ShellNotifyUnregister;     procedure WndProc(var Message: TMessage);     procedure DoAssociationChange; dynamic;     procedure DoAttributesChange(Path1, Path2: String); dynamic;     procedure DoCreateFile(Path: String); dynamic;     procedure DoDeleteFile(Path: String); dynamic;     procedure DoDriveAdd(Path:String); dynamic;     procedure DoDriveAddGui(Path: String); dynamic;     procedure DoDriveRemove(Path: String); dynamic;     procedure DoMediaInsert(Path: String); dynamic;     procedure DoMediaRemove(Path: String); dynamic;     procedure DoDirCreate(Path: String); dynamic;     procedure DoNetShare(Path: String); dynamic;     procedure DoNetUnShare(Path: String); dynamic;     procedure DoRenameFolder(Path1, Path2: String); dynamic;     procedure DoRenameItem(Path1, Path2: String); dynamic;     procedure DoFolderRemove(Path: String); dynamic;     procedure DoServerDisconnect(Path: String); dynamic;     procedure DoDirUpdate(Path: String); dynamic;   public     constructor Create(AOwner: TComponent); override;     destructor Destroy; override;   published     property Path: String read fPath write SetPath;     property Active: Boolean read GetActive write SetActive;     property WatchSubTree: Boolean read fWatch write SetWatch;     property WatchEvents: TNotificationEvents     read fWatchEvents write SetWatchEvents;     property OnAssociationChange: TNotifyEvent     read fOnAssociationChange write FOnAssociationChange;     property OnAttributesChange: TShellNotificationEvent2     read fOnAttribChange write fOnAttribChange;     property OnFileCreate: TShellNotificationEvent1     read FOnCreate write FOnCreate;     property OnFolderRename: TShellNotificationEvent2     read FOnRenameFolder write FOnRenameFolder;     property OnFolderUpdate: TShellNotificationEvent1     read FOnFolderUpdate write FOnFolderUpdate;     property OnFileDelete: TShellNotificationEvent1     read FOnDelete write FOnDelete;     property OnDriveAdd: TShellNotificationEvent1     read FOnDriveAdd write FOnDriveAdd;     property OnFolderRemove: TShellNotificationEvent1     read FOnFolderRemove write FOnFolderRemove;     property OnItemRename: TShellNotificationEvent2     read FOnItemRename write FOnItemRename;     property OnDriveAddGui: TShellNotificationEvent1     read FOnDriveAddGui write FOnDriveAddGui;     property OnDriveRemove: TShellNotificationEvent1     read FOnDriveRemove write FOnDriveRemove;     property OnMediaInserted: TShellNotificationEvent1     read FOnMediaInsert write FOnMediaInsert;     property OnMediaRemove: TShellNotificationEvent1     read FOnMediaRemove write FOnMediaRemove;     property OnDirCreate: TShellNotificationEvent1     read FOnDirCreate write FOnDirCreate;     property OnNetShare: TShellNotificationEvent1     read FOnNetShare write FOnNetShare;     property OnNetUnShare: TShellNotificationEvent1     read FOnNetUnShare write FOnNetUnShare;     property OnServerDisconnect: TShellNotificationEvent1     read FOnServerDisconnect write FOnServerDisconnect;   end;   function SHChangeNotifyRegister( hWnd: HWND; dwFlags: integer;        wEventMask : cardinal; uMsg: UINT; cItems : integer;        lpItems : PNOTIFYREGISTER) : HWND; stdcall;   function SHChangeNotifyDeregister(hWnd: HWND) : boolean; stdcall;   function SHILCreateFromPath(Path: Pointer; PIDL: PItemIDList;       var Attributes: ULONG):HResult; stdcall;   procedure Register; implementation const Shell32DLL = 'shell32.dll';   function SHChangeNotifyRegister; external Shell32DLL index 2;   function SHChangeNotifyDeregister; external Shell32DLL index 4;   function SHILCreateFromPath; external Shell32DLL index 28; { TShellNotification } constructor TShellNotification.Create(AOwner: TComponent); begin   inherited Create( AOwner );   if not (csDesigning in ComponentState) then     Handle := AllocateHWnd(WndProc);   PrevEvent := 0;   fWatchEvents := [neAssociationChange, neAttributesChange,     neFileChange, neFileCreate, neFileDelete, neFileRename,     neDriveAdd, neDriveRemove, neShellDriveAdd, neDriveSpaceChange,     neMediaInsert, neMediaRemove, neFolderCreate, neFolderDelete,     neFolderRename, neFolderUpdate, neNetShare, neNetUnShare,     neServerDisconnect, neImageListChange]; end; destructor TShellNotification.Destroy; begin   if not (csDesigning in ComponentState) then     Active := False;   if Handle <> 0 then DeallocateHWnd( Handle );   inherited Destroy; end; procedure TShellNotification.DoAssociationChange; begin   if Assigned( fOnAssociationChange ) and (neAssociationChange in fWatchEvents) then     fOnAssociationChange( Self ); end; procedure TShellNotification.DoAttributesChange; begin   if Assigned( fOnAttribChange ) then     fOnAttribChange( Self, Path1, Path2 ); end; procedure TShellNotification.DoCreateFile(Path: String); begin   if Assigned( fOnCreate ) then     FOnCreate(Self, Path) end; procedure TShellNotification.DoDeleteFile(Path: String); begin   if Assigned( FOnDelete ) then     FOnDelete(Self, Path); end; procedure TShellNotification.DoDirCreate(Path: String); begin   if Assigned( FOnDirCreate ) then     FOnDirCreate( Self, Path ); end; procedure TShellNotification.DoDirUpdate(Path: String); begin   if Assigned( FOnFolderUpdate ) then     FOnFolderUpdate(Self, Path); end; procedure TShellNotification.DoDriveAdd(Path: String); begin   if Assigned( FOnDriveAdd ) then     FOnDriveAdd(Self, Path); end; procedure TShellNotification.DoDriveAddGui(Path: String); begin   if Assigned( FOnDriveAddGui ) then     FOnDriveAdd(Self, Path); end; procedure TShellNotification.DoDriveRemove(Path: String); begin   if Assigned( FOnDriveRemove ) then     FOnDriveRemove(Self, Path); end; procedure TShellNotification.DoFolderRemove(Path: String); begin   if Assigned(FOnFolderRemove) then     FOnFolderRemove( Self, Path ); end; procedure TShellNotification.DoMediaInsert(Path: String); begin   if Assigned( FOnMediaInsert ) then     FOnMediaInsert(Self, Path); end; procedure TShellNotification.DoMediaRemove(Path: String); begin   if Assigned(FOnMediaRemove) then     FOnMediaRemove(Self, Path); end; procedure TShellNotification.DoNetShare(Path: String); begin   if Assigned(FOnNetShare) then     FOnNetShare(Self, Path); end; procedure TShellNotification.DoNetUnShare(Path: String); begin   if Assigned(FOnNetUnShare) then     FOnNetUnShare(Self, Path); end; procedure TShellNotification.DoRenameFolder(Path1, Path2: String); begin   if Assigned( FOnRenameFolder ) then     FOnRenameFolder(Self, Path1, Path2); end; procedure TShellNotification.DoRenameItem(Path1, Path2: String); begin   if Assigned( FOnItemRename ) then     FonItemRename(Self, Path1, Path2); end; procedure TShellNotification.DoServerDisconnect(Path: String); begin   if Assigned( FOnServerDisconnect ) then     FOnServerDisconnect(Self, Path); end; function TShellNotification.GetActive: Boolean; begin   Result := (NotifyHandle <> 0) and (fActive); end; function TShellNotification.PathFromPidl(Pidl: PItemIDList): String; begin   SetLength(Result, Max_Path);   if not SHGetPathFromIDList(Pidl, PChar(Result)) then Result := '';   if pos(#0, Result) > 0 then     SetLength(Result, pos(#0, Result)); end; procedure TShellNotification.SetActive(const Value: Boolean); begin   if (Value <> fActive) then   begin     fActive := Value;     if fActive then ShellNotifyRegister else ShellNotifyUnregister;   end; end; procedure TShellNotification.SetPath(const Value: String); begin   if fPath <> Value then   begin     fPath := Value;     ShellNotifyRegister;   end; end; procedure TShellNotification.SetWatch(const Value: Boolean); begin   if fWatch <> Value then   begin     fWatch := Value;     ShellNotifyRegister;   end; end; procedure TShellNotification.SetWatchEvents(   const Value: TNotificationEvents); begin   if fWatchEvents <> Value then   begin     fWatchEvents := Value;     ShellNotifyRegister;   end; end; procedure TShellNotification.ShellNotifyRegister; var   Option: TNotificationEvent;   NotifyRecord: NOTIFYREGISTER;   Flags: DWORD;   Pidl: PItemIDList;   Attributes: ULONG; const   NotifyFlags: array[TNotificationEvent] of DWORD = (     SHCNE_ASSOCCHANGED, SHCNE_ATTRIBUTES, SHCNE_UPDATEITEM,     SHCNE_CREATE, SHCNE_DELETE, SHCNE_RENAMEITEM, SHCNE_DRIVEADD,     SHCNE_DRIVEREMOVED, SHCNE_DRIVEADDGUI, SHCNE_FREESPACE,     SHCNE_MEDIAINSERTED, SHCNE_MEDIAREMOVED, SHCNE_MKDIR,     SHCNE_RMDIR, SHCNE_RENAMEFOLDER, SHCNE_UPDATEDIR,     SHCNE_NETSHARE, SHCNE_NETUNSHARE, SHCNE_SERVERDISCONNECT,     SHCNE_UPDATEIMAGE); begin   ShellNotifyUnregister;   if not (csDesigning in ComponentState) and      not (csLoading in ComponentState) then   begin     SHILCreatefromPath( PChar(fPath), Addr(Pidl), Attributes);     NotifyRecord.pidlPath := Pidl;     NotifyRecord.bWatchSubtree := fWatch;     Flags := 0;     for Option := Low(Option) to High(Option) do       if (Option in FWatchEvents) then         Flags := Flags or NotifyFlags[Option];     NotifyHandle := SHChangeNotifyRegister(Handle,       SHCNF_ACCEPT_INTERRUPTS or SHCNF_ACCEPT_NON_INTERRUPTS,       Flags, SNM_SHELLNOTIFICATION, 1, @NotifyRecord);   end; end; procedure TShellNotification.ShellNotifyUnregister; begin   if NotifyHandle <> 0 then     SHChangeNotifyDeregister(NotifyHandle); end; procedure TShellNotification.WndProc(var Message: TMessage); type    TPIDLLIST = record       pidlist : array[1..2] of PITEMIDLIST;    end;    PIDARRAY = ^TPIDLLIST; var    Path1 : string;    Path2 : string;    ptr : PIDARRAY;    repeated : boolean;    event : longint; begin   case Message.Msg of     SNM_SHELLNOTIFICATION:     begin       event := Message.LParam and ($7FFFFFFF);       Ptr := PIDARRAY(Message.WParam);       Path1 := PathFromPidl( Ptr^.pidlist[1] );       Path2 := PathFromPidl( Ptr^.pidList[2] );       repeated := (PrevEvent = event)         and (uppercase(prevpath1) = uppercase(Path1))         and (uppercase(prevpath2) = uppercase(Path2));       if Repeated then exit;       PrevEvent := Message.Msg;       prevPath1 := Path1;       prevPath2 := Path2;       case event of         SHCNE_ASSOCCHANGED : DoAssociationChange;         SHCNE_ATTRIBUTES : DoAttributesChange( Path1, Path2);         SHCNE_CREATE : DoCreateFile(Path1);         SHCNE_DELETE : DoDeleteFile(Path1);         SHCNE_DRIVEADD : DoDriveAdd(Path1);         SHCNE_DRIVEADDGUI : DoDriveAddGui(path1);         SHCNE_DRIVEREMOVED : DoDriveRemove(Path1);         SHCNE_MEDIAINSERTED : DoMediaInsert(Path1);         SHCNE_MEDIAREMOVED : DoMediaRemove(Path1);         SHCNE_MKDIR : DoDirCreate(Path1);         SHCNE_NETSHARE : DoNetShare(Path1);         SHCNE_NETUNSHARE : DoNetUnShare(Path1);         SHCNE_RENAMEFOLDER : DoRenameFolder(Path1, Path2);         SHCNE_RENAMEITEM : DoRenameItem(Path1, Path2);         SHCNE_RMDIR : DoFolderRemove(Path1);         SHCNE_SERVERDISCONNECT : DoServerDisconnect(Path);         SHCNE_UPDATEDIR : DoDirUpdate(Path);         SHCNE_UPDATEIMAGE : ;         SHCNE_UPDATEITEM : ;       end;//Case event of     end;//SNM_SHELLNOTIFICATION   end; //case end; procedure Register; begin   RegisterComponents('Shell', [TShellNotification]); end; end. <------------------ End Unit Code --------------------------> 还有下面的。。。 你是否想为你的Windows加上一双眼睛，察看使用者在机器上所做的各种操作（例如建立、删除文件；改变文件或目录名字）呢？ 　　这里介绍一种利用Windows未公开函数实现这个功能的方法。 　　在Windows下有一个未公开函数SHChangeNotifyRegister可以把你的窗口添加到系统的系统消息监视链中，该函数在Delphi中的定义如下： 　　Function SHChangeNotifyRegister(hWnd,uFlags,dwEventID,uMSG,cItems:LongWord; 　　lpps

IDLSTRUCT):integer;stdcall;external 'Shell32.dll' index 2; 　　其中参数hWnd定义了监视系统操作的窗口得句柄，参数uFlags dwEventID定义监视操作参数，参数uMsg定义操作消息，参数cItems定义附加参数，参数lpps指定一个PIDLSTRUCT结构，该结构指定监视的目录。 　　当函数调用成功之后，函数会返回一个监视操作句柄，同时系统就会将hWnd指定的窗口加入到操作监视链中，当有文件操作发生时，系统会向hWnd发送uMsg指定的消息，我们只要在程序中加入该消息的处理函数就可以实现对系统操作的监视了。 　　如果要退出程序监视，就要调用另外一个未公开得函数SHChangeNotifyDeregister来取消程序监视。 　　下面是使用Delphi编写的具体程序实现范例，首先建立一个新的工程文件，然后在Form1中加入一个Button控件和一个Memo控件， 　　程序的代码如下： 　　unit Unit1; 　　interface 　　uses 　　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 　　StdCtrls,shlobj,Activex; 　　const 　　SHCNE_RENAMEITEM = ＄1; 　　SHCNE_CREATE = ＄2; 　　SHCNE_DELETE = ＄4; 　　SHCNE_MKDIR = ＄8; 　　SHCNE_RMDIR = ＄10; 　　SHCNE_MEDIAINSERTED = ＄20; 　　SHCNE_MEDIAREMOVED = ＄40; 　　SHCNE_DRIVEREMOVED = ＄80; 　　SHCNE_DRIVEADD = ＄100; 　　SHCNE_NETSHARE = ＄200; 　　SHCNE_NETUNSHARE = ＄400; 　　SHCNE_ATTRIBUTES = ＄800; 　　SHCNE_UPDATEDIR = ＄1000; 　　SHCNE_UPDATEITEM = ＄2000; 　　SHCNE_SERVERDISCONNECT = ＄4000; 　　SHCNE_UPDATEIMAGE = ＄8000; 　　SHCNE_DRIVEADDGUI = ＄10000; 　　SHCNE_RENAMEFOLDER = ＄20000; 　　SHCNE_FREESPACE = ＄40000; 　　SHCNE_ASSOCCHANGED = ＄8000000; 　　SHCNE_DISKEVENTS = ＄2381F; 　　SHCNE_GLOBALEVENTS = ＄C0581E0; 　　SHCNE_ALLEVENTS = ＄7FFFFFFF; 　　SHCNE_INTERRUPT = ＄80000000; 　　SHCNF_IDLIST = 0; 　　// LPITEMIDLIST 　　SHCNF_PATHA = ＄1; 　　// path name 　　SHCNF_PRINTERA = ＄2; 　　// printer friendly name 　　SHCNF_DWORD = ＄3; 　　// DWORD 　　SHCNF_PATHW = ＄5; 　　// path name 　　SHCNF_PRINTERW = ＄6; 　　// printer friendly name 　　SHCNF_TYPE = ＄FF; 　　SHCNF_FLUSH = ＄1000; 　　SHCNF_FLUSHNOWAIT = ＄2000; 　　SHCNF_PATH = SHCNF_PATHW; 　　SHCNF_PRINTER = SHCNF_PRINTERW; 　　WM_SHNOTIFY = ＄401; 　　NOERROR = 0; 　　type 　　TForm1 = class(TForm) 　　Button1: TButton; 　　Memo1: TMemo; 　　procedure FormClose(Sender: TObject; var Action: TCloseAction); 　　procedure Button1Click(Sender: TObject); 　　procedure FormCreate(Sender: TObject); 　　private 　　{ Private declarations } 　　procedure WMShellReg(var Message:TMessage);message WM_SHNOTIFY; 　　public 　　{ Public declarations } 　　end; 　　type PSHNOTIFYSTRUCT=^SHNOTIFYSTRUCT; 　　SHNOTIFYSTRUCT = record 　　dwItem1 : PItemIDList; 　　dwItem2 : PItemIDList; 　　end; 　　Type PSHFileInfoByte=^SHFileInfoByte; 　　_SHFileInfoByte = record 　　hIcon :Integer; 　　iIcon :Integer; 　　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; 　　IDLSTRUCT =_IDLSTRUCT; 　　function SHNotify_Register(hWnd : Integer) : Bool; 　　function SHNotify_UnRegister:Bool; 　　function SHEventName(strPath1,strPath2:string;lParam:Integer):string; 　　Function SHChangeNotifyDeregister(hNotify:integer):integer;stdcall; 　　external 'Shell32.dll' index 4; 　　Function SHChangeNotifyRegister(hWnd,uFlags,dwEventID,uMSG,cItems:LongWord; 　　lpps

IDLSTRUCT):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 'SHGetFileInfoA'; 　　var 　　Form1: TForm1; 　　m_hSHNotify:Integer; 　　m_pidlDesktop : PItemIDList; 　　implementation 　　{＄R ＊.DFM} 　　function SHEventName(strPath1,strPath2:string;lParam:Integer):string; 　　var 　　sEvent:String; 　　begin 　　case lParam of //根据参数设置提示消息 　　SHCNE_RENAMEITEM: sEvent := '重命名文件'＋strPath1＋'为'＋strpath2; 　　SHCNE_CREATE: sEvent := '建立文件文件名：'＋strPath1; 　　SHCNE_DELETE: sEvent := '删除文件文件名：'＋strPath1; 　　SHCNE_MKDIR: sEvent := '新建目录目录名：'＋strPath1; 　　SHCNE_RMDIR: sEvent := '删除目录目录名：'＋strPath1; 　　SHCNE_MEDIAINSERTED: sEvent := strPath1＋'中插入可移动存储介质'; 　　SHCNE_MEDIAREMOVED: sEvent := strPath1＋'中移去可移动存储介质'＋strPath1＋' '＋strpath2; 　　SHCNE_DRIVEREMOVED: sEvent := '移去驱动器'＋strPath1; 　　SHCNE_DRIVEADD: sEvent := '添加驱动器'＋strPath1; 　　SHCNE_NETSHARE: sEvent := '改变目录'＋strPath1＋'的共享属性'; 　　SHCNE_ATTRIBUTES: sEvent := '改变文件目录属性文件名'＋strPath1; 　　SHCNE_UPDATEDIR: sEvent := '更新目录'＋strPath1; 　　SHCNE_UPDATEITEM: sEvent := '更新文件文件名：'＋strPath1; 　　SHCNE_SERVERDISCONNECT: sEvent := '断开与服务器的连接'＋strPath1＋' '＋strpath2; 　　SHCNE_UPDATEIMAGE: sEvent := 'SHCNE_UPDATEIMAGE'; 　　SHCNE_DRIVEADDGUI: sEvent := 'SHCNE_DRIVEADDGUI'; 　　SHCNE_RENAMEFOLDER: sEvent := '重命名文件夹'＋strPath1＋'为'＋strpath2; 　　SHCNE_FREESPACE: sEvent := '磁盘空间大小改变'; 　　SHCNE_ASSOCCHANGED: sEvent := '改变文件关联'; 　　else 　　sEvent:='未知操作'＋IntToStr(lParam); 　　end; 　　Result:=sEvent; 　　end; 　　function SHNotify_Register(hWnd : Integer) : Bool; 　　var 　　ps

IDLSTRUCT; 　　begin 　　{＄R－} 　　Result:=False; 　　If m_hSHNotify = 0 then begin 　　//获取桌面文件夹的Pidl 　　if SHGetSpecialFolderLocation(0, CSIDL_DESKTOP, 　　m_pidlDesktop)<> NOERROR then 　　Form1.close; 　　if Boolean(m_pidlDesktop) then begin 　　ps.bWatchSubFolders := 1; 　　ps.pidl := m_pidlDesktop; 　　// 利用SHChangeNotifyRegister函数注册系统消息处理 　　m_hSHNotify := SHChangeNotifyRegister(hWnd, (SHCNF_TYPE Or SHCNF_IDLIST), 　　(SHCNE_ALLEVENTS Or SHCNE_INTERRUPT), 　　WM_SHNOTIFY, 1, ps); 　　Result := Boolean(m_hSHNotify); 　　end 　　Else 　　// 如果出现错误就使用 CoTaskMemFree函数来释放句柄 　　CoTaskMemFree(m_pidlDesktop); 　　End; 　　{＄R＋} 　　end; 　　function SHNotify_UnRegister:Bool; 　　begin 　　Result:=False; 　　If Boolean(m_hSHNotify) Then 　　//取消系统消息监视，同时释放桌面的Pidl 　　If Boolean(SHChangeNotifyDeregister(m_hSHNotify)) Then begin 　　{＄R－} 　　m_hSHNotify := 0; 　　CoTaskMemFree(m_pidlDesktop); 　　Result := True; 　　{＄R－} 　　End; 　　end; 　　procedure TForm1.WMShellReg(var Message:TMessage); //系统消息处理函数 　　var 　　strPath1,strPath2:String; charPath:array[0..259]of char; 　　pidlItem

SHNOTIFYSTRUCT; 　　begin 　　pidlItem:=PSHNOTIFYSTRUCT(Message.wParam); 　　 //获得系统消息相关得路径 　　SHGetPathFromIDList(pidlItem.dwItem1,charPath); 　　strPath1:=charPath; 　　SHGetPathFromIDList(pidlItem.dwItem2,charPath); 　　strPath2:=charPath; 　　Memo1.Lines.Add(SHEvEntName(strPath1,strPath2,Message.lParam)＋chr(13)＋chr(10)); 　　end; 　　procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 　　begin 　　//在程序退出的同时删除监视 　　if Boolean(m_pidlDesktop) then 　　SHNotify_Unregister; 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); //Button1的Click消息 　　begin 　　m_hSHNotify:=0; 　　if SHNotify_Register(Form1.Handle) then begin //注册Shell监视 　　ShowMessage('Shell监视程序成功注册'); 　　Button1.Enabled := False; 　　end 　　else 　　ShowMessage('Shell监视程序注册失败'); 　　end; 　　procedure TForm1.FormCreate(Sender: TObject); 　　begin 　　Button1.Caption := '打开监视'; 　　end; 　　end. 　　运行程序，点击“打开监视”按钮，如果出现一个显示“Shell监视程序成功注册”的对话框，说明Form1已经加入到系统操作监视链中了，你可以试着在资源管理器中建立、删除文件夹，移动文件等操作，你可以发现这些操作都被记录下来并显示在文本框中。 　　在上面的程序中多次使用到了一个PItemIDList的结构，这个数据结构指定Windows下得一个“项目”，在Windows下资源实现统一管理一个“项目”可以是一个文件或者一个文件夹，也可以是一个打印机等资源。另外一些API函数也涉及到了Shell(Windows外壳)操作，各位读者可以参考相应的参考资料。 　　由于使用到了Windows的未公开函数，没有相关得参考资料，所以有一些未知得操作（在Memo1中会显示“未知操作”）。如果哪位读者有兴趣， http://member.netease.com/～blackcat 有实现该功能的VB程序下载。 　　以上程序在Windows98、Windows2000、Delphi5下运行通过。

redfox · 2002-09-24

第二种方法中 －－－－－－－－－－ 　　//获取桌面文件夹的Pidl 　　if SHGetSpecialFolderLocation(0, CSIDL_DESKTOP, 　　m_pidlDesktop)<> NOERROR then 　　Form1.close; 　　if Boolean(m_pidlDesktop) then begin 　　ps.bWatchSubFolders := 1;  ／／？？？ 　　ps.pidl := m_pidlDesktop; ／／？？？  －－－－－－－－－－－－－ 倒数后两句，我在运行时出现奇怪的问题， 第一次在 ps.bWatchSubFolders := 1;  处出现Access Violation 屏蔽后正常运行， 隔了几天再次运行，竟然在 ps.pidl := m_pidlDesktop;  处也出现Access Violation，不知什么变了， 我根据以上代码改写的类在这里竟然都不出错，晕。 有谁感兴趣，试试在你的机器上出不出错，我的环境是W2k＋D6

stuwei · 2002-09-27

stuwei · 2002-09-29

放分了，谢谢各位

有文件夹或文件被删除的消息是什么?怎么知道被删除文件的位置？(40分)

stuwei

Unregistered / Unconfirmed

rockjie

Unregistered / Unconfirmed

rockjie

Unregistered / Unconfirmed

tingjie

Unregistered / Unconfirmed

stuwei

Unregistered / Unconfirmed

stuwei

Unregistered / Unconfirmed

stuwei

Unregistered / Unconfirmed

薄荷

Unregistered / Unconfirmed

sinoliu

Unregistered / Unconfirmed

redfox

Unregistered / Unconfirmed

redfox

Unregistered / Unconfirmed

stuwei

Unregistered / Unconfirmed

stuwei

Unregistered / Unconfirmed

Similar threads