VPF::скрытые папки - Форум программистов

ConstantinXXX

Дата 13.4.2007, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 246
Регистрация: 27.5.2006
Где: U.S.A. :-)

Репутация: нет
Всего: 0

как через делфи скрыть скрытые папки.
т.е. убрать галочку с св-ва папки отображать скрытые папки?
smile

--------
зарание спасиб....

--------------------

Как вы относитесь к девушкам, которые курят сигареты?Как не ослепнуть за компьютером© ORENCODE.info

Matematik

Дата 13.4.2007, 14:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Примерно так.

Код


procedure aaa(k:Integer);
var i:cardinal;
r:TRegistry;
begin
  r := TRegistry.Create;
  try
    r.RootKey := HKEY_CURRENT_USER;
    // False because we do not want to create it if it doesn't exist
    r.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced', False);
    r.WriteInteger('Hidden', k);
  finally
    r.Free;
  end;
  SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0, SMTO_NORMAL, 0, i);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  aaa(1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  aaa(2);
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »