Lo que yo usu es la funcion ShFileopstruct para copiar directorios, subdirectorios y archivos, aqui pongo el codigo para darme a entender un poco mas.
function CopiaTodo(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);
//aqui me manda el error, aviso o comienza la copia, aqui necesito que si manda error no lo muestre, mas sin embargo el progreso de la copia si, ya puse el try except como me indicaste pero nunca toma el except, la variable result como han de saber devuelve 0 o 1 solamente. Gracias
__________________
Sergio Esquivel Arredondo
T.S.U. Informatica
|