Einzelnen Beitrag anzeigen

hanspeter

Registriert seit: 26. Jul 2003
Ort: Leipzig
1.350 Beiträge
 
Delphi XE2 Professional
 
#1

Exe Start / out of Process

  Alt 28. Jan 2010, 19:55
Hallo,
gibt es eine Möglichkeit in einer Exe herauszubekommen, wie diese gestartet wurde?
Über Shell oder als Com-Server?

In dem Programm gibt es eine Mainform mit Menüs, Toolbutton u.s.w.
Mit diesen Möglichkeiten werden weitere Forms modal aufgerufen.

Delphi-Quellcode:
Button1 ->
whith TFormKundendaten.Create(nil) do
begin
  Showmodal;
  Free;
end;
Dieses Programm habe ich jetzt mit einer Com Schnittstelle versehen und kann einzelne Forms direkt aufrufen.

ComInterface.ShowKundendaten(Parent) Beim Aufruf als out of Processserver wird das gewünschte Modul mit einem Parent aus dem rufenden Programm dargestellt.

Das funktioniert alles wie gewünscht.
Beim Aufruf über die Com - Schnittstelle wird jedoch zuerst die Mainform angezeigt und dann die gewünschte Form.
Setze ich in Showkundendaten Mainform.visible := false, dann blitzt diese beim Start kurz auf.
Ich suche jetzt eine Möglichkeit die Sichtbarkeit der Mainform zu unterdrücken, wenn das Programm als Out of Process Server gestartet wird.

Im Moment realisiere ich das mit ein paar Klimmzügen über eine Hilfsform und einen Timer, womit ich aber nicht zufrieden bin.

Hat wer einen Tip wie man das Problem eleganter lösen könnte.

Gruß
Peter
  Mit Zitat antworten Zitat