标签:TRegistry 文件 Sender TObject TestFile reg procedure 图标
使用 TRegistry 类[4]: 文件打开与文件图标的关联
代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses Registry, ShlObj; procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Align := alTop; Memo1.ScrollBars := ssBoth; Button1.Caption := '设置文件关联、图标关联'; Button2.Caption := '取消设置'; if (ParamStr(1) <> '') and FileExists(ParamStr(1)) then Memo1.Lines.LoadFromFile(ParamStr(1)); end; procedure TForm1.Button1Click(Sender: TObject); var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_CLASSES_ROOT; {在注册表中添加我们虚拟的 .tst 格式, 并指定默认项的值是 TestFile} reg.OpenKey('.tst', True); reg.WriteString('', 'TestFile'); reg.CloseKey; {文件打开关联} reg.OpenKey('TestFile\shell\open\command', True); reg.WriteString('', ParamStr(0) + ' %1'); reg.CloseKey; {文件图标关联} reg.OpenKey('TestFile\DefaultIcon', True); reg.WriteString('', ParamStr(0) + ',0'); reg.CloseKey; reg.Free; {刷新图标显示} SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); end; {清除上面的设置} procedure TForm1.Button2Click(Sender: TObject); var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_CLASSES_ROOT; reg.DeleteKey('.tst'); reg.DeleteKey('TestFile'); reg.Free; SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); end; end.posted on 2008-08-24 00:17 万一 阅读(4132) 评论(26) 编辑 收藏
标签:TRegistry,文件,Sender,TObject,TestFile,reg,procedure,图标 来源: https://blog.51cto.com/u_14617575/2746661
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。