Copiando Arquivos

Question

Caros Amigos,Gostaria de saber como copiar arquivos para o HD, eh que estou confuso: :shock: Quero que ele copie de um diretorio padrao do CD (as vezes e D ou E), pois eu nao posso especificar pois a ...

Dbergkamps · Answer

por favor me ajudem...

Nerdex · Answer

Primeiro verifique o drive de CDRom da m�quina, com a ajuda disto:

Function Tipo_Drive(Drive:Char):String;
Const
Drive_Removable = 2;
Drive_Fixed = 3;
Drive_Remote = 4;
Drive_CdRom = 5;
Drive_RamDisk = 6;
var
Tipo: byte;
begin
Tipo := GetDriveType(PChar(Drive + �:\�));
Case Tipo of
0: Result := �Indeterminado�;
1: Result := �Inexistente �;
2: Result := �Remov�vel�;
3: Result := �Fixo�;
4: Result := �Rede�;
5: Result := �CD-ROM�;
6: Result := �RAM Disk�;
else Result := � Erro�;
End;
end;

Ap�s use a fun��o COPY, normalmente....
COPY(path de origem, path de destino);

[img:04d069750d]http://www.process.pop.com.br/Logo.jpg[/img:04d069750d]
[url]www.process.pop.com.br[/url]

F�rum Copiando Arquivos #215983