一个关于 Windows Message 的问题 from 3h(300分)

3h · 1999-09-24

以下问题要求您必须用过WINDOWS的资源管理器：：） 在复制、删除、搬移、更名某个磁碟目录内的各项文件时，也称得上是异动吧。 系统应该是会发送给应用程序一个MESSAGE的（我想理论上应该是这样）， 那么这个MESSAGE是什么？应该如何处理？最好来一段程序说明一下。 分数不多就给300吧。：）

cAkk · 1999-09-24

to 3h: 怎么证明"应该是会发送给应用程序一个MESSAGE的"呢?

小天 · 1999-09-24

inherited WMDPROC(message);

3h · 1999-09-24

to cakk:   证明如下（实例法）： 1、用MESSAGE的办法是WINDOWS的宗旨，资源管理器是WINDOWS的总控中心理所当然也不可避免使用这种方法。 2、假如打开资源管理器，定位在某一目录如“我的文档”，开另一窗口进DOS方式或其它， 此时资源管理器在后台仍可见。删除“我的文档”中一些文件如*.*，易见资源管理器中相应的文件已不见了。 由此可见乃是系统监视系统发出MESSAGE给全部应用程序，资源管理器收到了。 证毕。 to 小天：   有用法吗？有的话300分就归您了

小天 · 1999-09-24

其实我也并不知道你想怎么用，下面只是我遇到的一种情况：判断用户对我的程序执行了什么操作 const cm_about=WM_USER+102; const cm_exit=WM_USER+103; const cm_GetSendMessage=WM_USER+104; const cm_DisConnect=WM_USER+105; CONST cm_StartGAME=WM_USER+106; procedure TForm1.WndProc(var Message:Tmessage); var s:string; begin     if(Message.WParam=cm_exit) then             showmessage('退出程序');     else if Message.wparam=cm_GetSendMessage then             showmessage('打开程序');     else if Message.WParam =cm_startgame then          begin           s:='c:/game/game.exe';           shellexecute(0,nil,pchar(s),nil,nil,sw_shownormal);            {运行程序}          end     else if Message.wparam=SC_MINIMIZE then            showmessage('最小化');     inherited WndProc(Message); end;

CJ · 1999-09-24

hhe 应该可以监视磁盘文件变化的，未必是消息呀？ 记得有许多监视磁盘文件变化的构件，我现在没空，你用WINSIGHT查查看吧

3h · 1999-09-25

这种控件我的确有一个不过没源码没办法知道它的解决方案。 小天您的例程应该没什么用处，我是指文件变化的通知。就象光盘插入的通知一样道理。 请哥们再讨论讨论。

Another_eYes · 1999-09-25

用FindFirstChangeNotification建立一个object handle, 然后用个线程waitfor... 一旦文件系统发生变化则马上可以得知. 相关函数: FindNextChangeNotification, FindCloseChangeNotification

CJ · 1999-09-25

小3呀，CD 和那个不一样的吧。 除了eYes的方法，搞个file hook吧，呵呵，别问我怎么搞，没玩过。

CJ · 1999-09-25

另外，随便问，资源管理器是否有许多COM西西的东西呀？

wrench · 1999-09-27

我在一本书里面见过具体的实现,书名好象叫<<Windows 95 API 编程指南>> 电子工业出版社出的 待我回去查一查

o*o · 1999-09-27

控件WAITTHREAD.PAS，很好用。 发给3h了。

o*o · 1999-09-27

就是eYes说的方法。

cytown · 1999-09-27

o*o, pls mail cytown@990.net a copy 2

o*o · 1999-09-27

to cytown: sent out;

蓝天 · 1999-09-27

顺便问一下,用右键点击资源管理器光驱图标,弹出一个快捷菜单, 其中有一个"弹出" 菜单项,一点,光盘就乖乖地出来了,这是怎么 实现的 ?

CJ · 1999-09-27

sendmcimessage

3h · 1999-09-28

文件收到了，等我找个时间试试。 这些天实在忙不开，好不容易有一个上网的时间不用干活。：） 试通就给钱，不过没例程可不大好办，能介绍一下用法吗？

o*o · 1999-09-28

在FORM上放一个FileListBox和一个FileSysMonitor. procedure TForm1.FormCreate(Sender: TObject); begin   FileSysMonitor1.Active:=True;   FileSysMonitor1.MonitoredDirectory:='c:/my documents';   FileSysMonitor1.NotifyFilter:=[FILE_NAME,DIR_NAME,ATTRIBUTES,SIZE,LAST_WRITE];   FileListBox1.Directory:='c:/my documents'; end; procedure TForm1.FileSysMonitor1FileSysChange(Sender: TObject;   Directory: String); begin   FileListBox1.Update; end; 你在资源管理器的c:/my documents目录中delete一个文件， 就可以看到效果了。

cAkk · 1999-09-28

to o*o: 这么管用? 能不能发给我一个? cakk2000@163.net

一个关于 Windows Message 的问题 from 3h(300分)

3h

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

小天

Unregistered / Unconfirmed

3h

Unregistered / Unconfirmed

小天

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

3h

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

wrench

Unregistered / Unconfirmed

o*o

Unregistered / Unconfirmed

o*o

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

o*o

Unregistered / Unconfirmed

蓝天

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

3h

Unregistered / Unconfirmed

o*o

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

Similar threads