EXE kopiert sich selbst...

[cruso]

Hi!

Wie kann ich dafür sorgen, dass ein Programm seine eigene EXE in ein anderes Verzeichenis kopiert?
Vllt ein Ansatz: Es ist ja möglich die eigene EXE nach dem Beenden zu löschen; über eine Batch-Datei. Wie müsste diese Datei nun aussehen um die Anwendung zur Laufzeit oder direkt danach in ein anderes Verzeichnis zu kopieren?
Wisst ihr vllt wie ich das realisieren kann? Es muss ja nicht unbedingt über eine Batch-Datei geregelt sein.


MfG
Cruso

[Nikolas]

Was willst denn damit anfangen? Ich bin mir recht sicher, dass niemand gerne ein Programm auf dem Rechner hat, das sich nach Beendigung woanders hinkopiert.

[cruso]

Das soll z.B. eine Art konfiguration für ein Programm werden (eine Art Mini-Installer) man lädt es herunter und kopiert es auf den Desktop, öffnet es und nach dem Beenden oder während der Laufzeit oder danach wird das Programm kopiert/eingerichtet.

[himitsu]

Mit CopyFile die Datei kopieren - über ParamStr(0), oder Application.ExeName (ersteres is aber besser, außerdem greift letzteres eh auch nur auf ParamStr zu)

im Original:
- CopyFile(ParamStr(0), ...);
- die Kopie starten (dieser über die Parameter den Pfad der alten Datei und den Befehl zum Löschen mitgeben)
- sich selbst beenden

in der Kopie:
- beim Start das Original löschen (eventuell über 'nen Timer etwas warten)




Oder die Batchdatei entsprechend abändern:
> http://www.delphipraxis.net/internal...ct.php?t=11528

[cruso]

Und wie müsste nun genau eine Batch-Datei aussehen, die die EXE nach Beendigung in ein anderes Verzeichnis kopiert?

[vlees91]

ich dachte es muss net unbedingt über eine batch datei sein???

[cruso]

Ja schon, aber über eine Batch-Datei wäre es einfacher zu erweitern usw.

[Zacherl]

Zitat:

copy "%VERZEICHNISS DER EXE%\$DATEINAME DER EXE$" "%NEUES VERZEICHNISS DER EXE%\$NEUER DATEINAME DER EXE$"

[cruso]

Und wie würde das dann genau aussehen? also mit Beispielen? Ich weiß ja nicht wie ich was schreiben soll...

[ManuMF]

Um die Batch-Datei zu starten:

Delphi-Quellcode:

uses ShellAPI;

procedure TForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ShellExecute(Application.handle, nil, 'Kopieren.bat', nil, PChar(GetCurrentDir), SW_MINIMIZED);
end;

Gruß,
ManuMF