Ассоциации

[romanzi]

Ошибок нет. Только код не рабочий.

 procedure AssociateHTML;      // Тип файла (расширение)
 var s:string;
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;

Reg.OpenKey('.txt\OpenWithList\', true);
Reg.WriteString('Rnote.txt', '');

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

Reg.OpenKey('\TestApplication.txt\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;

Мне кто-то сказал, что нету ключа закрытия, но я не смог понять.что это.

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

Reg.CloseKey;

[romanzi]

Не помогает.
Ассоциация заносится, но не работает.

[eduard93]

Видимо потому, что у вас в одном месте "Rnote.txt", а в другом - "TestApplication.txt".

[romanzi]

Ничего....

[eduard93]

Ну тогда regedit-ом смотрите что у других, и что у вас получается.