Delphi: Kopiowanie katalogu z CD na HDD i zmiana atrybutów na zapisywalne

procedure Kopiuj(s1,s2:string);
var
P:TSHFileOpStruct;
begin
 
 P.Wnd:=Form1.Handle;                          //te komendy sa do wyswietlania okienka z kopiowaniem 
 P.lpszProgressTitle:=PAnsiChar('Kopiowanie'); //MOŻESZ JE SKASOWAĆ!

 P.wFunc:=FO_COPY; //ustawianie na kopiowanie
 P.pFrom:=PAnsiChar(s1); //ustawianie katalogu zrodlowego
 P.pTo:=PAnsiChar(s2);   //ustalanie katalogu docelowego
 P.fFlags:=FOF_NOCONFIRMMKDIR; //szczerze mowiac nie wiem do czego to jest ale lepiej zeby bylo ;)
 SHFileOperation(P); //wywolywanie kopiowania

 FileSetAttr('s2', 0);  //zmiana atrybutow na normalne
end;

Kopiuj(KatalogZrodlowy,KatalogDocelowy);

Kopiuj('E:\Dane','C:\MojeDane');