Doppelter Taskbar EIntrag

[TurboMagic]

Hallo,

heute mach' ich mal was verzwicktes in D10.3.2.
Es klappt schon fast perfekt, bis auf den doppelten Taskbar Eintrag.

Ich habe sozusagen 2 Programme in eine exe gepackt.
In der DPR hab ich das hier drin:

Delphi-Quellcode:

var
  App: TApplication; // the normal Application variable is assigned to this one
                     // as this prevents the IDE from messing around in the dpr
begin
  App := Application;

  App.Initialize;
  App.Title    := 'MyApp';
  App.HelpFile := 'MyHelp.chm';
  
  if not ParamStr(1) = '/Test' then
  begin
    // Normaler Programmaufruf, klappt ohne doppelten Taskbar Eintrag

    // ins Verzeichnis der exe wechseln um relative Bildpfade (zumindest zu
    // diesem Verzeichnis) zu erlauben
    SetCurrentDir(ExtractFilePath(ParamStr(0)));

    App.CreateForm(TData, Data); // ein Datenmodul
    App.CreateForm(Tf_Main, f_Main);
  end
  else
  begin
    // Aufruf des anderen programs, welches aber immer 2 Taskbareinträge hat: das, 
    // welches zum hier erzeugten Fenster gehört und ein anderes. Egal welches man 
    // anklickt kommt man zu dem hier erzeugten fenster und MainFormOnTaskbar := false 
    // bringt auch nichts

    // ins Verzeichnis der exe wechseln um relative Bildpfade (zumindest zu
    // diesem Verzeichnis) zu erlauben
    SetCurrentDir(ExtractFilePath(ParamStr(0)));

    App.Icon.LoadFromResourceName(HInstance, 'MyIcon');
    App.CreateForm(Tf_AlternateMain, f_AlternateMain);
  end;

  App.Run;
end.

Was mache ich noch falsch?

Grüße

TurboMagic