расширения по умолчанию в делфи

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

Добавляю в реестр тип файла "txt" из текстовика,что бы моя программа открывала по умолчанию,но по умолчанию он ни как не хочет становится,как был блокнот по умолчанию,так и остается.
Любые другие расширения устанавливаются,но только если у этих расширений по умолчанию ни какой программы не было,типа "ini".А если в ручную файлу с расширением "ini" выставить блокнот,то после этого моя программа так же не может сделать через реестр себя по умолчанию.
пробовал так:

begin
reg := TRegistry.Create; 
reg.RootKey := HKEY_CLASSES_ROOT; 
reg.OpenKey('.txt',true);
reg.WriteString('', 'LETTER');
reg.CloseKey;
reg.OpenKey('LETTER\DefaultIcon',true);
reg.WriteString('', paramstr(0) + ', 0');
reg.CloseKey;
reg.OpenKey('LETTER\shell\open\command', true);
reg.WriteString('', ParamStr(0) + ' "%1"');
reg.CloseKey;
reg.Free;

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

1)мне кажется чтото ты не туда пишешь
2)попробуй этот модуль(в нем пример вроде есть)

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

Все тоже самое делаю,попробуйте у Вас будет по умолчанию?

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

используй модуль.
в нем все рабочее, блин, и зачем я это сделал

[Ntlegend]

от пример для *.bmp файлов

var
 Reg: TRegistry;
begin
 Reg := TRegistry.Create;
 Reg.RootKey := HKEY_CLASSES_ROOT;
 Reg.OpenKey('.BMP' , True);
 Reg.WriteString('', 'BMPfile');
 Reg.CloseKey;

 Reg.CreateKey('BMP'+'file_cyd');
 Reg.OpenKey('BMPfile\DefaultIcon', True);
 Reg.WriteString('', Application.ExeName + ',0');
 Reg.CloseKey;
 Reg.OpenKey('BMPfile\shell\open\command', True);
 Reg.WriteString('', Application.ExeName + ' "%1"');
 Reg.CloseKey;
 Reg.Free;
end;

думаю Михаил Юрьевич Вы заметите отличие вашего метода )

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

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

от пример для *.bmp файлов

var
 Reg: TRegistry;
begin
 Reg := TRegistry.Create;
 Reg.RootKey := HKEY_CLASSES_ROOT;
 Reg.OpenKey('.BMP' , True);
 Reg.WriteString('', 'BMPfile');
 Reg.CloseKey;

 Reg.CreateKey('BMP'+'file_cyd');
 Reg.OpenKey('BMPfile\DefaultIcon', True);
 Reg.WriteString('', Application.ExeName + ',0');
 Reg.CloseKey;
 Reg.OpenKey('BMPfile\shell\open\command', True);
 Reg.WriteString('', Application.ExeName + ' "%1"');
 Reg.CloseKey;
 Reg.Free;
end;

думаю Михаил Юрьевич Вы заметите отличие вашего метода )

Вы знаете, честно,вообще ни чего не заметил,
кроме как ,у вас Application.ExeName ,а у меня paramstr(0)

все один в один.

и у Пепел Феникса,модуль один в один,смысл добавления расширения в реестр везде одинаковый,но вопрос мой был такой:


Добавляю в реестр тип файла "txt" из текстовика,что бы моя программа открывала по умолчанию,но по умолчанию он ни как не хочет становится,как был блокнот по умолчанию,так и остается.
Любые другие расширения устанавливаются,но только если у этих расширений по умолчанию ни какой программы не было,типа "ini".А если в ручную файлу с расширением "ini" выставить блокнот,то после этого моя программа так же не может сделать через реестр себя по умолчанию.
пробовал так:

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

попробуй пройти по примеру в модуле.
там сначало убирается программа по умолчанию для нужного типа файла а потом ставится новая

[uberchel]

Вот, ищё !
Всегда этой процедурой пользуюсью.

procedure RegisterFileType(FileType, FileTypeName, Description, ExecCommand: string); 
begin 
if (FileType='') or (FileTypeName='') or (ExecCommand='') then exit;  
if FileType[1]<>'.' then FileType:='.'+FileType;  
if Description='' then Description:=FileTypeName;  
with Treginifile.create do  
try rootkey := hkey_classes_root;  
writestring(FileType,'',FileTypeName);  
writestring(FileTypeName,'',Description);  
writestring(FileTypeName+'\shell\open\command','',ExecCommand+' "%1"'); 
finally free;  end; end;

[Квэнди]

[offtop]
ни в одном из примеров нет ни одной проверки... а вы работаете с hkey_classes_root, доступ к которому может получить далеко не каждый...
If WriteString fails, an exception is raised, and the value is not written to the registry. а try-а с обработкой соответствующего класса исключения никто не делает....
OpenKey -функция, а всем на это как- то все равно
[/offtop]