请问：怎样才能监测到文件是否被修改？(50分)

sw · 2001-09-19

大家都知道，几乎每个编辑器都有这样的功能，比如：用Word打开一个文件，再用另一个编辑器 也打开刚才那个文件，改动并存盘，切换回Word，这时，会弹出一个对话框，说这个文件已经被 修改，问你是否重新装入？ 请问，在程序中接收什么消息才能监测到文件是否被修改？谢谢！

baibaichen · 2001-09-19

去 http://www.delphipages.com/result.cfm?ID=1829 下载这个组件包 这个组件包中有一个组件叫：TabfFolderMonitor可能可以实现你的功能。 不过，我没用过，我估计就是几个Windows函数，但是我没有研究过。 希望能帮上你

sw · 2001-09-19

我估计就是拦截了系统的什么消息，会者不难，快来人啊！

CJF · 2001-09-19

在RxLib和Delphi6中都有这样的控件，你自己看看就知道了。

zwk6608 · 2001-09-19

查看文件最后修改时间

sw · 2001-09-19

to zwk6608:    这是什么方法，不与考虑，不过还是谢谢！    可以肯定的是一定是拦截了什么消息！！

antic_ant · 2001-09-19

获得此文件的信息 function IsFileInUse(fName : string) : boolean; var    HFileRes : HFILE; begin    Result := false;    if not FileExists(fName) then       exit;    HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WRITE,                0 {this is the trick!}, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);    Result := (HFileRes = INVALID_HANDLE_VALUE);    if not Result then    CloseHandle(HFileRes); end;

人在边缘 · 2001-09-19

一点个人想法： 首先通过获取WM_ACTIVATEAPP消息，程序可以判断哪个窗口是激活的，哪个是非激活的； 这样非激活窗体可以通过通知消息(Notification message)，拦截EN_CHANGE消息得以判 断被激活窗体的编辑框中的文本是否已更新。然后通过拦截WM_SYSCOMMAND消息获知窗体 的切换，由此完成所有信息传递过程。

xiangya · 2001-09-20

楼上有误，但是是一种方法。 这个的主题就是关于文件通知的处理。API中有比较详细的解释，看就完了。去吧。

Jhdandcl · 2001-09-20

我也有一个想法：前提条件是：用于打开文件的Application是你写的. 1.Application 打开一个文件后做个标记.eg : ModiFlg :=False 2.一旦在运行过程中有任何改变文件的行为,都去改变: ModiFlg := true 3.Application 结束时检查ModiFlg,作出回应.

sw · 2002-01-11

接受答案了.

请问：怎样才能监测到文件是否被修改？(50分)

sw

Unregistered / Unconfirmed

baibaichen

Unregistered / Unconfirmed

sw

Unregistered / Unconfirmed

CJF

Unregistered / Unconfirmed

zwk6608

Unregistered / Unconfirmed

sw

Unregistered / Unconfirmed

antic_ant

Unregistered / Unconfirmed

人在边缘

Unregistered / Unconfirmed

xiangya

Unregistered / Unconfirmed

Jhdandcl

Unregistered / Unconfirmed

sw

Unregistered / Unconfirmed

Similar threads