フォルダオプションの変更を反映 (ID:28380)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

魔法のコマンド見つけました

参照元
IDEA: Show/ Do not Show Hidden files and folders
ttp://www.donationcoder.com/Forums/bb/index.php?topic=8492.5;wap2

【サンプルプログラム】
フォームにボタンとチェックボックスを置いて
uses Registry を追加
Windows 2000SP4 & XP SP1 で確認

{ExploreWClass or CabinetWClass の検索と更新}
function EnumWinProcUpdate(aHandle: HWND; param: Pointer): BOOL; stdcall;
var
  wName :array [0..79] of Char;
begin
  Result := True;
  GetClassName(aHandle, wName, 80);
  if (StrLIComp(wName, 'ExploreWClass', 80) = 0) or
     (StrLIComp(wName, 'CabinetWClass', 80) = 0) then begin
    SendMessage(aHandle, WM_COMMAND, 28931, 0);
  end;
end;

procedure TMainExpForm.Button1Click(Sender: TObject);
const                                      //表示しない  表示する
  RP_HIDDEN: array[Boolean] of Integer = ($00000002, $00000001);
  RP_HIDEEXT: array[Boolean] of Integer = ($00000001, $00000000);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create(KEY_WRITE);
  try
    reg.RootKey := HKEY_CURRENT_USER;
    if reg.OpenKey(EXP_ADV_KEY, False) then begin
      reg.WriteInteger('hidden', RP_HIDDEN[CheckBox1.Checked]);
      reg.WriteInteger('HideFileExt', RP_HIDEEXT[CheckBox1.Checked]);
      reg.CloseKey;
      {更新}
      EnumChildWindows(0, @EnumWinProcUpdate, 0);
    end;
  finally
    reg.Free;
  end;
end;

【追加】
NTになると、ShellState で保持している模様。
レジストリのインポート・エクスポートで設定を切り換え、
メッセージを飛ばしても効果がないことから、環境依存？
Shell32.dllのバージョン５以降かな？
でも、自分用だからこれでよしと。

←解決時は質問者本人がここをチェックしてください。

戻る