Ассоциации

[romanzi]

Возникла такая проблема, код который я давно использовал для ассоциаций с файлами,я переделал с .rtf на .html формат.

При вызове функции ничего не происходит.

procedure AssociateHTML;
var s:string;
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;

Reg.OpenKey('.html\OpenWithProgids\', true);
Reg.WriteString('Rnote.html', '');

Reg.OpenKey('\TestApplication2.html\DefaultIcon2\', true);
s:=Application.ExeName+',0';
Reg.WriteString('', s);

Reg.OpenKey('\TestApplication2.html\Shell\Open\', true);
Reg.WriteString('', 'Открыть с помощью Rnote');

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

Reg.Free;

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

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

вообще-то привильно:

.html/OpenWithList/

создаёшь там подраздел с именем программы и там уже Shell/open/blablabla