SendMessage

Hej,

Er der nogen der kan sige mig hvordan jeg kan sende en besked fra et af mine programmer til et andet af mine programmer kodet i borland delphi 7.

Jeg har fået sendmessage til at fungere, og jeg modtager også beskeden i det andet program. Men min udfordring er at jeg ønsker at kunne fange beskeden lige meget hvor jeg står i mit program.??

Hvordan kan dette laves? et eller andet med en global handler som på en eller anden måde kan informere mig om at en besked er modtaget fra mit andet program.

Seancen er den at mit hovedprogram skal starte et andet program der afvikler en stored procedure, og når det er færdigt skal det informere hovedprogrammet om at jobbet er færdigt kørt.

På denne måde slipper mit hovedprogram fra at vente på jobbet. og ja dette kan sikkert løses med threads i mit hovedprogram, men det gider/tør jeg ikke rigtig i gang med:-(


noget kode:
*** sender ***
procedure TfrmMsg.btmSendMsgClick(Sender: TObject);
var
stringToSend : string;
copyDataStruct : TCopyDataStruct;
begin
stringToSend := 'About Delphi Programming';

stringToSend:=Memo1.Text;
copyDataStruct.dwData := 0; //use it to identify the message contents
copyDataStruct.cbData := 1 + Length(stringToSend) ;
copyDataStruct.lpData := PChar(stringToSend) ;

SendData(copyDataStruct) ;
end;

procedure TfrmMsg.SendData(const copyDataStruct: TCopyDataStruct) ;
var
  receiverHandle : THandle;
  res : integer;
  pres : Boolean;
begin
  receiverHandle := FindWindow(PChar('TnewReceive'),PChar('Receive')) ;
  if receiverHandle = 0 then
  begin
    ShowMessage('CopyData Receiver NOT found!') ;
    Exit;
  end;

  res := SendMessage(receiverHandle, WM_COPYDATA, Integer(Handle), Integer(@copyDataStruct)) ;
end;

*** sender ***

*** modtager ***
  procedure WMCopyData(var Msg : TWMCopyData) ; message WM_COPYDATA;

procedure TnewReceive.WMCopyData(var Msg: TWMCopyData) ;
var
s : string;
begin
  s := PChar(Msg.CopyDataStruct.lpData) ;
  Memo1.Lines.Insert(0,s);
end;
*** modtager ***

i ovenstående modtager program, har jeg implementeret WMCopyData i form newReceive, men hvordan kan jeg fange besked lige meget i hvilken form jeg står i, og slippe for at implementere modtager proceduren i alle forme ?

Håber problemet er forståeligt:..

vh
greenland