测试例子：
project1：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageBox(handle,'错误异常','错误',MB_ICONERROR or MB_OK);
end;
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
project2：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
procedure TForm1.Button1Click(Sender: TObject);
var
hTitle: HWND;
hTitle1: HWND;
hTitle2: HWND;
pText: array[0..254] of Char;
begin
hTitle := FindWindow(nil, '错误');
if hTitle <> 0 then
begin
hTitle1:= findwindowex(hTitle,0,'Static',nil);
SendMessage(hTitle1, WM_GETTEXT, 256, LPARAM(@pText));
while pText = '' do
begin
hTitle2:= GetNextWindow(hTitle1,GW_HWNDNEXT);
SendMessage(hTitle2, WM_GETTEXT, 256, LPARAM(@pText));
end;
edit1.Text:= pText;
end;
end;
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
代码离完善还差的很远，只是写出简单的思路。
1、先通过title找到消息框的handle，FindWindow。
2、通过FindWindowEx找类名为Static的句柄，然后发消息获得text。
