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

[digital-stream]

Как сделать ассоциацию mp3 файлов как в Aimp на Delphi
и пробовал сделать так:

uses Registry, ShlObj;
...
var Reg: TRegistry;
...
procedure Associate;
var s:string;
begin
Reg:=TRegistry.Create; // создаем
Reg.RootKey := HKEY_CLASSES_ROOT; // указываем корневую ветку

Reg.OpenKey('.mp3\OpenWithProgids\', true);
Reg.WriteString('BSMP.mp3', '');

Reg.OpenKey('\BSMP.mp3\DefaultIcon\', true);
s:=Application.ExeName+',0';
Reg.WriteString('', s);

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

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

Reg.Free;

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

но нечего не получается
а если выбрать там другой расширение допустим .BBSSA но тогда работает
кто знает как решить эту проблему может Winamp препятствует !!!

[PTyTb32]

Сообщение от digital-stream

Как сделать ассоциацию mp3 файлов как в Aimp на Delphi
и пробовал сделать так:

uses Registry, ShlObj;
...
var Reg: TRegistry;
...
procedure Associate;
var s:string;
begin
Reg:=TRegistry.Create; // создаем
Reg.RootKey := HKEY_CLASSES_ROOT; // указываем корневую ветку

Reg.OpenKey('.mp3\OpenWithProgids\' , true);
Reg.WriteString('BSMP.mp3', '');

Reg.OpenKey('\BSMP.mp3\DefaultIcon\ ', true);
s:=Application.ExeName+',0';
Reg.WriteString('', s);

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

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

Reg.Free;

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;
но нечего не получается
а если выбрать там другой расширение допустим .BBSSA но тогда работает
кто знает как решить эту проблему может Winamp препятствует !!!

не знаю, меня тоже интересует и мучает этот вопрос, я как то делал что в открыть как появлялась моя программа и если ее там выбрать, то это применяется на все mp3 файлы, но пока я пытался добиться хотябы этого, я раза 4 винду менял.... там с реестром дофига работы(((((((((

[WinCoder]

PTyTb32 Думаете Вам ответят через 4 года? Код из проекта. Ассоциация работает без сбоев.

procedure FileAssociate(const Ext, progName: string; Icon: string = ''; ProgPath: string = '');
var r: TRegistry;
begin
  r:=TRegistry.Create;
  r.RootKey:=HKEY_CURRENT_USER;
  r.OpenKey('Software\Classes\.'+UpperCase(Ext),true);
  r.WriteString('',progName);
    r.CloseKey;
  r.OpenKey('Software\Classes\'+progName+'\shell\open\command',true);
  if ProgPath='' then
     r.WriteString('','"'+ParamStr(0)+'" "%1"')
  else
     r.WriteString('','"'+ProgPath+'" "%1"');
  r.CloseKey;
  if Icon<>'' then begin
    r.OpenKey('Software\Classes\'+progName+'\DefaultIcon',true);
    r.WriteString('',Icon);
    r.CloseKey;
  end;
  r.Free;
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

procedure FileUnAssociate(const Ext, progName:string);
var r: TRegistry;
begin
  r:=TRegistry.Create;
  r.RootKey:=HKEY_CURRENT_USER;
  if r.OpenKey('Software\Classes\.'+UpperCase(Ext),false) and
    (r.ReadString('') = progName) then begin
      r.WriteString('','');
      r.CloseKey;
      if r.OpenKey('Software\Classes\'+progName,false) then begin
         r.CloseKey;
         r.DeleteKey('Software\Classes\'+progName);
      end;
  end;
  r.Free;
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

[PTyTb32]

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

PTyTb32 Думаете Вам ответят через 4 года?

ну вы же ответили))) ну да, добавление в список программ способных запустить mp3 файлы, я уже сделал, а как его применить ко всем mp3-шкам???:confuse d: