Foros Club Delphi - Ayuda copiar contenido de una carpeta en modo oculto

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Ayuda copiar contenido de una carpeta en modo oculto (https://www.clubdelphi.com/foros/showthread.php?t=74023)

Ayuda copiar contenido de una carpeta en modo oculto

Hola a todos los del foro bueno soy nuevo y quisiera que si me podrían ayudar ya quiero crear un programa que pueda copiar de modo oculto que no salga la barra de status que se ve el la pantalla cuando esta copiando un contenido demasiado pesado bueno estoy intentando con este code haber si me pueden dar alguna ayudita bueno gracias y saludos

Código:

function copiaroculto(Origen,Destino : String) :

  LongInt;

  var

        F : TShFileOpStruct;

        sOrigen, sDestino : String;



  begin

        Result := 0;

        sOrigen := Origen + #0;

        sDestino := Destino + #0;



        with F do 

        begin 

          Wnd   := Application.Handle;

          wFunc := FO_COPY;

          pFrom := @sOrigen[1];

          pTo   := @sDestino[1];

          fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION

        end;

 

        Result := ShFileOperation(F);

end; 

 

begin

 copiaroculto(Edit1.text,'TodoMio');

end;

Hola force1758 y bienvenido a los foros de Club Delphi. :)

Revisá si este [ enlace] te es de utilidad.

Saludos.

Código Delphi [-]fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT

La API SHFileOperation usa el Shell para la copia. Si no te interesa que se vea que copias, puedes usar otra API independiente del Shell, CopyFile. Mas directa de usar.

Saludos.

Gracias a todos por la ayuda me sirvio de mucho