Copiar Um Arquivo...

[McBlade]

Olá,

Estou tentando usar o CopyFile para fazer uma espécie de cópia de segurança de meu aplicativo.

Mas quando eu tento usar o StrPCopy para transformar a String para PChar ele dá um erro de Access Violation.

O que está errado??

procedure TFrmMain.Bitbtn1Click(Sender: TObject);
var
  Origem,Destino: PChar;
begin
  StrPCopy(Origem,Application.ExeName);
  StrPCopy(Destino, Application.ExeName+'.old'); // O erro ocorre aqui...
  CopyFile(Origem,Destino,True);
end;

Dá uma mãozinha ae galera!!!

[Kikonanet]

Olá,

Tente assim:

CopyFile(PChar(Origem1), PChar(Destino), true)

Abs.

Kiko