type

  TShellState = record

    { это все сидит в Flags1

    BOOL fShowAllObjects : 1;

    BOOL fShowExtensions : 1;

    BOOL fNoConfirmRecycle : 1;

    BOOL fShowSysFiles : 1;

    BOOL fShowCompColor : 1;

    BOOL fDoubleClickInWebView : 1;

    BOOL fDesktopHTML : 1;

    BOOL fWin95Classic : 1;

    BOOL fDontPrettyPath : 1;

    BOOL fShowAttribCol : 1; // No longer used, dead bit

    BOOL fMapNetDrvBtn : 1;

    BOOL fShowInfoTip : 1;

    BOOL fHideIcons : 1;

    BOOL fWebView : 1;

    BOOL fFilter : 1;

    BOOL fShowSuperHidden : 1; <<< это 15-ый бит!!! Его передаем в IsBitOn/ChangeBitValue

    BOOL fNoNetCrawling : 1;

    }

    Flags1: DWORD;

 

    dwWin95Unused: DWORD; // Win95 only - no longer supported pszHiddenFileExts

    uWin95Unused: UINT;   // Win95 only - no longer supported cbHiddenFileExts

 

    // Note: Not a typo!  This is a persisted structure so we cannot use LPARAM

    lParamSort: Long;

    iSortDirection: Integer;

    version: UINT;

 

    // new for win2k. need notUsed var to calc the right size of ie4 struct

    // FIELD_OFFSET does not work on bit fields

    uNotUsed: UINT;       // feel free to rename and use

 

    { это все сидит в Flags2

    BOOL fSepProcess: 1;

 

    // new for Whistler.

    BOOL fStartPanelOn: 1;       //Indicates if the Whistler StartPanel mode is ON or OFF.

    BOOL fShowStartPage: 1;      //Indicates if the Whistler StartPage on desktop is ON or OFF.

 

    // new for Windows Vista

    BOOL fAutoCheckSelect: 1;

    BOOL fIconsOnly: 1;

    BOOL fShowTypeOverlay: 1;

 

    // new for Windows 8

    BOOL fShowStatusBar : 1;

 

    UINT fSpareFlags : 9;

    }

    Flags2: Word;

  end;

 

  procedure SHGetSetSettings(var lpss: TShellState; dwMask: DWORD; bSet: BOOL) stdcall; external 'shell32.dll';

 

function IsBitOn(Value: DWORD; BitIndex: Byte): Boolean;

begin

  Result := Value and (1 shl BitIndex) <> 0;

end;

 

procedure ChangeBitValue(var Value: DWORD; BitIndex: Byte; BitOn: Boolean);

begin

  if BitOn then

    Value := Value or (1 shl BitIndex)

  else

    Value := Value and not (1 shl BitIndex);

end;

 

// Скрыть/показать защищенные файлы (ЭТОТ КОД НЕ РАБОТАЕТ!)

procedure SHShowSuperHiddenFile(show: Boolean);

var

  lpss: TShellState;

begin

  ZeroMemory(@lpss, sizeof(TShellState));

 

  // меняем состояние 15-го бита в структуре, который содержит значение SHOWSUPERHIDDEN!!!

  ChangeBitValue(lpss.Flags1, 15, show);

 

  // Меняем состояние

  SHGetSetSettings(lpss, SSF_SHOWSUPERHIDDEN, True);

  // Сообщение Проводнику об изменениях

  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_FLUSHNOWAIT, nil, nil);

end;

 

// Определяем, скрыты или нет защищенные файлы

function ShGetShowSuperHiddenFileState:boolean;

var

  lpss: TShellState;

begin

  ZeroMemory(@lpss, sizeof(TShellState));

  // Получаем текущее состояние

  SHGetSetSettings(lpss, SSF_SHOWSUPERHIDDEN, False);

  // Возвращаем состояние из 15-го бита!!!

  result := IsBitOn(lpss.Flags1, 15);

