TJvAppInstances Programmgesteuert weitere Instanzen zulassen

[Hobbycoder]

Hi,

ich nutze in einem Programm der Einfachheithalber TJvAppInstances um eben nur eine Instanz pro Arbeitsplatz zuzulassen.
Funktioniert auch reibungslos.

Jetzt möchte ich gerne irgentwie während des Startens den KeyState z.B: der CTRL-Taste abfragen um für einen Sonderfall eben doch 2 oder mehr Instanzen zuzulassen.

Weiß jemand wie man das mit TJvAppInstances realisieren könnte?

Wenn's nicht geht, würde ich halt eben selber auf den Prozess prüfen und auf TJvAppInstances verzichten. Aber wenn es damit gehen würde, könnte ich mir die Arbeit ersparen.

[TurboMagic]

Alternativ Mutex anlegen versuchen. Wenn das schon vorhanden gibt's einen Fehler und du weißt, dass das Programm schon gestartet ist

[jbg]

TJvAppInstance bietet da direkt nichts an. Mit einem kleinen "Namenstrick" über der Formular/DataModule Deklaration kann man aber die Loaded Methode überschreiben und dort Active deaktivieren, wenn eine der Ctrl+Tasten gedrückt ist.

Delphi-Quellcode:

type
  TJvAppInstances = class(JvAppInst.TJvAppInstances) // same class name above the declaration to "trick" the compiler
  protected
    procedure Loaded; override;
  end;

  TFrmMain = class(TForm)
    JvAppInstances1: TJvAppInstances;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FrmMain: TFrmMain;

implementation

{$R *.dfm}

{ TJvAppInstances }

procedure TJvAppInstances.Loaded;
begin
  Active := Active and (GetKeyState(VK_CONTROL) and $80 = 0);
  inherited Loaded;
end;