Andere Anwendung nach Delphi-Programm starten

[Waldkauz]

Ich möchte mit meinem Delphi-Programm eine Aktion ausführen und
nach dieser Aktion soll sich das Delphi-Programm schließen und
es soll direkt eine andere Anwendung gestartet werden.
Falls dies möglich ist würde ich mich sehr freuen, wenn mir jemand
einen Tipp geben kann.
PS: Ein fremdes Programm zu starten, bekomme ich ja schon hin - mit
WinExec(...);
bzw. mit
ShellExecute(...);
Bloß das Delphi-Programm bleibt dabei im Hintergrund aktiv und das soll
gerade nicht sein!

Wenn mir jemand helfen kann, wird es mir auch gleich besser gehen... :kotz:

[Christian Seehase]

Moin Waldkauz,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Dein Problem kann ich so nicht nachvollziehen.
Wenn ich, z.B., Notepad per ShellExecute starte, und dann mein Programm beende, wird es auch beendet, während Notepad noch läuft.

Ein wenig Source wäre recht hilfreich.

[Waldkauz]

Vielen Dank, auch wenn's noch nicht ausreichend eindeutig war.
Also hier ist das Programm (es ist nur dazu da, um zu verdeutlichen wo das Problem liegt,
deshalb so kurz und so ziemlich sinnlos :cheers: ):

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  WinExec('"C:\Windows\Notepad.exe"',
  SW_ShowNormal);
end;

end.

Dies ist nur ein Testprogramm. Es erscheint ziemlich sinnlos, da man das Notepad ja auch direkt öffnen kann.
Ich möchte einfach nur auf die exe-Datei des Delphi-Programms klicken,
und dann soll das Notepad direkt geöffnet werden ohne dass ich noch zusätzlich irgendwelche Buttons drücken muss (deshalb steht alles in FormCreate).
Und das klappt ja auch mit diesem Programm. Aber nun soll sich das Delphi-Programm auch noch automatisch schließen, so dass durch den einen Klick auf die Delphi...-exe am Ende nur noch das Notepad offen ist.

Hoffentlich hab' ich diesmal mein Problem näher bringen können. :(

[phlux]

Hi!
Wenn du willst das dein Programm nach dem öffnen des Notepads wieder geschlossen werden soll füg das ein:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  WinExec('"C:\Windows\Notepad.exe"', SW_ShowNormal);
  Application.Terminate; //Beendet dein Programm
end;

Das dürfte die Antwort auf deine Frage gewesen sein, oder? :gruebel:

mfg phlux :hi:

[Waldkauz]

Ja, diese kleine Zeile war's!
Vielen Dank.
:dancer2:

[Die Muhkuh]

Wahlweiße wenn nur ein Form offen ist, gehts auch mit Close