Проверка наличия записи в реестре

[Кристинка89]

Как проверить соществование записи в реестре и если есть то не ассоциировать файлы а просто запускать форму
вот код ассоциации файла с программой

Reg:=TRegistry.Create; // создаем
  Reg.RootKey := HKEY_CLASSES_ROOT; // указываем корневую ветку
  Reg.OpenKey('.tr\OpenWithProgids\', true);
  Reg.WriteString('Tutorial.tr', '');
  Reg.OpenKey('\Tutorial.tr\DefaultIcon\', true);
  ss:=Application.ExeName+',0';
  Reg.WriteString('', ss);
  Reg.OpenKey('\Tutorial.tr\Shell\Open\', true);
  Reg.WriteString('', 'Открыть в Tutorial');
  Reg.OpenKey('command\', true);
  ss:='"'+Application.ExeName+'" "%1"';
  Reg.WriteString('', ss);
  Reg.Free;
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);

[FaTaL]

If Reg.KeyExists и Reg.ValueExists Вам помогут.

[astecenko]

  Reg:=TRegistry.Create; // создаем
  Reg.RootKey := HKEY_CLASSES_ROOT; // указываем корневую ветку
  if Reg.KeyExists('.tr\OpenWithProgids\')=False then
  begin
  Reg.OpenKey('.tr\OpenWithProgids\', true);
  Reg.WriteString('Tutorial.tr', '');
  Reg.OpenKey('\Tutorial.tr\DefaultIcon\', true);
  ss:=Application.ExeName+',0';
  Reg.WriteString('', ss);
  Reg.OpenKey('\Tutorial.tr\Shell\Open\', true);
  Reg.WriteString('', 'Открыть в Tutorial');
  Reg.OpenKey('command\', true);
  ss:='"'+Application.ExeName+'" "%1"';
  Reg.WriteString('', ss);
  end;
  Reg.Free;
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);