怎样通过程序控制 资源管理器 显示已知文件的扩展名(50分)

  • 主题发起人 主题发起人 liuchuanbo
  • 开始时间 开始时间
L

liuchuanbo

Unregistered / Unconfirmed
GUEST, unregistred user!
说详细点，就是打开 资源管理器，菜单 &lt;察看&gt;-&gt; &lt;文件家选项..&gt;中的<br>　　选项中，有　“隐藏一直类型文件的扩展名”　复选框，<br>请问：　怎样通过程序　将其置为非选中状态？
 
?? 有人知道吗？
 
修改注册表项：<br>键：HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced<br>值：HideFileExt 设为0<br>资源管理器刷新即可。<br>
 
那怎样通过程序控制呢，而不是手工。
 
use &nbsp;TRegistry
 
真的没有人知道吗？
 
你不会连Tregistry也不会用吧?<br>&nbsp;
 
真的不会，
 
const<br>&nbsp; KeyName = '/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced';<br>var &nbsp;Key &nbsp;: TRegistry;<br>&nbsp; &nbsp; &nbsp;i: integer;<br>begin<br>&nbsp; &nbsp;Key := TRegistry.Create;<br>&nbsp; &nbsp;Key.RootKey := HKEY_CURRENT_USER;<br>&nbsp; &nbsp;If Key.OpenKey(KeyName,False) then begin<br>&nbsp; &nbsp; &nbsp; i := key.readInteger('HideFileExt');//取得当前的设置值<br>&nbsp; &nbsp; &nbsp; Key.Write('HideFileExt',1-i); //开关设置，是1则变0，是0则变1<br>&nbsp; &nbsp;end else<br>&nbsp; &nbsp; &nbsp; ShowMessage('打不开主键!');<br>&nbsp; &nbsp;Key.Free;<br>end;<br>
 
Thank you,I see.
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

S
[教程]以管理员身份运行程序的一种方法
回复
0
查看
1K
swish
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部