copiar archivos ocultos

[piccolo2101]

Bueno pues lo dicho...Mire un poquito y ya tengo el código

Código Delphi [-]
procedure Copia( source : string; dest : string);
var
   attr : integer;

begin
   if FileExists(source) then
   begin
      if CopyFile(PChar(source), PChar(dest),true) then
      begin
         attr := FileGetAttr(dest);
         if (attr and faHidden) <> 0 then
            FileSetAttr(dest, attr - faHidden);
      end;
end;

Un saludo y gracias.