Programm lässt sich nicht beenden

[Radon]

Hi

Ich habe ein Programm, welches normal gestartet werden kann und welches über das Kontextmenü aufgerufen werden kann.

Dabei überprüft das Programm am Anfang, ob sich etwas im ParamStr(1) befindet. In dem Falle wäre das Programm über das Kontextmenü aufgerufen worden und dann soll es nur eine subprozedur ausführen und sich dann beenden. Andernfalls soll es das MainForm Zeigen wo man dann eben an die Einstellungen kommt.

Hier mal der Code:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  if ParamStr(1) <> '' then
  begin
    ShowMessage('Sub-Programmstart');
    subprogramm;
    close;
    ShowMessage('Programm konnte nicht geschlossen werden!');
  end
  else
    ERegistry;
    ShowMessage('Programmstart');
    Form1.Visible := true;
end;

Das Problem liegt daran, dass es das close nach dem subprogramm einfach ignoriert und trotzdem die Aufgaben im else-Teil abarbeitet. Das soll aber nicht sein!

Wie kann ich das so machen, dass es falls der ParamStr(1) etwas enthält, das Programm unsichtbar das subprogramm ausführt?


Man muss dazu sagen ich bin anfänger und tue mir noch etwas schwer :angel2:

[HalloDu]

Du kannst kein Programm nicht in dem OnCreate Ereignis beenden oder verstecken.
Ich lös das immer mit nem Timer.

[himitsu]

Gehl mal in die Projektdatei (.dpr), dort einfach die Zeilen mit Application überspringen, wenn etwas anderes gmacht werden soll

Delphi-Quellcode:

Begin
  If ParamStr(1) = ... Then Begin
    was anderes...
  End Else Begin
    Application...
    ...
  End;
End;

[Radon]

Gibt es dann vielleicht ne vorgeschaltete Funktion oder so? Oder kann ich das Form1. irgendwie hinterher aufrufen? Für mich siehts so aus, als ob der einfach den else-abschnitt ausführt, auch wenn die Bedingung dafür nicht erfüllt ist, da die ShowMessage erscheint.

@ himitsu: Sorry, ich versteh leider nicht was du meinst :|

[dino]

zu radons verteidigung: ich auch nicht

[Matze]

Projekt -> Quelltext anzeigen und dort kommt Himis Code hinein.

[dino]

weiss zwar nicht, ob radon geholfen ist, aber ich würde gerne wissen, was ich damit mache

[Matze]

Zitat:

Zitat von dino

weiss zwar nicht, ob radon geholfen ist, aber ich würde gerne wissen, was ich damit mache

Wie meinst du das? Du hast beispielsweise etwas wie

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {FrmMain};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFrmMain, FrmMain);
  Application.Run;
end.

Dieses begin - end wird gleich am Anfang des Programmstarts ausgeführt. Möchtest du also Dinge direkt dort beinflussen, dann kannst du hier schon eingreifen.

[dino]

ah danke

[ringli]

Ich würd mir als erstes mal deinen ELSE-Teil näher angucken. Dort fehlt meines Erachtens nach ein BEGIN..END-Block. So steht im ELSE-Teil nämlich nur ERegistry. Aber ich vermute mal das die beiden nächsten Zeilen eigentlich auch dazugehören sollen.