WINDOWS MESSAGES zwischen zwei .net Anwendungen schicken

[Digielm]

Hallo Leute,

ich habe eine Frage. Ich hab hier einen Source gefunden um mit Delphi 5 Windowsmessages zwischen zwei Anwendungen hin und Her zu schicken. Ich wollte das auf .net protieren klappt aber leider nicht :-(

Hat da jemand ne info oder eine Idee wie ich das unter .net trotzdem lösen kann.

Source im Projekt

Delphi-Quellcode:

const
  cMutexID        = 'E-Mailsystem';

var
  Mutex           : THandle;
  HAPPLICATION    : HWND;
  HMAINFORM       : HWND;
  StartParams     : String;
  CountParams     : Integer;
  AtomSend        : Integer;
begin
  dwMessage := RegisterWindowMessage('{93C5B2B7-CE8D-856B-857B-4CC76F35C091}');
  Mutex := CreateMutex(nil, True, cMutexID);
  if (Mutex <> 0) and (GetLastError = 0) then
  begin
    Application.Initialize;
    application.title := 'con.fee E-Mailsystem';
    Create_coParams;
    Application.CreateForm(TfrmcoDMC, frmcoDMC);
    Application.CreateForm(Tfrmsendmail, frmsendmail);
    application.showmainform := false;
  if not application.Terminated then
    Application.Run;
    if (Mutex <> 0) then CloseHandle(Mutex);
  end else
  begin
    HAPPLICATION := 0;
    HMAINFORM := 0;
    Application.Initialize;
    repeat
      HAPPLICATION := FindWindowEx(0,HAPPLICATION, 'TApplication', PChar('Testanwendnung'));
    until HAPPLICATION <> Application.Handle;
    if HAPPLICATION <> 0 then
    begin
      Windows.ShowWindow(HAPPLICATION, SW_Normal);
      Windows.BringWindowToTop(HAPPLICATION);
      Windows.SetForegroundWindow(HAPPLICATION);
      HMAINFORM := FindWindowEx(0,0,'Tfrmmain', nil);
      if (HMAINFORM <> 0) then
      begin
        StartParams := ';';
        for CountParams := 1 to ParamCount do
          StartParams := StartParams + ';' + ParamStr(CountParams);
        try
          AtomSend := GlobalAddAtom(PChar(StartParams));
        finally
          GlobalDeleteAtom(AtomSend);
        end;
      end;
    end;
    Halt;
  end;
end.

Source im Hauptprogramm um die MSG zu verarbeiten

Delphi-Quellcode:

procedure Tfrmsendmail.WndProc(var msg : TMessage);
var
  pFileName : PChar;
  dwLen     : DWORD;
  SL : TStringlist;
begin
  if msg.Msg=dwMessage then // Wenn die erhaltene Message wirklich die Message mit dem Parameter ist...
  begin
    dwLen     := MAX_PATH+1;
    pFileName := StrAlloc(dwLen); // Speicher anfordern
    try
      GlobalGetAtomName(msg.lParam,pFileName,dwLen); // Parameter holen

      if pFilename = 'send' then
      begin
      end;
      if pos('kontochange',pFilename) > 0  then
      begin
      end;

      GlobalDeleteAtom(msg.lParam); // Parameter aus der Atomliste löschen
    finally
      StrDispose(pFileName); // Speicher wieder freigeben
    end;
  end
  else inherited WndProc(msg); // Andere Nachrichten darf jemand anderes verarbeiten
end;

Ach ja .net kennt dein DWORD ?? oder application.handle ?

Also ich hab auf jedenfall ein Problem den Source sauber in .net zu portieren.

Danke für eure Hilfe