如何利用注册表注册一程序与特定的文件类型(如:.xyz)关联, 并自动设置该文件类型的图标,并使图标修改马上生效?

Question

uses registry, ShlObj;procedure TForm1.RegistryFile
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CLASSES_ROOT;
    reg.OpenKey('.xyz', true);
    reg.WriteString('', 'xyzfile');
    reg.CloseKey;
    reg.OpenKey('xyzfile\shell\open\command', true);
    reg.WriteString('',Application.ExeName + ' %1');
    reg.Closekey;
    SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST + SHCNF_FLUSH, nil, nil);
  finally
    reg.Free;
  end;
end;
  

Answer 1

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST + SHCNF_FLUSH, nil, nil);
可是在Delphi6中找不到ShObj.dcu文件,请问taxi该如何处理?

Answer 2

使用API的时候应该在uses中加入 ShellAPI;