Laufendes Programm sich selbst verschieben/ kopieren

[Elko]

Hallo Leute,
ich habe ein Programm geschrieben, welches ich so ausstatten möchte, dass es sich selbst in einen anderen Ordner verschiebt. Ich habe schon viel gegooglet, aber dazu leider nix gefunden. Ich denke, das Problem liegt daran, dass es sich ja während es läuft verschieben soll.
Freue mich schon auf Eure Antworten!
Viele Grüße, Elko

[Strahlex]

Lass das Programm einfach eine Batch-Datei erstellen und ausführen

[snow]

du könntest die I/O checks peer compilerdiriktive abstellen. Vllt gehts dann ohne fehlermeldung.

gruß snow

[Elko]

Soll ich dazu dann CopyFile benutzen? Wenn ja, was soll ich dann als Parameter angeben?
Gruß, Elko

[Hansa]

Er redet von einem LAUFENDEN Programm ! Sowas seltsames gabs doch letztens erst.

[Elko]

ja, ich rede vom selbstständigen Kopieren eines laufendes Proramms in ein anderes Verzeichnis
gibts danicht noch n andere Möglichkeit als mit einer Batch Datei? zB. CopyFile?

[snow]

Delphi-Quellcode:

var filepathold : string;
filepathnew : string;
streamold : Tstream;
streamnew : Tstream;
begin
{$I-}
filepathnew:='I:\delphi\testContainer\Project1.exe';
filepathold:=ExtractFilePath(ParamStr(0))+'Project1.exe';
streamnew := TFilestream.Create(filepathnew,fmCreate);
streamold := TFilestream.Create(filepathold,fmShareDenyNone);
streamnew.CopyFrom(streamold,streamold.Size);
streamold.Free;
streamnew.Free;
{$I+}

so gehts... (wenn das projeckt Project1.exe heißt)

gruß snow

[Ralf Kaiser]

Zitat von snow:

filepathold:=ExtractFilePath(ParamStr(0))+'Project1.exe'; so gehts... (wenn das projeckt Project1.exe heißt)

Nein. So geht es nicht. ParamStr(0) enthält bereits den vollen Namen. Da muss "Project1.exe" nicht mehr angehängt werden!

[FAlter]

Hi Elko,

natürlich geht es mit CopyFile. Ich hatte jedenfalls keine Probleme. Nur verschieben kannst du es nicht, dazu muss es vorher beendet werden.

Delphi-Quellcode:

var
  OldName, NewName: String;
  Overwrite: Boolean;
begin
  OldName := ParamStr(0);
  NewName := 'D:\' + ExtractFileName(OldName);
  Overwrite := false;

  CopyFile(PChar(OldName), PChar(NewName), Overwrite);
end;

Mfg
FAlter

[snow]

Zitat:

Nein. So geht es nicht. ParamStr(0) enthält bereits den vollen Namen. Da muss "Project1.exe" nicht mehr angehängt werden!

es funkioniert aber auch so...


Zitat aus Delphi-treff

Zitat:

Ordner, in dem sich die eigene Anwendung befindet ermitteln

Delphi-Quellcode:

function GetApplicationDirectory: String;
begin
  Result := ExtractFilePath(ParamStr(0));
end;

das was du meinst ist
Application.Exename das klappt aber nur wenn Forms eingebunden ist.

gruß snow