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
