beenden

[Prym]

also ich habe so nix in der art gefunden deswegen frage ich hier
falls es doch was gibt entschuldige ich mich

und zwar geht es um folgendes

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open' ,PChar('X:\x\x\x.exe'), nil, nil, sw_ShowNormal);
ShellExecute(Application.Handle, 'open' ,PChar('X:\x\x\x.exe'), nil, nil, sw_ShowNormal);
Form1.Close;//das hier geht nicht
end;

also das programm soll 2 andere öffnen und danach soll sich das programm schließen was aber nicht so wirklich automatisch klappt

hoffe ihr könt mirhelfen

[Dax]

Was genau klappt denn nicht? Und was ist "Butten"?

[Prym]

habe oben verbessert

das close geht net

[Torpedo]

Probier mal einen der folgenden Befehle:

Halt;


Application.Terminate;


oder einfach alle Forms (sollte es mehrere geben) mit Close schließen.


Ich weiß zwar nicht welche Vor- und Nachteile dieser Befehl hat, müsste aber funktionieren.

[Lannes]

Hallo,

so:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  //dein Code
  close;
end;

[mr47]

oder im OnActivate. Ich glaube im OnCreate kann man noch nicht schließen oder?

[BenjaminH]

Zitat:

Zitat von mr47

Ich glaube im OnCreate kann man noch nicht schließen oder?

Stimmt genau

[Christian Seehase]

Moin Prym,

dann schreib doch statt Application.Handle einfach 0, und die beiden Zeilen, statt der automatisch generierten, in die Projektdatei.
Ein Fenster brauchst Du ja offensichlich nicht.

[Prym]

danke es geht