ich habe eine Anwendung geschrieben, welche "normalerweise" nicht mehrfach gestartet werden soll => Klarer Fall für UniqueInstance.
Wenn ich nun aber meine Anwendung Teste, dann benötige ich doch mehrere Instancen.
Die Idee war nun das ganze mittels eines Kommandozeilen Parameter zu steuern:
Code: Alles auswählen
Procedure TForm1.UniqueInstance1OtherInstance(Sender: TObject;
ParamCount: Integer; Const Parameters: Array Of String);
Begin
BringToFront;
showmessage('Other Instance detected');
End;
Procedure TForm1.FormCreate(Sender: TObject);
Var
i: Integer;
Begin
label1.caption := 'Disabled';
For i := 1 To ParamCount Do Begin
If ParamStr(i) = '-d' Then Begin
UniqueInstance1.Enabled := true;
label1.caption := 'Enabled';
End;
End;
End;