[DELPHI] Copia di file tramite comando COPY del DOS

[camaleonteplus]

Vorrei inserire il percorso file di Tedit al posto di c:\esempio\*.jpg come faccio?

procedure TForm1.botton1Click(Sender: TObject);
begin
WinExec('Command.com /c copy *c:\esempio\*.jpg*' c:\, 0);
end;

[123delphi321]

non riesco a capire.... quale e' il tuo scopo?

[camaleonteplus]

copiare determinati file in una cartella predefinita, preferisco usare il copy del comando dos come facccio?

[123delphi321]

prova questo...

ExecuteShellCommand('copy file1.txt file2.txt', True);

[camaleonteplus]

ma il mio intento è usare il percosso presente in Tedit non voglio mettere un percosso dentro il codice ma voglio caricarlo con un pulsante.

[camaleonteplus]

se faccio come hai detto tu mi dice [Error] Fuse.pas(55): Undeclared identifier: 'ExecuteShellCommand'
ho fatto anche in questo modo ma non funziona

procedure TForm1.FondiClick(Sender: TObject); begin WinExec('Command.com /c copy/b JPG2.Text + Full2.Text fusion.jpg', 0); end;

[alka]

Al di là del fatto che sarebbe meglio utilizzare la funzione apposita, piuttosto che appoggiarsi al programma previsto per la console DOS, non puoi programmare senza approfondire gli argomenti base del linguaggio tra cui c'è anche la concatenazione delle stringhe, che è la soluzione al tuo problema.

[123delphi321]

Originariamente inviato da camaleonteplus
se faccio come hai detto tu mi dice [Error] Fuse.pas(55): Undeclared identifier: 'ExecuteShellCommand'
ho fatto anche in questo modo ma non funziona

hai ragione... quella era una funzione...

io ho provato cosi e funziona

procedure TForm1.Button1Click(Sender: TObject);
begin
  WinExec('Command.com /c copy/b c:\prova.txt c:\prova1.txt', 0)
end;

[camaleonteplus]

ho provato cosi ma non va.

procedure TForm1.FondiClick(Sender: TObject); begin WinExec('Command.com /c copy/b JPG2.Text+Full2.Text fusion.jpg', 0); end;

[123delphi321]

leggi il messaggio di Alka.... penso che la soluzione e' li.