Probleme mit Application.Terminate; ...

[daredd]

Hallo Leutz,

ich habe ein Problem. Ich mache gerade ein kleines Programm aus dem ich mehrer andere Programme starten kann (ein Installationsmenü).

Nun wenn man alle nötigen Komponenten installiert hat kann man das Programm anschließen auch aus dem Installtionsmenü starten:

Delphi-Quellcode:

procedure TForm1.ImageButton2Click(Sender: TObject);
begin
CheckInstallationen;
ExecuteProgramm('Programm1.exe');
Application.OnMessage := nil;
Application.Minimize;
Application.Terminate;
end;

Dabei wie ihr seht will ich das InstallationsMenü gleichzeitig schließen, damit man es nachher nicht manuell machem muss.

Hier ist mein Problem, er fängt an die Anwendung Programm1.exe auszuführen aber schließt es gleich wieder mit dem InstallationsMenü.
Im Taskmaneger unter Anwendung ist dann kein Programm1.exe zu sehen, aber unter Prozesse schon.

Was mach ich da falsch?

[mkinzler]

Was genau macht ExecuteProgramm()?

[daredd]

Delphi-Quellcode:

procedure TForm1.ExecuteProgramm(const PFileName: string);
var
  SEInfo: TShellExecuteInfo; 
  ExitCode: DWORD; 
  ExecuteFile: string; 
begin 
  ExecuteFile := '"' + PFileName + '"'; 
  FillChar(SEInfo, SizeOf(SEInfo), 0); 
  SEInfo.cbSize := SizeOf(TShellExecuteInfo); 

  with SEInfo do 
  begin 
    fMask := SEE_MASK_NOCLOSEPROCESS; 
    Wnd := Application.Handle; 
    lpFile := PChar(ExecuteFile); 
    nShow := SW_SHOWNORMAL; 
  end; 

  if ShellExecuteEx(@SEInfo) then 
  begin 
    repeat 
      Application.ProcessMessages; 
      GetExitCodeProcess(SEInfo.hProcess, ExitCode); 
    until (ExitCode <> STILL_ACTIVE) or 
      Application.Terminated; 
  end else 
  begin 
    Application.MessageBox('Fehler beim Starten des Programms', 
      'Hinweis', MB_OK + MB_ICONERROR); 
  end; 
end;

Das hier!

[mkinzler]

Du hänst das Programm auch an den handle deines Programmes

[daredd]

Ok, meinste du die stelle bei:

Wnd := Application.Handle;

????

Soll ich stattdessen was anderes hinschreiben? oder mach ich einfach die Zeile weg?

[mkinzler]

http://msdn2.microsoft.com/en-us/library/bb762154.aspx
http://msdn2.microsoft.com/en-us/library/bb759784(VS.85).aspx

[daredd]

Also ich versteh das immer noch nicht ganz!

Ich mach das jetzt mit:

Delphi-Quellcode:

ShellExecute(Handle, nil,'Programm1.exe', nil, nil, SW_SHOW);
Application.Minimize;
Application.Terminate;

Aber das Handle ist immer noch dabei! Er macht jetzt Zwar mein InstallationsMenü zu Ohne dabei das Programm1.exe zu schließen. Jedoch wenn ich dann das Programm1.exe schließe ist es immer noch unter Prozesse (im Task-Manager da).
Also schließt er das Programm nicht komplett.

[uwewo]

Hallo,

wenn ich dich richtig verstehe, willst Du mehrere Programme installieren und danach das Programm beenden.

Mach eine Funktion aus

Checkinstallationen;

und wenn erfolgreich beendest Du es dann ganz normal und schiesse es nicht einfach ab.

[daredd]

Wie soll ich das ganz normal beenden?
Application.Terminate ist doch beende das Programm, oder etwa nicht?

Ich kann es ja ganz einfach beenden in dem ich oben rechts auf das rot hinterlegte X drücke. Aber ich will halt noch das wenn man alles installiert hat, das man dann auf Programm ausführen klickt und er startet das Programm und schließt dabei das InstallationsMenü.

function Checkinstalltionen habe auch schon.



Ich bin halt der Delphi-Sprache nicht mächtig, also nicht zu 100%.

[DeddyH]

Ein Close der MainForm wäre zumindest nicht so rüde