如何将程序与文件类型关联，但仅限当前用户？

Question

因此，如果不强制可怜的用户输入其管理员密码，我就无法将我的程序与特定文件类型关联起来（对于家庭用户来说可能没问题，但对于企业环境中的用户来说这是一个巨大的问题）。在这种情况下，唯一的解决方案是仅为当前用户进行关联。

我已经尝试过了，但有些东西不起作用。

如果我理解正确的话，我必须在 ctCurUserFileExt 中编写一个类似（比方说）“.mp3”的密钥，并在其中写入类似“my_file”的内容。然后在 ctCurUserClases 中我添加一个如下所示的键：

WriteReg_String(RootKey, ctCurUserClases+ 'my_file\shell\open\command', '', Application.ExeName+ ' "%L"', TRUE) 

但是，当我双击该文件时，Windows 会询问我应该使用哪个应用程序打开它。

这是常数：

CONST
     RootKey= 'HKEY_CURRENT_USER';
     ctCurUserFileExt= '\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\';
     ctCurUserClases = '\Software\Classes\';

Answer 1

如果您想为每个用户注册关联，请将您的数据写入

HKEY_LOCAL_MACHINE\Software\Classes

如果您只想为当前用户注册关联，请将您的数据写入

HKEY_CURRENT_USER\Software\Classes

这是后者的操作方法：

with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('\Software\Classes\.myfile', true) then
      WriteString('', 'MyAppDataFile');
    if OpenKey('\Software\Classes\MyAppDataFile', true) then
      WriteString('', 'My Very Own Text File Type');
    if OpenKey('\Software\Classes\MyAppDataFile\DefaultIcon', true) then
      WriteString('', 'C:\WINDOWS\notepad.exe');
    if OpenKey('\Software\Classes\MyAppDataFile\shell\open\command', true) then
      WriteString('', 'C:\WINDOWS\notepad.exe "%1"');
  finally
    Free;
  end;
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0);

这将关联 .myfile 文件，称为“My非常自己的文本文件类型”，这样它们将具有 notepad.exe 的图标，并由 notepad.exe 打开。最后一行告诉资源管理器“重新加载”自身以反映对文件关联所做的更改。例如，资源管理器文件列表视图将更新。 WinAPI函数SHChangeNotify在ShlObj.pas中声明，因此您需要使用ShlObj。

请注意，shell\open\command 中的 %1 将扩展到当前文件。例如，如果双击C:\some dir\test.myfile，则资源管理器将执行命令

C:\WINDOWS\notepad.exe "C:\some dir\test.myfile"

Answer 2

您是否考虑过按照 http://support.microsoft.com/kb 在 HKEY_CURRENT_USER\Software\Classes 下设置它/257592