Fun��o CopyFile() n�o funciona em Win XP

Question

Ola pessoal,Estou com o seguinte problema, criei um programa para instalar meu sistema ao final da instala��o uso a fun��o CopyFile( �Origem�, �Destino�, True ), aonde copio um arquivo do drive d:(Cdr...

Rodrigo_rcp · Answer

Eu uso Delphi 6 no XP e a copyFile funciona normal, tenho em casa um exemplo de como copiar arquivos usando TStream se quiser posso colocar aqui para voc�, mas s� amanh�....

Helderjr · Answer

Rodrigo, s� n�o funcionou copiando do CD, quando uso para copiar de c: para c: funciona perfeitamente. Mas de qualquer forma mande para mim o exemplo que voc� tem usando TStream.

jhcjr@itelefonica.com.br

Rodrigo_rcp · Answer

Ai esta

Livro Dominando o Delphi 7 �A B�blia�
Autor Marco Cant�

procedure CopiarArquivo(Origem,Destino:String);
var
  Stream1,Stream2:TFileStream;
begin
  Stream1:=TFileStream.Create(Origem,fmOpenRead);
  try
    Stream2:=TFileStream.Create(Destino,fmOpenwrite or fmCreate);
    try
      Stream2.CopyFrom(Stream1,Stream1.Size);
    finally
      Stream2.Free;
    end;
  finally
    Stream1.Free;
  end;
end;

Beppe · Answer

[quote:2ecd7cb82d=�Rodrigo_rcp�]Ai esta Livro Dominando o Delphi 7 �A B�blia�Autor Marco Cant�[code:1:2ecd7cb82d]procedure CopiarArquivo(Origem,Destino:String);var  Stream1,Stream2:TFileStream;begin  Stream1:=TFileStream.Create(Origem,fmOpenRead);  try    Stream2:=TFileStream.Create(Destino,fmOpenwrite or fmCreate);    try      Stream2.CopyFrom(Stream1,Stream1.Size);    finally      Stream2.Free;    end;  finally    Stream1.Free;  end;end;[/code:1:2ecd7cb82d][/quote:2ecd7cb82d]...o segundo par�metro de Stream2 deveria conter fmShareExclusive e em Stream1, fmShareDenyWrite.Ataliba...

F�rum Fun��o CopyFile() n�o funciona em Win XP #189007