Ayudenme a ocultar una carpeta

[scs]

Hola amigos siempre me he preguntado si será posible ocultar una carpeta de Windows o ponerle una contraseña desde un programa creado en delphi. Si ustedes saben como hacerlo por favor ayudenme....

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

[[cHackAll]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 SetFileAttributes('c:\windows', FILE_ATTRIBUTE_HIDDEN);
end;

[look]

Empezado por cHackAll

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); begin SetFileAttributes('c:\windows', FILE_ATTRIBUTE_HIDDEN); end;

, claro siempre hay otra manera de hacer las cosas,,, jeje
¡hoy he aprendido otra cosa!...

[[cHackAll]]

Empezado por look

, claro siempre hay otra manera de hacer las cosas,,, jeje
¡hoy he aprendido otra cosa!...

Si, lo puse pues si existe un "attrib" que hace otra cosa, tendras un resultado diferente al esperado