Mehrere Instanzen des Programms verhindern

[Shaman]

Hallo zusammen

Wenn man nicht will, dass die Anwendung mehrmals gestartet werden kann, ist das ziemlich mühsam zu implementieren. Hier eine Komponente von mir, die man nur auf die Hauptform zu platzieren hat, um sich nicht mehr um das Thema kümmern zu müssen. Sie verhindert den Start einer zweiten Instanz und übergibt Kommandozeilen-Parameter und Fokus der ersten.

Macht das Beste draus

Gruss
Shaman

PS: Eigentlich behindert, dass man sowas nicht direkt in TApplication oder so integriert hat. Aber gediegen, so hat man was zu tun...

[edit=Chakotay1308]Eintrag in der Code-Library ist hier zu finden. Mfg, Chakotay1308[/edit]

[juergen]

Hallo zusammen,

ich versuche diese Unit als Package zu installieren, über
-> Neu-> Package.
In der Projektverwaltung sehe ich dann das Package.
Ich speichere dieses unter einem neuen Namen und füge dann die Unit "OneInstance" hinzu.
Dann will ich kompilieren.
Ist das Überhaupt so richtig?
Ich bekomme dabei dann folgenden Fehler:
[DCC Fehler] E2161 Warning: Duplicate resource: Type 2 (BITMAP), ID TONEINSTANCE; File D:\_Programmierung\_installierte_Komponenten\Progr ammNurEinmalStarten\OneInstance.dcr resource kept; file D:\_Programmierung\_installierte_Komponenten\Progr ammNurEinmalStarten\OneInstance.dcr resource discarded.

Die Frage wäre:
Wie binde ich nun das als Komponente richtig ein?

Vielen Dank schon mal im Voraus!

[mkinzler]

Entferne die dcr wieder aus dem Package. diese wird implizit eingebunden.
Zudem solltest du das Package installieren und nicht nur comillieren.

[juergen]

Danke mkinzler!
Da wäre ich nicht drauf gekommen, mit dem entfernen der dcr.

Coole Komponente vom Daniel.
Besonders auch, dass die Anwendung in den Vordergrund kommt/ bleibt.

Ps.:
Glückwunsch zum Moderator!

[Paul0703]

Hallo!

Ich bekomme es irgendwie nicht hin, dass die Komponente die Parameter an die die erste Instanz übergibt
Also im OnCreate der Anwendung übergebe ich die Parameter folgendermaßen:
for I := 1 to ParamCount do ListBox1.Items.Insert(0, ParamStr(i)); Wenn ich mehrere Parameter hatte, wurde das Programm immer mehrmals geöffnet. Durch die Komponente wird es jetzt auch verhindert, wie es sein soll. Aber es wird nur ein Parameter übergeben!

Ich hoffe, mir kann jemand helfen

MfG Paul

[omata]

Wie sieht dein Programmaufruf aus?

[Paul0703]

Was meinst du mit Programmaufruf?

[omata]

Ich meine z.B. den Aufruf über die Konsole, wie sieht der aus?
Also, wie startest du deine Anwendung und wie sieht dort die Parameterliste aus?

[Paul0703]

Naja ich klicke im Explorer auf eine bzw. mehrere Dateien und wähle dann über "Öffnen mit" mein Programm aus.
Meintest du das?

[omata]

Ja, dann wird dein Programm für jede dieser markierten Dateien gestartet und es wird an jede Instanz deiner Anwendung eine Datei (Dateiname als Parameter) übergeben. Da du jetzt verhinderst, dass deine Anwendung mehrfach gestartet wird, wird eben nur die erste Instanz wirklich ausgeführt und somit auch nur die erste markierte Datei angezeigt.
Ob deine Parameterverarbeitung richtig arbeitet, kannst du innerhalb von Delphi testen, über Start->Parameter.

Markiere mal im Explorer Dateien und ziehe sie dann mit der Maus über deine Anwednung und laß dann die Maustaste los.