Doppelstart einer Anwendung

[Hador]

Das war auf jeden Fall schonmal ein Fehler.
So bekomme ich ein Handle.

Allerdings funktioniert es dennoch nicht.


Das mit dem kopieren/umbenennen ist übrigends, bei meiner Anwendung, egal.

[Christian Seehase]

Moin Lars,

das das Übertragen des Wertes nicht funktioniert, durfte wohl daran liegen, dass Du bei der Funktion CopyData das Handle des Mutex übergibst, nicht das des Hauptfensters der Anwendung, und ich vermute mal stark, dass an dieses Handle die Daten mit WM_COPYDATA geschickt werden sollen.

Als String im Mutex würde ich prinzipiell etwas eindeutiges nehmen, z.B., eine GUID (STRG+SHIFT+G in der IDE um eine zu erzeugen)
Man kann durchaus von der gleichen Stelle im Dateisystem ein Programm starten, ohne dass der Pfad gleich ist (Stichwort: SUBST)

[Sunlight7]

Das mit dem Pfad ist ohnehin nicht möglich, aber meine Rede, eindeutiger Name.

@Hador: Wenns weiter nicht klappt, dann zeig' mal mehr Code, damit wir hier nicht herumraten müssen. :wink:

[Christian Seehase]

Moin Sunlight,

Zitat:

Zitat von Sunlight7

Das mir dem Pfad ist ohnehin nicht möglich,

Warum?
Da die Länge des Strings bei CreateMutex MAX_PATH ist wäre das möglich.

[Sunlight7]

Moin Christian,

weil wie ich es vorhin zitiert habe, es darf kein '\' in dem Namen sein, das war der Fehler, warum das Handle immer 0 war. :wink:

[Hador]

Es ging mir eigentlich nur darum, dass sich die zweite Instanz des Programmes nicht schließt.

Kurz könnte man den Code daher auch so darstellen:

Delphi-Quellcode:

  mHandle := CreateMutex(nil, True, '{E46EF2D5-34C6-4FC1-A3BA-E9A49C0327B0}');
  if GetLastError = ERROR_ALREADY_EXISTS then
    Exit;

Und komischerweise hab ich grad bemerkt, dass er so auch funktioniert.
So aber nicht:

Delphi-Quellcode:

  mHandle := CreateMutex(nil, True, '{E46EF2D5-34C6-4FC1-A3BA-E9A49C0327B0}');
  ShowMessage(IntToStr(mHandle));
  if GetLastError = ERROR_ALREADY_EXISTS then
    Exit;

Ist zwar jetzt für mein Problem unerheblich (Das Showmessage kann da ja weg) aber es würde mich doch interessieren, warum es so nicht funktioniert. Schreibt ShowMessage was in LastError rein?

EDIT:
Auf jeden Fall schonmal danke für eure Antworten.

[SirThornberry]

ich tippe ShowMessage schreibt den Lasterror (kann sein das es nur ein success ist).

[Sunlight7]

Jupp, U.a. 1411 :roll:

Das nervt mich immer :roll:

Mach doch so:

Delphi-Quellcode:

mHandle := CreateMutex(nil, True, '{E46EF2D5-34C6-4FC1-A3BA-E9A49C0327B0}');
  SavedError:=GetLastError;  
  ShowMessage(IntToStr(mHandle));
  if SavedError = ERROR_ALREADY_EXISTS then
    Exit;

[Andidreas]

die lösung in dem thread könnte für dich vielleicht auch interessant sein...

:) KLICK MICH :)

[Sunlight7]

Okay, nachdem ich drauf geklickt habe, weiß ich, das Du nicht mich meinst :mrgreen:

Aber so was ähnliches wie in dem anderen Thread ist auch meine Methode :???: