Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Скрытые папки [D7]

Nuke © (2004-08-09 10:45:00)
Как программно скрыть\показать скрытые папки в win xp? Спасибо.

Александр1 (2004-08-10 05:58:00) [1]
Только если ты хочешь таким образом от кого-нибуть чё-то спрятать, то это почти дохлый номер. Вот лично у меня на компе стоит галочка "Отображать всё, даже скрытые файлы и папки". Мне так удобнее.

Александр1 (2004-08-10 05:56:00) [2]
Если реч идёт про атрибуты файлов:
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.

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

Ivolg (2004-08-09 11:26:00) [3]
Anatoly Podgoretsky

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

Anatoly Podgoretsky (2004-08-09 11:15:00) [4]
Программно не надо, это прерогатива пользователя или админа. За самовольство в этом случае бьют по рукам.

Ivolg (2004-08-09 11:05:00) [5]
или ты про Атрибуты говоришь?

Rouse_ (2004-08-09 10:53:00) [6]
В смысле расшаренные ресурсы или папки на локальном компьютере?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »