Wie kann ich mich selbst neu starten?

[himitsu]

Die 32 ist keine "Magic-Number" ... das ist ein offizieller Wert, wie man ihn auch im MSDN nachlesen kann.

Zitat:

Zitat von MSDN: ShellExecute

If the function succeeds, it returns a value greater than 32.

Delphi-Quellcode:

if ShellExecute(...) and not $1F <> 0 then

... hier wäre ein unentzifferbare Magic-Number drin.

[DeddyH]

Delphi-Quellcode:

const 
  MAX_SHELLEXECUTE_ERRORVALUE = 32;

:mrgreen:

[blackfin]

Ich mache das meistens so, dass ich der Anwendung über ShellExecute einen Parameter "-delayed" mitschicke, woraufhin die Anwendung am Anfang etwas wartet
(und die derzeitig laufende Instanz etwas Zeit bekommt, sich zu beenden):

Restart-Routine:

Delphi-Quellcode:

// Restart the Application
procedure ApplicationRestart(const Delayed: boolean = false);
var
  AppName : PChar;
  FParams : PChar ;
begin
  AppName := PChar(Application.ExeName) ;

  if Delayed then
  begin
    FParams := '-delayed' ;
  end;

  ShellExecute(Application.Handle,'open', AppName, FParams, nil, SW_SHOWNORMAL) ;
  Application.Terminate; 
end;

Und in der dpr des Programms habe ich dann folgenden Code, der wartet, bevor die Hauptform erzeugt wird und die Anwendung gestartet wird:

Delphi-Quellcode:

begin
  Application.Initialize;  
  Application.Title := 'Meine tolle Anwendung';

  // delayed start of application 
  if (ParamCount > 0) then
  begin
    if (ParamStr(1) = '-delayed') then
    begin
      sleep(3000) ; // Wartezeit natürlich variabel :-)
    end;
  end; 

  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

Hat bisher immer super geklappt. Sollte das aus irgendwelchen Gründen Mist sein, bitte melden! :-)
Natürlich kann man das verbessern...dass z.B. nicht der erste Parameter das "-delayed" sein muss und die Wartezeit auch als zusätzlicher Parameter mitgeschickt wird etc.

[Iwo Asnet]

Zitat:

Zitat von himitsu (Beitrag 1170583)

Die 32 ist keine "Magic-Number" ... das ist ein offizieller Wert

Trotzdem ist es ein magic number ;-)

Zitat:

Zitat von DeddyH (Beitrag 1170581)

Dann muss ich das demnächst für die Forenpolizisten wohl noch extra dazuschreiben :roll:

Selber :roll:, zick nich so rum, alte Hippe :mrgreen:

Zitat:

Zitat von DeddyH (Beitrag 1170584)

Delphi-Quellcode:

const 
  MAX_SHELLEXECUTE_ERRORVALUE = 32;

Siehste, geht doch. :cheer:

[eholzer]

Danke für eure Antworten, das ist jetzt genug Stoff um weiter zu machen.

Eric

[EWeiss]

Dann von mir noch einen

Delphi-Quellcode:

  if Restart then
    Result := ShellExecute(0, 'open', PWideChar(ParamStr(0)), nil, nil, SW_SHOW)
  else
  Result := Msg.wParam;

Zitat:

ShellExecute(Application.Handle,'open', AppName, FParams, nil, SW_SHOWNORMAL) ;
Application.Terminate;

Warum hier ein Handle ist doch eh nicht mehr gültig da reicht auch ein 0

gruss

[blackfin]

Zitat:

ist doch eh nicht mehr gültig

Stimmt nicht ganz, das Terminate / Close kommt in meinem Code danach und die Anwendungen laufen am Anfang ja zunächst parallel. Aber ne 0 tuts natürlich auch :-)

[EWeiss]

Zitat:

Zitat von blackfin (Beitrag 1170685)

Zitat:

ist doch eh nicht mehr gültig

Stimmt nicht ganz, das Terminate / Close kommt in meinem Code danach und die Anwendungen laufen am Anfang ja zunächst parallel. Aber ne 0 tuts natürlich auch :-)

Ich meinte natürlich das wenn die Anwendung beendet ist ist das Handle nicht mehr gültig
daher macht es keinen sinn das mit zu übergeben ;)

gruss

[jaenicke]

Wichtig ist das Handle zur Positionierung des neuen Programms. Wenn man 0 angibt, wird z.B. beim Verb runas die UAC nicht direkt angezeigt, sondern blinkt nur in der Taskleiste.