L
lanny
Unregistered / Unconfirmed
GUEST, unregistred user!
通过局域网其它机器用 net send 发来的消息，会在机器上弹出一个 信使服务 的对话框，我想截获这个窗口的消息并把它显示在一个 MEMO 中记录下来，如何做？
运行环境 Win2K.
Thank all.[
]
运行环境 Win2K.
Thank all.[
]
C
CJF
Unregistered / Unconfirmed
GUEST, unregistred user!
可以的。。。
Windows里面的一个什么程序就可以。。分析一下用了什么API吧。。
Windows里面的一个什么程序就可以。。分析一下用了什么API吧。。
L
lanny
Unregistered / Unconfirmed
GUEST, unregistred user!
To bubble
你的方法是可以，可是会有消息窗口弹出，我的目的是不要这个窗口出来。
问题再放两天，两天后分赃。[]
你的方法是可以，可是会有消息窗口弹出，我的目的是不要这个窗口出来。
问题再放两天，两天后分赃。[
]
B
bubble
Unregistered / Unconfirmed
GUEST, unregistred user!
截获消息我不会。实在不行用timer。[：D]
procedure TForm1.Button1Click(Sender: TObject);
var
Handle:THandle;
Buf: array[0..1024] of Char;
begin
Handle:=FindWindow(nil,'信使服务 ');//注意，后面有一个空格
Handle:=FindWindowEX(Handle,0,'static',nil);
SendMessage(Handle, WM_GETTEXT, 1024, Integer(@Buf));
Memo1.Text:=buf;
end;
我试验成功
procedure TForm1.Button1Click(Sender: TObject);
var
Handle:THandle;
Buf: array[0..1024] of Char;
begin
Handle:=FindWindow(nil,'信使服务 ');//注意，后面有一个空格
Handle:=FindWindowEX(Handle,0,'static',nil);
SendMessage(Handle, WM_GETTEXT, 1024, Integer(@Buf));
Memo1.Text:=buf;
end;
我试验成功
L
lanny
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
