Single Instanz mit Extras, hier findet man ein Beispiel

[KodeZwerg]

Hallo Community!

Falls ihr auch schon mal auf der Suche nach einer Möglichkeit wart Eure Applikation in eine Single Instanz Anwendung zu verwandeln, ich habe auf StackOverflow ein gutes ( für mich jedenfalls ) Beispiel gefunden und daraus eine kleine Demonstration plus ( englische ) mini Erklärung was was macht rangehangen.

Die Fakten:
Es wird nicht der übliche Mutex Weg eingeschlagen sondern ein globales ClassName Unikat verwendet ( FindWindow() )
Es wird WM_COPYDATA für die Übertragung neuer Parameter benutzt
Es besteht die Möglichkeit ein Notify Icon zu erzeugen
Eine kleines Demo PopUp menu ist vorhanden


Ich hoffe irgendwer kann es mal brauchen, für Vorschläge wie man es sonst noch machen könnte bin ich wie so oft sehr offen und dankbar!

Im Archiv befindet sich ein Delphi 5 Kompilat zum rumspielen und der Sourcecode.
Es sollte meines Erachtens auch mit Rio klappen wenn man den Namespace addiert, aber ob es da Wiederum einfachere Wege gibt dies alles zu realisieren, das kann ich an dieser Stelle nicht sagen, bitte an Fachmann/Frau wenden.


Viel Spaß damit wünscht Euch

KodeZwerg.

[dummzeuch]

Der "alten" DP fehlt eindeutig die "Danke"-Funktion der "neuen". Aber das soll ja noch kommen.

Also: Danke!

[KodeZwerg]

Zitat von dummzeuch:

Der "alten" DP fehlt eindeutig die "Danke"-Funktion der "neuen". Aber das soll ja noch kommen.

Also: Danke!

Kannst mir ja auf der dp[E] danken lol
...ist eh nicht auf meinem Mist gewachsen, habs nur von StäckÖverflöw.

Ich musste den obigen Download entfernen, mir ist da doch etwas aufgefallen was so noch nicht ganz rund war.
Nun flutscht alles nach besten Wissen und Gewissen.

Was ist anders?
Nun ist die Möglichkeit das alte Fenster wieder herzustellen in den Hauptsource integriert worden.
Gleichzeitig wird demonstriert wie man seine eigenen Parameter setzen und auswerten kann gezeigt.

Warum?
Weil es in der .DPR zu fehlern kam.

Fehler welcher Art?
Hat man App gestartet und als Notification Icon abgelegt, so wurde es zwar wieder hergestellt aber es fehlte ein Taskbar Eintrag.
Sprich, es machte eine weitere arbeit mit dem Icon fast unmöglich.

Originale Source teile sind noch vorhanden aber halt demarkiert.



Viel Spaß damit,

KodeZwerg.

[EWeiss]

Zitat von dummzeuch:

Der "alten" DP fehlt eindeutig die "Danke"-Funktion der "neuen". Aber das soll ja noch kommen.

Also: Danke!

Nun ja..
Wenn man so etwas Automatisiert dann kommt es nicht von Herzen.
Die 5 Buchstaben sollte man doch wohl noch eintippen können.

gruss

[DieDolly]

So eine ähnliche Funktionalität benutze ich schon seit Jahre. Mit einem Unterschied. Ich frage schon in der DPR ab, ob alle Parameter gültig sind, damit nicht irgendetwas Komisches an die laufende Instanz weitergegeben wird.

[KodeZwerg]

Zitat von DieDolly:

So eine ähnliche Funktionalität benutze ich schon seit Jahre. Mit einem Unterschied. Ich frage schon in der DPR ab, ob alle Parameter gültig sind, damit nicht irgendetwas Komisches an die laufende Instanz weitergegeben wird.

Ich weiß gerade nicht was genau Du damit sagen willst, wenn Du meinst das Du das Fenster wiederherstellen dingens in .DPR handhabst, bitte zeige mir wie ich den Source ändern müsste damit er genau so funktioniert wie er jetzt im Moment funktioniert.
Ich habe es nicht zufriedenstellend hinbekommen. Ein "ShowWindow()" ist nicht das selbe wie ein "Visible :="
User-Parameter sollen ja Wurst sein, das geht meinem Beispiel nichts an, die werden einfach nur an die Memo weitergeleitet.
Beispiel: Ein Programm das als Parameter einen Pfad+Namen benötigt

Interne switches kann man ja gestalten wie man möchte, okay, da fehlt eventuell noch ne Prüfung ob "-visible" mehr als einmal als Parameter vorkommt, aber das kann sich ja jeder so hinbiegen wie er es im Moment benötigt.

Man kann sich die Parameter auch in eine Dynamische Liste speichern und verwerten, da gibt es viele Möglichkeiten.
Die Demo dient nur als Beispiel / Grundgerüst.



Herzliche Grüße,

KodeZwerg.

[DieDolly]

Nicht ganz.

Delphi-Quellcode:

if Window=0 then begin
    Application.Initialize;
    Application.MainFormOnTaskbar := True;
    Application.CreateForm(TMainForm, MainForm);
    Application.Run;
  end else begin
 //////////////////////////////////////////////////////////////////////////
    FillChar(CopyDataStruct, Sizeof(CopyDataStruct), 0);
    for i := 1 to ParamCount do begin
      Arg := ParamStr(i);
      CopyDataStruct.cbData := (Length(Arg)+1)*SizeOf(Char);
      CopyDataStruct.lpData := PChar(Arg);
      SendMessage(Window, WM_COPYDATA, 0, NativeInt(@CopyDataStruct));
    end;
    SetForegroundWindow(Window);
  end;

Da wo die Kommentarzeile ist. Dort prüfe ich alle übergebenen Parameter auf Gültigkeit.
Wenn mein Programm den Parameter close unterstützt dann prüfe ich hier, ob close in der Übergabe drin ist. Wenn nicht, wird dieser fehlerhafte Parameter garnicht erst ans Hauptprogramm weitergegeben.

[Rollo62]

Zitat von EWeiss:

Danke ...
Die 5 Buchstaben sollte man doch wohl noch eintippen können.

Oder so:

[Sherlock]

Gibt es das eigentlich auch für FMX (Windows)?

Unter FMX ist TForm.CreateParams leider unbekannt.

Sherlock