Проблема с реестром

[kettanaito]

Подскажите, в чем здесь ошибка:

procedure Tcdpmain.Bound1Click(Sender: TObject);
var RegFile:TRegIniFile;
begin
RegFile:=TRegIniFile.Create;
RegFile.RootKey:=HKEY_CLASSES_ROOT;
RegFile.WriteString('.html','','Cdp.Document');
RegFile.WriteString('Cdp.Document','','Cdp Document');
RegFile.WriteString('Cdp.Document\DefaultIcon','',Application.Exename);
RegFile.WriteString('Cdp.Document\Shell\Open\Command','',Application.ExeName+' "%1" ');
RegFile.CloseKey;
RegFile.Free;
end;

Пытаюсь определить формат ".html" как файл моей программы по-умолчанию. В итоге получаю: "Failed to create key Cdp.Document".

[kettanaito]

Пробую этот код: http://programmersforum.ru/showthread.php?t=110722
Та же ошибка.

[HyperZen]

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

Подскажите, в чем здесь ошибка:

...
RegFile.RootKey:=HKEY_CLASSES_ROOT;
RegFile.WriteString('.html','','Cdp.Document');
...

Зачем ты пишешь в корневую ветку реестра?
Пиши в HKEY_CURRENT_USER\Software\Classes. ..

[kettanaito]

Пишу так:

RegFile:=TRegIniFile.Create;
RegFile.RootKey:=HKEY_CURRENT_USER;
RegFile.WriteString('Software\Codepad','','Codepad.Document');
RegFile.WriteString('Codepad.Document','','Codepad.Document');

RegFile.WriteString('Software\Classes\.html','','Codepad.Document');
RegFile.WriteString('Software\Classes\.html','','Codepad Document');
RegFile.WriteString('Software\Classes\.html\DefaultIcon','',ExtractFilePath(Application.Exename)+'icon.ico');
RegFile.WriteString('Software\Classes\.html\Shell\Open\Command','',Application.ExeName+' "%1" ');

RegFile.WriteString('Software\Classes\.css','','Codepad.Document');
RegFile.WriteString('Software\Classes\.css','','Codepad Document');
RegFile.WriteString('Software\Classes\.css\DefaultIcon','',ExtractFilePath(Application.Exename)+'icon.ico');
RegFile.WriteString('Software\Classes\.css\Shell\Open\Command','',Application.ExeName+' "%1" ');
RegFile.CloseKey;
RegFile.Free;

Ранней ошибки нет, но выбранные типы файлов все-равно не открываются по умолчанию через мое приложение. Нужен перезапуск системы?

[HyperZen]

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

Пишу так:
Ранней ошибки нет, но выбранные типы файлов все-равно не открываются по умолчанию через мое приложение. Нужен перезапуск системы?

Выше ты сам привел ссылку на этот же форум, читай ту ветку до конца - там есть твой ответ...

[fate]

я что-т не въеду TRegIniFile это ж для работы с ini файлами, а для реестра TRegistry

[Пепел Феникса]

TRegIniFile это ж для работы с ini файлами

неа, это для работы с реестром, как с ини файлами.

[kettanaito]

HyperZen, в ветке одно сообщение с кодом (от ТС), который я привел в предыдущем посте и который не работает под мой тип файлов. Я не могу правильно описать эту работу с ключами потому что везде на примерах создают новый ключ под свое "выдуманное" расширение файлов, а мне нужно перезаписать существующее.

Приведите пример на .html, если не трудно, пожалуйста.

[Пепел Феникса]

после перезагрузки тоже ничего не меняется?

[kettanaito]

Пепел Феникса, все остается по-прежнему, перезагружал. Странно вообще как-то, даже если вручную иду через "Открыть с помощью » МояПрограмма.ехе" то окно выбора "Открыть с помощью" просто обновляется, моя программа не заносится в список доступных и тем более не запускается. Не понимаю..