Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Не работает SSF_SHOWSUPERHIDDEN, Скрыть/Показать защищенные системные фай 
:(
    Опции темы
navodri
Дата 29.12.2021, 10:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 173
Регистрация: 26.10.2007

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



Господа, помогите разобраться, почему не хочет работать SSF_SHOWSUPERHIDDEN на Скрытие/Показ защищенных системных файлов. При этом, функция, которая определяет состояние файлов, работает корректно.

Код

// Скрыть/показать защищенные файлы (ЭТОТ КОД НЕ РАБОТАЕТ!)
procedure SHShowSuperHiddenFile(show: Boolean);
var
  lpss: SHELLSTATE;
  bShowAll: Boolean;
begin
  ZeroMemory(@lpss, sizeof(lpss));
  // Получаем текущее состояние
  SHGetSetSettings(lpss, SSF_SHOWSUPERHIDDEN, False);
  // Проверяем текущее состояние
  bShowAll := (lpss.Data and SSF_SHOWSUPERHIDDEN) = SSF_SHOWSUPERHIDDEN;
  // Если изменилось
  if (bShowAll <> show) then
  begin
    if (Show) then
      lpss.Data := 1
    else
      lpss.Data :=0;
    // Меняем состояние
    SHGetSetSettings(lpss, SSF_SHOWSUPERHIDDEN, True);
    // Сообщение Проводнику об изменениях
    SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_FLUSHNOWAIT, nil, nil);
  end;
end;
 
// Определяем, скрыты или нет защищенные файлы
function ShGetShowSuperHiddenFileState:boolean;
var
  lpss: SHELLSTATE;
begin
  ZeroMemory(@lpss, sizeof(lpss));
  // Получаем текущее состояние
  SHGetSetSettings(lpss, SSF_SHOWSUPERHIDDEN, False);
  // Возвращаем состояние
  result:= (lpss.Data and SSF_SHOWSUPERHIDDEN) = SSF_SHOWSUPERHIDDEN;
end;
 
// Скрываем/Показываем защищенные файлы
procedure TForm1.Button1Click(Sender: TObject);
begin
 if ShGetShowSuperHiddenFileState then
   SHShowSuperHiddenFile(false)
 else
   SHShowSuperHiddenFile(true);
end;

PM MAIL WWW   Вверх
navodri
Дата 23.1.2022, 10:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 173
Регистрация: 26.10.2007

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



Никаких идей?
PM MAIL WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.

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


 




[ Время генерации скрипта: 0.1143 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.