Função CopyFile() não funciona em Win XP

Delphi

16/10/2003

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:(Cdrom) para a maquina do cliente C:, porém no Windows XP está copia não é executada, em outro Windows Ex.98 ou ME funciona normal, o que pode estar acontecendo? Existe outra forma de copia que independente do Windows funcione?
[b:fabe439c47]Obs: Uso Delphi 7.[/b:fabe439c47]


Helderjr

Helderjr

Curtidas 0

Respostas

Rodrigo_rcp

Rodrigo_rcp

16/10/2003

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ã.


GOSTEI 0
Helderjr

Helderjr

16/10/2003

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


GOSTEI 0
Rodrigo_rcp

Rodrigo_rcp

16/10/2003

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;



GOSTEI 0
Beppe

Beppe

16/10/2003

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;


...o segundo parâmetro de Stream2 deveria conter fmShareExclusive e em Stream1, fmShareDenyWrite.

Ataliba


GOSTEI 0
POSTAR