🚀 go-pugleaf

Using RegisterWindowMessage /  WndProc(..)  / and 
SendMessage(HWND_BROADCAST,...) is one of the way sending "custom" message 
to one or multiple  applications. The following code and a better on at [1] 
show how to use these API functions. This approach seems work "fine" but 
SLOW!...

The following code sends 100 message to other applications in approxiatelly 
2.8 sec on a 2GHz notebook running WinXP.

Is there a "trick" to make it faster OR better way to send/receive messages 
among multiple applications?



const AnsiString PrivateMessageID = 
"{7395314D-3A02-4887-A60F-BD029D1FF009}";
int N =0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  PrivateMessage = RegisterWindowMessage(PrivateMessageID.c_str());
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WndProc(Messages::TMessage& Message)
{
  if (Message.Msg == PrivateMessage) {
     if (Message.WParam ==0){ // Display only the first message
        AnsiString S;
        S.sprintf("%d - WParam: %.05d LParam: %.05d at %s",
                  N, Message.WParam,
                  Message.LParam, AnsiString(Now()).c_str()
        );
        Memo1->Lines->Add(S);
     }
     N++;
  }
  TForm::WndProc(Message);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TDateTime T0, T1;
  T0 = Now();
  for (int i=0; i<100; i++)
    SendMessage(HWND_BROADCAST,PrivateMessage,i,i*10);
  T1 = Now();
  AnsiString S;
  DateTimeToString(S, "ss:zzz",T1-T0);
  Caption =  S;  // <--- It display around 02.804 sec on 2GHz notebook PC
}





[1] "Sending and receiving custom messages" by Hens Zimmerman URL: 
http://cc.borland.com/ccWeb.exe/listing?id=15251