Mutex und Parameterweitergabe

[Flare]

Ich weiß zwar jetzt nicht, was du mit Sender meinst, aber so sieht der Empfang und die Verarbeitung aus (unit haupt):

Delphi-Quellcode:

procedure TForm1.WndProc(var msg : TMessage);
var
  pFileName : PChar;
  dwLen     : DWORD;
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

      Files.Add(pFileName); // Parameter verarbeiten

      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;

Flare