我正在尝试添加注册一个带有文件扩展名的exe文件。下面的代码在 XP 中运行良好,但在 Win Vista/7 中抛出错误。
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('.' + ExtName, True);
reg.WriteString('', ExtName + 'file'); //error: Failed to set data for ''
reg.CloseKey;
reg.CreateKey(ExtName + 'file');
reg.OpenKey(ExtName + 'file\DefaultIcon', True);
reg.WriteString('', AppName + ',0');
reg.CloseKey;
reg.OpenKey(ExtName + 'file\shell\open\command', True);
reg.WriteString('', AppName + ' "%1"');
reg.CloseKey;
finally
reg.Free;
end;
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
我怎样才能在 Vista/7 中完成同样的事情?
最佳答案
您是否尝试过以管理员身份运行它?在 Vista 中,您无法以任何旧用户身份写入 HKEY_CLASSES_ROOT。在 XP 中也不能,除非您以高级用户/管理员身份运行。许多开发人员都是这样,但这不是重点。
换句话说,您需要提升才能执行此操作。 Here是一个很好的链接,介绍了如何设置 list 以将您的应用程序标记为具有此特征。
关于Delphi - 如何更改 Vista/Win 7 中的默认文件扩展名,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/2142175/