eigenes programm in anderen ordner kopieren

[poltergeistx]

ich möchte wissen wie man eine exe datei oder eine jpeg datei per button-klick (auf deutsch : knopfdruck) ;)
in einen anderen ordner kopieren kann

ich möchte dass mein programm, dass gerade läuft sich per button-drück in einen ordner kopiert , ist dass möglich irgendwie wenn ja dann wie ?

danke im vorraus und frohe ostern an alle :]

[Chrissi91]

Hm ...

mir ist so als gäbe es den Befehl:

Delphi-Quellcode:

move('Ursprungspfad','Zielpfad')

Habe ich recht? ICh kann mich jetzt auch ganz gewltig täuschen. :|

[DGL-luke]

hmm.. das is schwierig. Nur mit deinem programm alleine wird es nicht gehen; am besten du erzeugst dafür eine batch-datei. Diese kannst du dann aufrufen und das Programm beenden, und es danach von der batch wieder starten lassen. so sollte das gehen...

@Chrissi91: Ich weiss nicht, b das mit einer laufenden Exe geht...

[Chrissi91]

Mit einer geöffneten Datei, wie z.B. deiner laufenden Exe geht es nicht. Du könntest es aber schließen und mit einem anderen von dir programmierten Programm das verschieben und die dann wiedder per sehllapi öffnen.

[SirThornberry]

warum verschieben? Er hat doch geschrieben das er es kopieren will. Mir bleibt nur der Sinn noch verborgen.

[pacman1986]

ich habs geschaft die exe selbst zu kopieren mit diesem befehl

Delphi-Quellcode:

boolscher_wert :=  copyfile(PchaR(FilepathA:string),Pchar(FilepathB:String),false);

warum ich am ende false habe weiss ich nicht mehr ^^

edit :
der letzte wert ist dafür ob die datei wird ersetzt wenn sie existiert bei true stoppt er und macht das nicht

[poltergeistx]

(alles gelöscht)



edit :ok thx denn gleich mal testen :]

ich sag bescheid wenns geht :]

[pacman1986]

ich glaub die zeile oben hilft dir ...

[poltergeistx]

lol dann gleich mal ein grr an dich ;)

es klappt natürlich nicht :(

^^ lol? aber was soll ich damit anfangen ey ?

procedure TForm1.FormCreate(Sender: TObject);
begin
boolscher_wert := copyfile(PchaR(FilepathA:string),Pchar(FilepathB:S tring),false);

das sollte mir mal einer bisschen genau erklären denn das ist der befehl den ich suche ^^

[pacman1986]

Delphi-Quellcode:

var test : boolean;
begin
 test := copyfile(PCHAR('C:\1.txt'),PCHAR('c:\aha\1.txt'),false);
 If test 
    then //kein fehler 
    else //fehler nicht geklappt;
end;