taxi(游少爷) 在帮我解决一个问题

uses Registry;procedure RegistryFile(bRegistry: boolean);
const
  SKey = 'coolfile\shell\open\command';
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CLASSES_ROOT;
  if bRegistry then
  begin
    Reg.OpenKey('.cool', true);
    Reg.WriteString('', 'coolfile');
    Reg.CloseKey;
    Reg.OpenKey(SKey, true);
    Reg.WriteString('', Application.ExeName + ' %1');
    Reg.CloseKey;
  end
  else begin
    Reg.DeleteKey('.cool');
    Reg.DeleteKey('coolfile');
  end;
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST + SHCNF_FLUSH, nil, nil);
  Reg.Free;
end;