[delphi编程]如何实现监视指定文件夹的文件 *** 作

uses

ShellAPI

ShellExecute(Handle,'open','Explorer.exe','C:\Windows',nil,1)

这样可以打开C:\蔽樱枝Windows，如果需要其它目录的话，可以自宏敏己设置一下就行颂雹了。

delphi 的samples 不是 用 TShellChangeNotifier

控件 吗

object ShellChangeNotifier1: TShellChangeNotifier

NotifyFilters = [nfFileNameChange, nfDirNameChange, nfAttributeChange, nfSizeChange, nfWriteChange, nfSecurityChange]

Root = 'C:\'

WatchSubTree = True

Left = 224

Top = 216

end

你需要先进旅裤行监视。SHNotify_Register(self.Handle)//注册Shell监哪唯视李镇培

procedure TForm1.WMShellReg(var Message: TMessage)

var

strPath1, strPath2: string

charPath: array[0..259] of char

pidlItem: PSHNOTIFYSTRUCT

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

---