Einzelnen Beitrag anzeigen

Benutzerbild von Corpsman
Corpsman

Registriert seit: 8. Nov 2005
Ort: nähe Stuttgart
981 Beiträge
 
Delphi XE2 Professional
 
#1

Windows Nachrichten Korreckt versenden.

  Alt 26. Jan 2009, 09:18
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.
Angehängte Dateien
Dateityp: rar onestart_653.rar (130,5 KB, 5x aufgerufen)
Uwe
My Sitewww.Corpsman.de

My marble madness clone Balanced ( ca. 70,0 mb ) aktuell ver 2.01
  Mit Zitat antworten Zitat