Valeu!
----- Original Message -----
From: "Eduardo Buffara" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, March 31, 2006 11:42 AM
Subject: Re: [delphi-br] Copiar arquivo com janelinha do windows
Tente esse código :
Coloque no uses: ShellApi
{ - Coloque um botão no form e altere o evento OnClick deste botão conforme
abaixo:}
procedure TForm1.Button1Click(Sender: TObject);
var
Dados: TSHFileOpStruct;
Begin
FillChar(Dados,SizeOf(Dados), 0);
With Dados do
Begin
wFunc := FO_COPY;
pFrom := PChar('c:\teste\*.txt');
pTo := PChar('a:\');
fFlags:= FOF_ALLOWUNDO;
End;
SHFileOperation(Dados);
end;
Espero ter ajudado...
Att,
Eduardo Buffara
----- Original Message -----
From: Leandro
To: delphi-br@yahoogrupos.com.br
Sent: Friday, March 31, 2006 11:26 AM
Subject: [delphi-br] Copiar arquivo com janelinha do windows
Bom dia,
Alguem sabe um comando para copiar arquivos, mas usando
aquela janela de cópia do Windows? Tipo o winzip, que descompacta
um arquivo na pasta temporária, depois copia ele pra pasta correta....
Agradeço qualquer dica.
Leandro
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
__________ Informação do NOD32 IMON 1.1461 (20060329) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
