Copiar arquivos sem deixá-los como ´read only´

Delphi

16/11/2004

Boa tarde!
Em um aplicativo que estou fazendo, necessito copiar algumas fotos para diretórios diferentes. Contudo, a cópia dos arquivos acabam saindo apenas como leitura...
O código q utilizo é simplesmente:

If Not CopyFile(PChar(FrmIncluir.EdtFoto2.Text),
          PChar(FrmIncluir.EdtFot2.Text), True) Then
            ShowMessage(´Imagem 2 não gravada!´);


Desta forma, ocorre o q já expliquei. Existe alguma forma de fazer a cópia e deixar o dado como ´arquivo´, e não como ´apenas leitura´?!

Valeu!!!!!!!!!!!


Pedro Bugim

Pedro Bugim

Curtidas 0

Respostas

Gandalf.nho

Gandalf.nho

16/11/2004

Por acaso esses arquivos são copiados a partir de um CD?


GOSTEI 0
Pedro Bugim

Pedro Bugim

16/11/2004

Poxa, o pior é q não... é do próprio pc. Simplesmente troco os dados de uma pasta para outra...


GOSTEI 0
Keitarosan

Keitarosan

16/11/2004

Bom, como a Gandalf.nho perguntou, vem de um CD??
Porque se vier, é comum vir como somente leitura, porém, você pode alterar os atributos do mesmo arquivo, assim que ele for copiado...

com: function FileSetAttr(const FileName: string; Attr: Integer): Integer;

Assim você tira o atributo de Read-Only...
Pra ver mais informacoes, da uma olhada no Help do Delphi kra


GOSTEI 0
Pedro Bugim

Pedro Bugim

16/11/2004

:D Caraca! show de bola! Funcionou perfeitamente!
Valeu mesmo galera!
Abraços,
Pedro Bugim :D


GOSTEI 0
POSTAR