Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-06-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Copiar, mover y borrar una carpeta y todo su contenido

Con las siguientes funciones podemos copiar, mover y borar carpetas y todo su contenido:

Código Delphi [-]
uses
  ShlObj, Masks, ShellApi;

function CopiarCarpeta(const carpetaOrigen,
  carpetaDestion: string) : boolean;
var
  FileOp: TSHFileOpStruct;
begin
  FillChar(FileOp, SizeOf(FileOp), #0);
  with FileOp do
  begin
    wFunc := FO_COPY;
    Wnd := GetDesktopWindow;
    pTo := PChar(carpetaOrigen);
    pFrom := PChar(carpetaDestion+#0#0);
    fFlags := FOF_NOCONFIRMATION or
      FOF_SILENT or FOF_ALLOWUNDO;
  end;
  Result := (ShFileOperation(FileOp) = 0);
end;

function MoverCarpeta(const carpetaOrigen,
  carpetaDestion: string) : boolean;
var
  FileOp: TSHFileOpStruct;
begin
  FillChar(FileOp, SizeOf(FileOp), #0);
  with FileOp do
  begin
    wFunc := FO_MOVE;
    Wnd := GetDesktopWindow;
    pTo := PChar(carpetaOrigen);
    pFrom := PChar(carpetaDestion+#0#0);
    fFlags := FOF_NOCONFIRMATION or
      FOF_SILENT or FOF_ALLOWUNDO;
  end;
  Result := (ShFileOperation(FileOp) = 0);
end;

function BorrarCarpeta(const rutaCarpeta: string) : boolean;
var
  FileOp: TSHFileOpStruct;
begin
  FillChar(FileOp, SizeOf(FileOp), #0);
  with FileOp do
  begin
    wFunc := FO_DELETE;
    Wnd := GetDesktopWindow;
    pFrom := PChar(rutaCarpeta+#0#0);
    fFlags := FOF_NOCONFIRMATION or
      FOF_SILENT or FOF_ALLOWUNDO;
  end;
  Result := (ShFileOperation(FileOp) = 0);
end;
Responder Con Cita
  #2  
Antiguo 19-06-2006
René Luis René Luis is offline
Registrado
 
Registrado: jun 2006
Ubicación: Las Tunas, Cuba
Posts: 1
Poder: 0
René Luis Va por buen camino
El código está muy bién, pero a la hora de copiar una carpeta y su contenido a un path con el mismo nombre, se demora mucho en sobreescribirla y además, debería tener un Progressbar que te indique si la copia se efectua o no.
Responder Con Cita
  #3  
Antiguo 28-04-2010
Avatar de Cañones
Cañones Cañones is offline
Miembro
 
Registrado: ene 2007
Ubicación: La Paz Entre Ríos
Posts: 354
Poder: 18
Cañones Va por buen camino
Hola. La verdad que entiendo poco lo que hace la función, pero en elgún punto puedo saber el tamaño de la carpeta?
Gracias.
Responder Con Cita
  #4  
Antiguo 31-05-2011
juank1971 juank1971 is offline
Miembro
 
Registrado: feb 2008
Posts: 230
Poder: 17
juank1971 Va por buen camino
Hay un error en copiar estan invertidos pFrom Con pTo
donde dice en CopiarCarpeta
[delphi]
pTo := PChar(carpetaOrigen);
pFrom := PChar(carpetaDestion+#0#0);
[delphi]

debe decir
[delphi]
pFrom := PChar(carpetaOrigen);
pTo := PChar(carpetaDestion+#0#0);
[delphi]

Responder Con Cita
  #5  
Antiguo 30-05-2013
Avatar de ingabraham
ingabraham ingabraham is offline
Miembro
 
Registrado: ago 2007
Posts: 614
Poder: 17
ingabraham Va por buen camino
Thumbs up

muy buen codigo, felicitaciones, muy util.
__________________
Enseñar es la virtud de un sabio.
Responder Con Cita
  #6  
Antiguo 01-04-2015
jbecerra jbecerra is offline
Miembro
NULL
 
Registrado: mar 2015
Posts: 16
Poder: 0
jbecerra Va por buen camino
Hola...como va? una consulta.. ¿que es "GetDesktopWindow"?
Responder Con Cita
  #7  
Antiguo 01-04-2015
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.058
Poder: 29
jhonny Va camino a la famajhonny Va camino a la fama
Cita:
Empezado por jbecerra Ver Mensaje
Hola...como va? una consulta.. ¿que es "GetDesktopWindow"?
Simplemente es el código "Handle" del Desktop de Windows.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 21:01:44.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi