Ассоциация Файлов Windows 7

[digital-stream]

этот код работает на хр а на 7 выдает ошибку кто знает помогите Плззз
begin
Reg:=TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;

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


Reg.OpenKey('\BSMPLAER.mp3\DefaultI con\', true);
s:=exe+'Icons\mp3.ico'+',0';
Reg.WriteString('', s);

Reg.OpenKey('\BSMPLAER.mp3\Shell\Op en\', true);
Reg.WriteString('', 'Открыть Mp3 в BSMP');

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

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

[GunSmoker]

По рукам за HKEY_CLASSES_ROOT.

Читаем вдумчиво: http://msdn.microsoft.com/en-us/libr...75(VS.85).aspx