Windows Nachrichten Korreckt versenden.

[Corpsman]

Guten Morgen,

Ich habe mir ein Programm gebastelt welches nicht mehrfachgestartet werden soll.

Dazu nutze ich einen Mutex.

Wenn ich nun mein Programm zum 2. mal starte, soll das erkannt werden ( das klappt auch) die 2. Instanz soll aber bevor sie Abbricht noch schnell eine nachricht an die 1. schicken ( nämlich den Parameter den sie hatte ) und sich dann beenden.

Ich habe es nun geschafft das die Nachricht versendet wird. Blöderweise empfängt das sendende Programm die Nachricht selbst wieder. Ich habe also ein Programm geschrieben das sich selbst eine Nachricht sendet, anstatt der 2. Instanz.

Das Senden Geschieht mittels

Delphi-Quellcode:

    SendMessage(FindWindow('TForm1', Nil), WM_COPYDATA, Longint(Handle),
      Longint(@aCopyData));

einem Codestück hier aus der DP.

Ich denke das es an FindWindow liegt, da dieses zuerst die eigene Instanz findet, weis nun jemand wie ich die andere finden kann ?

Im anhang das Komplette Project.

[Klaus01]

Guten Morgen,

vielleicht schaust Du dir mal die Komponente OneInstance an.
Die übergibt die Parameter.

Grüße
Klaus

[sirius]

Vielleicht solltest du dann kein Mutex nehmen sondern ein MMF.
Denn da kann deine erste Instanz sein Handle reinschreiben, und die zweite braucht dieses nur auslesen. Da sparst du dir das ganze Findwindow (bzw. hier müsstest du mit enumwindows arbeiten).

Edit: (Rechtschreibkorrektur) Das "x" wollte heut' früh noch nicht.

[himitsu]

und FindWindow('TForm1', Nil) macht sich bei sowas auch nicht unbedingt gut ... weißt du wieviele Programmfenster zufällig auch noch TForm1 heißen?

[Corpsman]

@himitsu

das ist nur Ein Sample, klar das im eigentlichen Programm das nicht TForm1 heist


@sirius

MMF ? Kenn ich nicht , aber laut Suchfunktion gibts das, also werde ich mal schaun was ich damit so anstellen kann

@Klaus01

Anscheinend gehen beide Varianten nicht bei mir Oninst stürzt komplett ab und TOneInstance


gibt immer

Delphi-Quellcode:

constructor TOneInstance.Create(AOwner: TComponent);
begin
  inherited;
  FAutoBringToFront:= True;
  FEnabled:= True;
  if not (csDesigning in ComponentState) then
  begin
    WM_COMMUNICATE:= RegisterWindowMessage(PChar(GUID));
    FOwner:= AOwner as TWinControl;
    FOldWndProc:= FOwner.WindowProc; //<-- Hier
    FOwner.WindowProc:= NewWndProc;
  end;
end;

eine AV

[Klaus01]

.. also OneInstance habe ich bisher noch nicht
zur Laufzeit erzeugt. Das kann man als visuelle Komponente installieren
und anschließend auf die Form packen.

Manuell erstellen muß man nur noch, was mit den Parametern passieren soll
(bzw. wie sie verarbeitet werden sollen)
die Appl_1 von Appl_2 bekommt.

Grüße
Klaus

[Corpsman]

So ich habe noch ein wenig an der urpsrünglichen Variante rumgedocktert

mittels

Delphi-Quellcode:

    SendMessage(HWND_BROADCAST, WM_COPYDATA, Longint(Handle),
      Longint(@aCopyData));

wie das dieses
OneInstance auch versenden würde, wenns denn Täte

gehts, nur das die 2. Instanz sich leider nicht beendet, nach dem Senden.

Egal ob ich halt; oder Application.terminate mache

Delphi-Quellcode:

Procedure TForm1.FormCreate(Sender: TObject);
Var
  aCopyData: TCopyDataStruct;
  p: PChar;
Begin
  If NeedToSend Then Begin
    p := pchar(Paramstr(1));
    With aCopyData Do Begin
      dwData := 0;
      cbData := StrLen(p) + 1;
      lpData := p;
    End;
    SendMessage(HWND_BROADCAST, WM_COPYDATA, Longint(Handle),
      Longint(@aCopyData));
    // Halt;
    Application.Terminate;
  End;

[DeddyH]

Und mit SendMessageTimeout?

[Corpsman]

also ich habe Sendmesage nun durch

    SendMessageTimeout(HWND_BROADCAST, WM_COPYDATA, Longint(Handle), Longint(@aCopyData), SMTO_NORMAL, 1000, dummy); ersetzt, und nun gehts wunderbar.


Komisch ist nur, das jedesmal wenn diese Nachricht gesendet wird mein Firefox geöffnet wird und immer die selben 2 URL's geöffnet werden => diese Nachricht scheint nicht nur bei meiner 1. Instanz an zu kommen sondern auch wo anders . ..

[Luckie]

Zitat von Corpsman:

Komisch ist nur, das jedesmal wenn diese Nachricht gesendet wird mein Firefox geöffnet wird und immer die selben 2 URL's geöffnet werden => diese Nachricht scheint nicht nur bei meiner 1. Instanz an zu kommen sondern auch wo anders . ..

Nicht komisch, sondern logisch und das ohne viel nachzudenken. Rat mal für was HWND_BROADCAST stehen könnte? Und jetzt überleg mal, ob die Nachricht nur an dein oder auch an andere fenster geschickt wird.