[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;