Ассоциации

[romanzi]

Код ассоциации с файлами:

procedure TForm2.Button15Click(Sender: TObject);
var s:string;
Reg:TRegistry;

begin
  Reg:=TRegistry.Create; // создаем
  Reg.RootKey := HKEY_CLASSES_ROOT; // указываем корневую ветку

  Reg.OpenKey('.dev\OpenWithProgids\', true);
  Reg.WriteString('TestApplication.txt', '');

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

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

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

  Reg.Free;

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

Он работает! Но.что бы ассоциация действовала её нужно включить через "Свойство" (то-есть в самых подходящих программах нужно выбрать программу,на которую я поставил ассоциацию).

[Человек_Борща]

Привет!
Дабл-топик
Трипл-топик

ссылки на указанные мною темы, и тематика которых полностью с точностью до кода повторяет текущую. Посему дайте Тс предупреждение. За не умение адекватно излагать свои мысли. И за создания дубликатов оних и тех же тем.
В темах(по ссылкам, не однократно давались решения).
Пока!