[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; 

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

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