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

uses

ShellAPI

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

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

用 delphi 可以实现实时监控乱销丛文件。

比较简单的实现办法，是使用第三方控件，比如 TRxFolderMonitor、CnPack 组哗樱件斗纳包中的TCnFileSystemWatcher 等。

你需要先进旅裤行监视。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

---