Скрытые папки

← →
Nuke (2004-08-09 10:45) [0]

Как программно скрыть\показать скрытые папки в win xp? Спасибо.

← →
Rouse_ © (2004-08-09 10:53) [1]

В смысле расшаренные ресурсы или папки на локальном компьютере?

← →
Ivolg (2004-08-09 11:05) [2]

или ты про Атрибуты говоришь?

← →
Anatoly Podgoretsky © (2004-08-09 11:15) [3]

Программно не надо, это прерогатива пользователя или админа. За самовольство в этом случае бьют по рукам.

← →
Ivolg (2004-08-09 11:26) [4]

Anatoly Podgoretsky

Смысле из-за того что программно. Атрибуты меняешь?

← →
Александр1 (2004-08-10 05:56) [5]

Если реч идёт про атрибуты файлов:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label1: TLabel;
Label2: TLabel;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
SR:TSearchRec;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
FileSetAttr("C:\1.txt",sr.Attr+faReadOnly);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FileSetAttr("C:\1.txt",sr.Attr+faHidden);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
FileSetAttr("C:\1.txt",sr.Attr+faSysFile);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
FileSetAttr("C:\1.txt",sr.Attr+faArchive);
end;
{----------------------------------------------}
procedure TForm1.Button5Click(Sender: TObject);
begin
FileSetAttr("C:\1.txt",sr.Attr-faReadOnly);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
FileSetAttr("C:\1.txt",sr.Attr-faHidden);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
FileSetAttr("C:\1.txt",sr.Attr-faSysFile);
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
FileSetAttr("C:\1.txt",sr.Attr-faArchive);
end;

end.

Только я не помню чё какая прощедура какой атрибут меняет.
Ты там по эксперементируй!

← →
Александр1 (2004-08-10 05:58) [6]

Только если ты хочешь таким образом от кого-нибуть чё-то спрятать, то это почти дохлый номер. Вот лично у меня на компе стоит галочка "Отображать всё, даже скрытые файлы и папки". Мне так удобнее.

Скрытые папки Найти похожие ветки