Ayuda copiar contenido de una carpeta en modo oculto

[force1758]

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

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;

[ecfisa]

Hola force1758 y bienvenido a los foros de Club Delphi.

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


Saludos.

[[escafandra]]

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.

[force1758]

Gracias a todos por la ayuda me sirvio de mucho