Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c