Laufendes Programm sich selbst verschieben/ kopieren

[DeddyH]

Application.Exename und ParamStr(0) liefern dasselbe zurück, aber für ParamStr(0) brauchst Du die Unit Forms nicht, wie schon richtig bemerkt.

[Elko]

Also erst mal vielen Dank für eure Antworten!
Ich habe eure Varianten mal ausprobiert: Sowohl die von Snow, als auch die von FAlter funktionieren einwandfrei. (Ich finde die Variante von snow irgendwie kompliziert, OK, es könnte daran liegen, dass ich noch nie mit Streams gearbeitet habe )

Übrigens: Ich habs mal durch Ausgabe mit einem Label ausprobiert, und dabei ist rausgekommen, dass
ParamStr(0) den gesamten Pfad mit Dateiname ausgibt.

das:
ExtractFilePath(ParamStr(0))+'Project1.exe' kommt also auf selbe raus

Hm, da gibts schon wieder ein Problem (diesmal mit dem Abspielen von Midi-Sequenzen (also zB. "town.mid" im Ordner "WINDOWS\Media") mit dem Delphi-Mediaplayer. Dazu mache ich aber lieber ein anderes Thema auf

Viele Grüße, Elko

[Ralf Kaiser]

Zitat von 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...

Schon. Da hatte ich mit nicht genau ausgedrückt. Es ist aber nicht besonders sinnvoll erst mit ExtractFilePath den Dateinamen abzuschneiden um ihn dann sofort wieder anzuhängen.