Copiar arquivos, digitado no edit
Pessoal precizava de uma ajuda em meu programa, gostaria de saber como eu copio um arquivo do desktop pro destino dele mais digitado no edit1 e possivel:????
eu uso esse comando, mas gostaria q a pessoa digitasse o diretorio no edit1
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(´*.mpb´);
pTo := PChar(´C:\Arquivos de programas\Infogrames\Deadly Dozen 2 Pacific Theater\Maps´);
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);
Em vez disso, que seja digitado no Edit1
pTo := PChar(´C:\Arquivos de programas\Infogrames\Deadly Dozen 2 Pacific Theater\Maps´);
podem me ajuda..............................
eu uso esse comando, mas gostaria q a pessoa digitasse o diretorio no edit1
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(´*.mpb´);
pTo := PChar(´C:\Arquivos de programas\Infogrames\Deadly Dozen 2 Pacific Theater\Maps´);
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);
Em vez disso, que seja digitado no Edit1
pTo := PChar(´C:\Arquivos de programas\Infogrames\Deadly Dozen 2 Pacific Theater\Maps´);
podem me ajuda..............................
Duvanel
Curtidas 0
Respostas
Aroldo Zanela
10/04/2004
Colega,
pTo := PChar(Edit1.Text);
GOSTEI 0
Rômulo Barros
10/04/2004
É mais fácil utilizando o método
COPYFILE(Origem,Destino);
GOSTEI 0