[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

[robt]

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

предназначенного для ассоциации файлов

предназначенного для ЧТЕНИЯ ассоциаций

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

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

и тебе того же желаю http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[NumLock]

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

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

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

предназначенного для ЧТЕНИЯ ассоциаций

и тебе того же желаю http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

сам же дал ссылку, а не читал:

If you write keys to a key under HKEY_CLASSES_ROOT, the system stores the information under HKEY_LOCAL_MACHINE\Software\Classes. If you write values to a key under HKEY_CLASSES_ROOT, and the key already exists under HKEY_CURRENT_USER\Software\Classes, the system will store the information there instead of under HKEY_LOCAL_MACHINE\Software\Classes.

т.е. про "говнокод", "некорректность" и "только для чтения" ни слова!!!

[robt]

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

сам же дал ссылку, а не читал:
т.е. про "говнокод", "некорректность" и "только для чтения" ни слова!!!

ну как же не читал ,первый же абзац
"It is primarily intended for compatibility with the registry in 16-bit Windows."
а использование конструкций оставленых для совместимости и есть некорректный говнокод
про только чтение указано здесь http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
"In general, HKEY_CLASSES_ROOT is intended to be read from but not written to. For more information, see the HKEY_CLASSES_ROOT article."

ну а если ты все еще считаеш себя правым ,то реши ка задачку используя только HKEY_CLASSES_ROOT
В винде зареганы 5 пользователей, Вася должен открывать файлы .тхт программой А, Петя программой Б а все остальные,включая новых пользователей программой В