[digital-stream]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
Reg: TRegistry;
begin
Reg:=TRegistry.Create; // ???????
Reg.RootKey := HKEY_CLASSES_ROOT; // ????????? ???????? ?????

  Reg.OpenKey('.dev\', true);
  Reg.WriteString('', 'BSMPLAER.wav');
  Reg.WriteString('Winamp_Back', 'BSMPLAER.wav');

  Reg.OpenKey('\BSMPLAER.wav\DefaultIcon\', true);
  s:=ExtractFilePath(Application.ExeName)+'Icons\wav.ico'+',0';
  Reg.WriteString('', s);

  Reg.OpenKey('\BSMPLAER.wav\Shell\Open\', true);
  Reg.WriteString('', 'Открыть Wav в BSMP');

  Reg.OpenKey('command\', true);
  s:='"'+Application.ExeName+'" "%1"';
  Reg.WriteString('', s);
  Reg.Free;

  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end; 

Админ: Пользуемся тегами для оформления кода!

так этот код не прет

[Snake22]

хм и ни одного ответа...
может кто знает как в вин7 ассоциации прикрутить?
данный выше код норм работает в ХР и не работает в 7ке, после его применения ничего не меняется

[lmikle]

Да, вроде, также все.
Добавь закрытие ключей на всякий случай... (Reg.CloseKey.

[robt]

любой код с использованием HKEY_CLASSES_ROOT является говнокодом и некорректен для любой винды
должны использоваться ветки из HKEY_LOCAL_MACHINE или HKEY_CURRENT_USER

[angvelem]

Сообщение от robt

любой код с использованием HKEY_CLASSES_ROOT является го...

Очень любезный ответ. И что, предложите руками править реестр для таких случаев?

[offtop] Тут уже были подобные отвечающие, гадили и уходили. Надеюсь вы не из таких.[/offtop]

[robt]

Сообщение от angvelem

Очень любезный ответ. И что, предложите руками править реестр для таких случаев?

не понял претензии и при чем тут "руками править" ?

[ChinYan]

любой код с использованием HKEY_CLASSES_ROOT является говнокодом и некорректен для любой винды
должны использоваться ветки из HKEY_LOCAL_MACHINE или HKEY_CURRENT_USER

Продемонстирируйте пример ассоциации файлов без использования ключа, предназначенного для ассоциации файлов

[NumLock]

robt, изучай: File Association Example