Ayudenme a ocultar una carpeta

[look]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
VAR PATH:STRING;
begin
 PATH:='C:\BD';
WinExec(Pchar('ATTRIB +H '+PATH), SW_HIDE);
end;

PATH , es la ruta de la carpeta que deseas ocultar , tambien puedes jugar con otros atributos , como archivo de sistema , o solo lectura...