| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
А как ассоциировать муз. файлы с моей программой?
Homo Sapiens © (2006-07-07 12:47:00)Удалено модератором
Footballer (2006-07-07 12:53:00) [101]Удалено модератором
SerJaNT (2006-07-07 12:53:00) [102]Удалено модератором
SerJaNT (2006-07-07 12:50:00) [103]Удалено модератором
PSPF2003 (2006-07-07 12:49:00) [104]Разберешся сам ? :)
uses
REGISTRY;
procedure TForm1.FreeButton1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('.NFO' , True);
Reg.WriteString('', 'MSInfo.Document');
Reg.CloseKey;
Reg.CreateKey('NFO'+'file_cyd');
Reg.OpenKey('MSInfo.Document\DefaultIcon', True);
Reg.WriteString('', Application.ExeName + ',0');
Reg.CloseKey;
Reg.OpenKey('MSInfo.Document\shell\open\command', True);
Reg.WriteString('', Application.ExeName + ' "%1"');
Reg.CloseKey;
Reg.Free;
MessageBox(Application.Handle, 'Для вступления изменений в силу перезагрузите комп !', 'Внимание', 0)
end;
StriderMan (2006-07-07 12:48:00) [105]Удалено модератором
SerJaNT (2006-07-07 12:48:00) [106]Удалено модератором
| |
Страницы: 