在一个EXE文件点击某事件,在别一个EXE及时得到响应?
第一次应用消息处理,我在网上查了半天,还是没办法解决,
高分请求高手们给出发送消息和接收消息的原代码!先多谢了!

解决方案 »

  1.   

    发送方
      var Hnd : THandle;
          aStr : PChar;
    begin
      aData.dwData := 123;
      aData.cbData := 256;
      GetMem(aData.lpData,256);
      aStr := '测试';
      StrLCopy(PChar(aData.lpData),aStr,256);
      Hnd := FindWindow(PChar('TfrmReceive'),nil);
      if Hnd <> 0 then
      SendMessage(Hnd,WM_COPYDATA,0,Integer(@aData)) ;
      FreeMem(aData.lpData,256);
    end;接收方
      procedure WMCopyData(var Msg : TWMCopyData);message WM_COPYDATA;procedure WMCopyData(var Msg : TWMCopyData);
    begin
      ShowMessage(PChar(Msg.CopyDataStruct.lpData));
    end;你可以利用dwData当作是发送或接收方的一些约定
      

  2.   

    sendmessage  postmessage  等API就可以搞定
      

  3.   

    Interprocess Communications
    http://msdn.microsoft.com/en-us/library/aa365574(VS.85).aspx