programmstart bei fehlenden parametern verhindern ?

[agm65]

hi leute...mal ne frage..
also ich möchte, dass wenn man die exe startet ohne parameter übergeben zu haben, das programm erst garnicht aufgeht.

jetzt habe ich sowas wie:

if paramst(1) = '' then close; aber im form create geht das natürlich nicht. im form show ists nicht so gut, weil das tool kurz aufgeht...wie macht ihr sowas ?
danke euch !

[DeddyH]

In der Projektdatei (*.dpr):

Delphi-Quellcode:

program Nix;

uses
  Forms,
  UnitNix in 'UnitNix.pas' {Form1};

{$R *.RES}

begin
  if ParamCount < 1 then exit; //diese Zeile einfügen
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[s-off]

Wieso geht

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
   if ParamStr(1) = '' then Application.Terminate;
end;

nicht?

[mkinzler]

Das wird auch die einzige Möglichkeit sein. Vielleicht noch besser als erste Abfrage im Hauptprogramm (Projekt)
@s-off: warum sollte man erst alle Fenster/Formulare erzeugen lassen um dann zu beenden? es ist imho besser den Aufwand nur zu treiben, wenn es notwendig ist.

[agm65]

perfekt, danke dir !!

[s-off]

Zitat von mkinzler:

Das wird auch die einzige Möglichkeit sein. Vielleicht noch besser als erste Abfrage im Hauptprogramm (Projekt)
@s-off: warum sollte man erst alle Fenster/Formulare erzeugen lassen um dann zu beenden? es ist imho besser den Aufwand nur zu treiben, wenn es notwendig ist.

Stop,

ich habe nur folgende Aussage widerlegt:

Zitat von agm65:

[...]
aber im form create geht das natürlich nicht.

[agm65]

lol....wie komme ich nochmal in die projekt datei rein ?? hehe ich krieg die nicht auf

[mkinzler]

Projekt->Quelltext anzeigen

[agm65]

lol, danke dir vielmals ! wieder einmal wurde die welt gerettet von -> mkinzler....danke dir !