Qual é o erro, companheiro? Sds.
>From: "Rodrigo - Winsoft" <[EMAIL PROTECTED]> >Reply-To: delphi-br@yahoogrupos.com.br >To: "Lista - Delphi-br" <delphi-br@yahoogrupos.com.br> >Subject: [delphi-br] Mover Arquivos >Date: Wed, 15 Mar 2006 16:13:06 -0300 > >Boa tarde galera... > >Estou com um probleminha..... > >Tenho a função abaixo q utilizo pra copiar ou mover arquivos.... Na maioria >da vezes ela funciona legal...mas as vezes não consegue mover ou copiar o >arquivo... Preciso de algo q consiga mover sem dar erro... > >Será q alguem poderia me ajudar ? > >Desde já agradeco... > >function ProcessArquivo(const Origem, Destino : string; Operacao, >Modo:Integer) : Boolean; >Const > Aborted : Boolean = False; >var > shfo : TSHFileOpStruct; >begin > FillChar(shfo,SizeOf(shfo),$0); > with shfo do > begin > if Operacao > 2 then > begin > operacao := 2; > end; > > if Modo > 5 then > begin > modo := 1; > end; > > case operacao of > 1: wFunc := FO_MOVE; > 2: wFunc := FO_COPY; > end; > > pFrom := Pchar(Origem); > pTo := Pchar(Destino); > case Modo of > 1: fFlags := FOF_SILENT; > 2: fFlags := FOF_ALLOWUNDO or FOF_FILESONLY; > 3: fFlags := FOF_RENAMEONCOLLISION; > 4: fFlags := FOF_NOCONFIRMATION; > 5: fFlags := FOF_SIMPLEPROGRESS; > end; > end; > Result := (SHFileOperation(shfo)= 0) and (not Aborted); >end; > > > > >Obrigado. > >Rodrigo Pedroso >Winsoft Informática - (14) 3664-1586 >[EMAIL PROTECTED] > >Obrigado. > >Rodrigo Pedroso >Winsoft Informática - (14) 3664-1586 >[EMAIL PROTECTED] > >[As partes desta mensagem que não continham texto foram removidas] > _________________________________________________________________ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br -- <<<<< 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