end;

type

  tagSHELLSTATEW = record

    Data: DWORD;

    Data2: UINT;

    lParamSort: Integer;

    iSortDirection: Integer;

    version: UINT;

    uNotUsed: UINT;

 end;

  SHELLSTATEA = tagSHELLSTATEW;

  SHELLSTATEW = tagSHELLSTATEW;

  SHELLSTATE = SHELLSTATEW;

  TShellState = SHELLSTATE;

  PShellState = ^TShellState;

 

const

  //Data

  fShowAllObjects       = {text}000001;

  fShowExtensions       = {text}000002;

  fNoConfirmRecycle     = {text}000004;

  fShowSysFiles         = {text}000008;

  fShowCompColor        = {text}000010;

  fDoubleClickInWebView = {text}000020;

  fDesktopHTML          = {text}000040;

  fWin95Classic         = {text}000080;

  fDontPrettyPath       = {text}000100;

  fShowAttribCol        = {text}000200;

  fMapNetDrvBtn         = {text}000400;

  fShowInfoTip          = {text}000800;

  fHideIcons            = {text}001000;

  fWebView              = {text}002000;

  fFilter               = {text}004000;

  fShowSuperHidden      = {text}008000;

  fNoNetCrawling        = {text}010000;

 

  //Data2

  fSepProcess      = {text}000001;

  fStartPanelOn    = {text}000002;

  fShowStartPage   = {text}000004;

  fAutoCheckSelect = {text}000008;

  fIconsOnly       = {text}000010;

  fShowTypeOverlay = {text}000020;

 

const

  SSF_SHOWALLOBJECTS  = {text}000001;

  SSF_SHOWEXTENSIONS  = {text}000002;

  SSF_HIDDENFILEEXTS  = {text}000004;

  SSF_SERVERADMINUI   = {text}000004;

  SSF_SHOWCOMPCOLOR   = {text}000008;

  SSF_SORTCOLUMNS     = {text}000010;

  SSF_SHOWSYSFILES    = {text}000020;

  SSF_DOUBLECLICKINWEBVIEW = {text}000080;

  SSF_SHOWATTRIBCOL   = {text}000100;

  SSF_DESKTOPHTML     = {text}000200;

  SSF_WIN95CLASSIC    = {text}000400;

  SSF_DONTPRETTYPATH  = {text}000800;

  SSF_SHOWINFOTIP     = {text}002000;

  SSF_MAPNETDRVBUTTON = {text}001000;

  SSF_NOCONFIRMRECYCLE = {text}008000;

  SSF_HIDEICONS       = {text}004000;

  SSF_FILTER          = {text}010000;

  SSF_WEBVIEW         = {text}020000;

  SSF_SHOWSUPERHIDDEN = {text}040000;

  SSF_SEPPROCESS      = {text}080000;

  SSF_NONETCRAWLING   = {text}100000;

  SSF_STARTPANELON    = {text}200000;

  SSF_SHOWSTARTPAGE   = {text}400000;

 

procedure SHGetSetSettings(var lpss: TShellState; dwMask: DWORD; bSet: BOOL) stdcall; external 'shell32.dll';

// Скрыть/показать защищенные файлы (ЭТОТ КОД НЕ РАБОТАЕТ!)

procedure SHShowSuperHiddenFile(show: Boolean);

var

  lpss: SHELLSTATE;

begin

  ZeroMemory(@lpss, sizeof(lpss));

  // Получаем текущее состояние

  SHGetSetSettings(lpss, SSF_SHOWSUPERHIDDEN, False);

  if lpss.fShowSuperHidden <> show then

  begin

    lpss.fShowSuperHidden := show;

      // Меняем состояние

    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.fShowSuperHidden;

end;

// Скрыть/показать защищенные файлы (ЭТОТ КОД НЕ РАБОТАЕТ!)

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;