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

[digital-stream]

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

  Reg.OpenKey('.wav\', 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;

там не прет



___________
1) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

2) Кросспост на форуме запрещён!

Не забывайте об этом!
Модератор.

[GunSmoker]

По рукам за HKEY_CLASSES_ROOT.

http://www.gunsmoker.ru/2010/05/90.html - пример №3.