Copiando Arquivos
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 unidade muda em cada maquina.
Desde jah agradeco a atencao :lol:
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 unidade muda em cada maquina.
Desde jah agradeco a atencao :lol:
Dbergkamps
Curtidas 0
Respostas
Dbergkamps
22/02/2004
por favor me ajudem
GOSTEI 0
Nerdex
22/02/2004
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);
[url]www.process.pop.com.br[/url]
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);
[url]www.process.pop.com.br[/url]
GOSTEI 0