copiar arquivo

Question

Como se faz para, via programa��o, copiar um arquivo que est� protegido. Ou seja, sem apresentar a mensagem de que houve uma viola��o de compartilhamento ?...

Celo-faveri · Answer

amigo...voc� pode fazer da seguinte forma:

[color=darkblue:22be7b85eb]CopyFile(�CAMINHO DO ARQUIVO A SER COPIADO�, �CAMINHO E NOME DO NOVO ARQUIVO�, False); Exemplo: CopyFile(�C:\TESTE.TXT�, �C:\TESTE_COPIADO.TXT�, False);[/color:22be7b85eb]

Mas...tipo, como o nome dos arquivos s�o do estilo PChar, e voc� quiser colocar os nomes dos arquivos(original e copiado) em tempo de execu��o, use a seguinte fun��o:

[color=darkblue:22be7b85eb]function ConvertStringToPChar(arq: String): PChar; Var PCharString : Array[0..255] of Char; begin Result := StrPCopy(PCharString,arq); end;[/color:22be7b85eb]

Exemplo de uso:

[color=darkblue:22be7b85eb]function ConvertStringToPChar(arq: String): PChar; Var PCharString : Array[0..255] of Char; begin Result := StrPCopy(PCharString,arq); end; procedure TForm1.Button1Click(Sender: TObject); var arq, arqcopy : string begin arq := ExtractFilePath(Application.ExeName) + �teste.txt�; arqcopy := ExtractFilePath(Application.ExeName) + �teste_copiado.txt�; if FileExist(arq) then begin CopyFile(ConvertStringToPChar(arq), ConvertStringToPChar(arqcopy), False); ShowMessage(�Arquivo Copiado�); end; end;[/color:22be7b85eb]

T+ :wink:

Rodrigo Costa · Answer

Valeu pela ajuda celo-faveri, mas n�o funcionou para arquivos protegidos.Eu quero copiar o arquivo NTUSER.DAT e n�o consigo !Alguem sabe como fazer ?...

Beppe · Answer

[quote:e2e2470f0b=�celo-faveri�][quote:e2e2470f0b][color=darkblue:e2e2470f0b]function ConvertStringToPChar(arq: String): PChar;Var PCharString : Array[0..255] of Char; begin Result := StrPCopy(PCharString,arq);end;[/color:e2e2470f0b][/quote:e2e2470f0b][/quote:e2e2470f0b]N�o fa�a isso. A fun��o StrPCopy copia a string para o array passado, retornando o mesmo. O problema � que voc� est� retornando mem�ria que � garbage, como voc� usar� o retorno da fun��o s� quando ela retornar, acessando assim mem�ria inv�lida.Quando houver necessidade de converter uma string para PChar para passar para uma fun��o, use uma typecast. Ex Pointer(Minha_String).Ataliba...

Rodrigo Costa · Answer

Obrigado pela resposta Ataliba, mas o problema n�o � este, pois nem usei esta fun��o. O problema � que este comando: [color=red:73914ac543]CopyFile(�C:\ntuser.dat�, �C:\backup\ntuser.dat�, False);[/color:73914ac543] n�o funciona para arquivos protegidos, funciona apenas para copiar arquivos comuns (txt,doc,exe...).

Ser� que alg�em sabe como fazer, ou pelo menos saiba que n�o tem como copiar arquivos protegidos do Windows ?

F�rum copiar arquivo #195116