截获消息我不会。实在不行用timer。[：D]
procedure TForm1.Button1Click(Sender: TObject);
var
Handle1,Handle2:THandle;
Buf: array[0..1024] of Char;
begin
Handle1:=FindWindow(nil,'信使服务 ');//注意，后面有一个空格
Handle2:=FindWindowEX(Handle1,0,'static',nil);
SendMessage(Handle2, WM_GETTEXT, 1024, Integer(@Buf));
Memo1.Text:=buf;
Sendmessage(handle1,WM_Close,0,0);//关掉弹出窗口
end;
