VCL-Anwendung starten und Funktion ausführen

[nahpets]

Im FormCreate einfach die Funktion aufrufen, die automatisch gestartet werden soll?

Ein VCL-Programm von mir, das wahlweise als 'normale' Anwendung oder als Batchprogramm laufen soll, macht das so:

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.CreateForm(TfmDPMain, fmDPMain);
  Application.CreateForm(TfmUrlListe, fmUrlListe);
  Application.CreateForm(TfmAbout, fmAbout);
  Application.CreateForm(TdmSynHighlighter, dmSynHighlighter);
  Application.CreateForm(TfmKonfigurationAuswaehlen, fmKonfigurationAuswaehlen);
  if fmAbout.bMD5Checked then begin
    fmDPMain.acl.CreateMenu;
    if ParamCount = 1 then begin
      Try
        fmDPMain.Show;
        fmDPMain.edBatchVerarbeitungIniFile.Text := ParamStr(1);
        fmDPMain.acIniDateiLadenExecute(Nil);
        fmDPMain.pc.ActivePageIndex    := 2;
        fmDPMain.acBatchAusfuehren.Tag := 1;
        fmDPMain.acBatchAusfuehrenExecute(Nil);
        fmDPMain.acSchliessenExecute(nil);
      except
        on e : Exception do begin
          ShowMessage(e.Message);
        end;
      end;
      fmUrlListe.tbUrlListe.SavePersistent;
      fmUrlListe.tbUrlListe.Close;
    end else begin
      Application.Run;
    end;
  end;
end.

Oder kurz und knapp:
Statt Application.Run;

Delphi-Quellcode:

Form1.Show;
DieAuszufuehrendeRoutine;
Form1.Close;

[bra]

Super, ich danke euch. Mir hat einfach das Form.Show gefehlt. So funktioniert es

Kein Thread deswegen, weil das nur ein einfacher Job ist, der einmal verwendet wird und ich es nicht zu kompliziert machen wollte

[hoika]

Hallo,
ich würde statt OnShow OnActivate benutzen.
OnShow kann mehrfach aufgerufen werden.

PS:
OK, OnActivate auch, aber hier hilft als 1. Zeile OnActivate := nil;

[Sherlock]

Oder man spendiert sich ein fRunOnce:Boolean .

Sherlock