Помогите советом

[Михаил Юрьевич]

Подскажите пожалуйста такой вопрос:
Ассоциирую текстовые файлы через реестр,
вношу через Formcreate следующий код-
procedure Tform1.reestr;
var
reg:TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('.txt',true);
reg.WriteString('', 'Let_txt_v1');
reg.CloseKey;
reg.Free;
end;
Все работает нормально,но только добавляю
еще один код чтобы открывалось моей программой
по умолчанию :

reg.RootKey := HKEY_USERS;
reg.OpenKey('S-1-5-21-790525478-2000478354-725345543-1003\Software\Microsoft\Windows\Cur rentVersion\Explorer\FileExts\.txt\ OpenWithList',true);
reg.WriteString('', 'Let_txt_v1');
reg.CloseKey;

Когда вставляю этот код,компилируется все нормально,
но при открытии программы выскакивает окно с ошибкой:
Эта ошибка выскакивает если Delphi открыт-
Project Project1.exe raised exception class ERegistryException
with message 'Failed to set data for'''.Process stopped.Use Step
or Run to continue.
А если проект откомпилирован и сохранен,то при запуске выскакивает
вот такая ошибка-
'Failed to set data for'
Нажимаешь OK и программа работает нормально дальше,а если
убрать последний код то все нормально запускается,вообщем дело
в последнем коде,а что именно не пойму

[ReacXX]

Тебе надо ещё сделать правильное открытие а то чем он будет открывать? Допустем у тебя есть TMemo и реестр ты сделал чтоб через реестр открывалось и вот всё скомпилировал а потом... Пошол искать файл *.txt вот нашол ты подходящий и решил открыть вот он тебе его открывает с ошибкой надо ещё указать куда текст добовлять...

[Михаил Юрьевич]

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

Тебе надо ещё сделать правильное открытие а то чем он будет открывать? Допустем у тебя есть TMemo и реестр ты сделал чтоб через реестр открывалось и вот всё скомпилировал а потом... Пошол искать файл *.txt вот нашол ты подходящий и решил открыть вот он тебе его открывает с ошибкой надо ещё указать куда текст добовлять...

Дело наверное не в этом,просто моя программа не может прописаться в реестр,а именно второй код,а вот почему не знаю

[B_N]

Михаил Юрьевич, а Вы вот этот "S-1-5-21-790525478-2000478354-725345543-1003" SID вообще проверяли? Он откуда вообще взялся? Это как бы случайным образом генерируемое при регистрации учётной записи "число".

[ReacXX]

Опа точно не заметил Михаил а B_N прав токо у тебя такой SID а к другим он не зарегистрируется. У меня например вот такой SID

S-1-5-21-436374069-484763869-1801674531-1004

[Михаил Юрьевич]

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

Опа точно не заметил Михаил а B_N прав токо у тебя такой SID а к другим он не зарегистрируется. У меня например вот такой SID

S-1-5-21-436374069-484763869-1801674531-1004

Если это так то программа не найдет путь на другом ПК,но она и на моем не прописывается где этот адрес есть

[B_N]

Пишите в HKCU или HKLM.

[Михаил Юрьевич]

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

Пишите в HKCU или HKLM.

При компиляции выдает ошибку что написано с орфографическими ошибками.

[Михаил Юрьевич]

Вот в этой строке нет ошибки,в самих кавычках ''
reg.RootKey := HKEY_USERS;
reg.OpenKey('S-1-5-21-790525478-2000478354-725345543-1003\Software\Microsoft\Windows\Cur rentVersion\Exp lorer\FileExts\.txt\OpenWithList',t rue);
reg.WriteString('', 'Let_txt_v1');
reg.CloseKey