Foros Club Delphi - Ayudenme a ocultar una carpeta

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Ayudenme a ocultar una carpeta (https://www.clubdelphi.com/foros/showthread.php?t=62641)

scs	06-01-2009 14:44:12

Ayudenme a ocultar una carpeta

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

look	06-01-2009 15:23:48

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

06-01-2009 20:15:10

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

look	06-01-2009 20:54:45

Cita:

Empezado por cHackAll (Mensaje 333548)

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,:p,, jeje
¡hoy he aprendido otra cosa!...

cHackAll

07-01-2009 01:30:42

Cita:

Empezado por look (Mensaje 333554)

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

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

La franja horaria es GMT +2. Ahora son las 10:20:38.