Einzelnen Beitrag anzeigen

Benutzerbild von Lucifer
Lucifer

Registriert seit: 29. Mär 2007
62 Beiträge
 
#9

Re: Progamm Sich Selbst Ersetzen Lassen

  Alt 6. Jul 2008, 23:26
Hab ein problem wnn ich es als Hilfsprogramm mache

Also als erstens schaut der Updater ob im Namen der Rar Updater enthalten ist.
Danach wenn ja bennent der Updater sich in Bak.exe

Er ladet die Datei runter und entpackt sie.
Darin ist die neue Updater.exe welche dann auch auftaucht.

Nach Entpacken startet er das Hilfsprogramm welches erstens Den Updater schliesst und danach die Datei Bak.exe löschen soll.
Nur bleibt die Bak.exe erhalten.
Wenn ich dann aber das Hilfsprogramm starte dann lsöcht er sie Aber...

Delphi-Quellcode:
if(temp='Updater')then
      begin
        RenameFile('Updater.exe','Bak.exe');
      end;


Runterladen...
Entpacken...

ShellExecute(Application.Handle, nil,'.\Updater_help.exe', nil, nil, SW_SHOWNORMAL);
Delphi-Quellcode:
PostMessage(FindWindow(nil,'.: Updater :.'), wm_close, 1, 1);
  DeleteFile('Bak.exe');
EDIT:

Hab einfach bisschen mit Sleep gearbeitet
Die runtergeladene Datei schien später aufzutauchen als das Hilfsprogramm startet.

Und zum Patchen hab Ich dann einfach die Neue Datei einfach anders gennant, dann hatt das HilfeProgramm den Updater geschlossen und gelöscht und danach die Neue Datei umbennant
  Mit Zitat antworten Zitat