Fórum Por que este WinExec não está funcionando? #319365

Senhores, Estou usando o Delphi 7 com MSSQL (MSDE) e ADO.

Faço o bakup de minha base de dados e por motivo de segurança devo transfer o arquvo gerado para um outro servidor ,executando um comando COPY. Entretanto, o comando copy não cria o novo registro.
Mostro abaixo a codificação que estou usando.

procedure TFormTelaPrincipal.BACKUP1Click(Sender: TObject);
var
Wano,Wmes,Wdia,Whora,nomearq,Hnomearq:string;
begin
datetimetostring(Wano,´yy´,now);
datetimetostring(Wmes,´mm´,now);
datetimetostring(Wdia,´dd´,now);
datetimetostring(Whora,´hh´,now);
HNomearq:=´G:\SISCO\backup\CISPO´+Wano+Wmes+Wdia+Whora+´.BKP´;
Nomearq:=´c:\SISCO\backup\SISCO´+Wano+Wmes+Wdia+Whora+´.BKP ´;

ADOBackup.CommandText:=´BACKUP DATABASE SISCO TO DISK = ´+ #39 + NomeArq + 39;
ADOBackup.Execute;
showmessage(´Arquivo de Backup local gravado´);


WinExec(Pchar(´command.com /c copy ´ + nomearq + HNomearq) ,0);

showmessage(´Arquivo de Backup REMOTO gravado´);

end;