Einzelnen Beitrag anzeigen

Benutzerbild von TeronG
TeronG

Registriert seit: 19. Jul 2004
Ort: München
960 Beiträge
 
Delphi 2007 Professional
 
#5

Re: Nach Programm Ende noch eine Andwendung ausführen ??

  Alt 25. Mai 2007, 11:03
Meine Methode für n Update:

Erstmal "besorge" ich mir die neue version (Exename.new).
Dann benenne ich meine EXE (exename.exe) in exename.bak um (sicher is sicher).
Nun benenne ich meine neue Version (exename.new) in exename.exe um.
Zuletzt beende und neustarte ich meine Anwendung....

EDIT:
ich mach mal "meine" neustartprocedure rinn ... könnte hilfreich sein
Delphi-Quellcode:
procedure ForceKillApplication(ARestart: boolean = False);
var
  AStartInfo: TStartupInfo;
  AProcInfo: TProcessInformation;
begin
  if ARestart then
  begin
    GetStartupInfo(AStartInfo);
    FillChar(AProcInfo, SizeOf(TProcessInformation), #0);
    CreateProcess(nil, GetCommandLine, nil, nil, False,
      CREATE_NEW_PROCESS_GROUP + NORMAL_PRIORITY_CLASS, nil,
      PChar(GetCurrentDir), AStartInfo, AProcInfo);
  end;
  TerminateProcess(GetCurrentProcess, 1);
end;
龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.
  Mit Zitat antworten Zitat