delphi和INNO SETUP 文件关联操作

最新推荐文章于 2024-03-30 14:41:32 发布

转载最新推荐文章于 2024-03-30 14:41:32 发布 · 161 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/smallmuda/archive/2009/08/13/1545220.html

文章标签：

#shell

本文提供了一种使用Delphi代码实现文件格式与程序关联的方法，并提供了手动设置文件关联的步骤。通过修改注册表键值，可以实现特定文件扩展名与应用程序之间的绑定。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;

也可以通过手动设置文件关联，方法是：打开一个文件夹--工具--文件夹选项--“文件类型”选项卡---单击下面的“高级”。

用 INNO 是很方便的，不要写代码，直接用 [Registry] 段就行了。比如：
[Registry]
Root: HKCR; Subkey: "Real 媒体文件"; ValueType: String; ValueData: "Real 媒体文件";Flags: uninsdeletekey
Root: HKCR; Subkey: "Real 媒体文件\DefaultIcon"; ValueType: String; ValueData: "{app}\abc.ICO";Flags: uninsdeletekey
Root: HKCR; Subkey: "Real 媒体文件\shell\open\command"; ValueType: String; ValueData: "{app}\myplayer.exe %1";Flags: uninsdeletekey
Root: HKCR; Subkey: "Real 媒体文件\shell\用 My Player 打开(&O)\command"; ValueType: String; ValueData: "{app}\myplayer.exe %1";Flags: uninsdeletekey
Root: HKCR; Subkey: "*.rmvb"; ValueType: String; ValueData: "Real 媒体文件";Flags: uninsdeletekey
Root: HKCR; Subkey: "*.rm"; ValueType: String; ValueData: "Real 媒体文件";Flags: uninsdeletekey
Root: HKCR; Subkey: "*.ra"; ValueType: String; ValueData: "Real 媒体文件";Flags: uninsdeletekey

转载于:https://www.cnblogs.com/smallmuda/archive/2009/08/13/1545220.html