![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Человеки please help мне. Как мне можно устоновить свой Browser по умолчанию на компе .
|
|
#2
|
||||
|
||||
|
Используй Пуск->>Выбор программ по умолчанию.
Или ты спрашиваешь, как это сделать программно? ![]() |
|
#3
|
|||
|
|||
|
Программно естестно!
|
|
#4
|
||||
|
||||
|
Может поможет:
Код:
procedure RegisterFileType(ext: string; FileName: string);
var
reg: TRegistry;
begin
reg:=TRegistry.Create;
with reg do
begin
RootKey:=HKEY_CLASSES_ROOT;
OpenKey('.'+ext,True);
WriteString('',ext+'file');
CloseKey;
CreateKey(ext+'file');
OpenKey(ext+'file\DefaultIcon',True);
WriteString('',extractfilepath(FileName)+'Files.ico');
CloseKey;
OpenKey(ext+'file\shell\open\command',True);
WriteString('',FileName+' "%1"');
CloseKey;
Free;
end;
end; |
|
#5
|
|||
|
|||
|
Не - этот тупизм. А я хочу чтоб как Мазила или Макстхон.
|