N
notnoname
Unregistered / Unconfirmed
GUEST, unregistred user!
Form1中的代码:<br>...<br>const NEW_IE = WM_APP+$0001;<br><br>type<br> TIeCreMessage=record<br> Msg:Cardinal;<br> wParamWORD;<br> lParamWORD;<br> Result:Longint;<br> end;<br>type<br> TForm1 = class(TForm)<br>...<br> protected<br> procedure CreateIeOle(var Msg:TIeCreMessage); message NEW_IE;<br> end;<br>...<br>procedure TForm1.CreateIeOle(var Msg:TIeCreMessage);<br>begin<br> if Msg.Msg = NEW_IE then<br> ShowMessage('Find new ie')<br> else<br> inherited;<br>end;<br>...<br>----------------------------------<br>DLL中的代码<br>...<br>const NEW_IE=WM_APP+$0001;<br>...<br> SendMessage(MainFormHandle,Cardinal(NEW_IE),0,0);//程序运行无任何结果<br>...<br>请大侠帮忙!!<br>