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...