| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ComboBox и расширения файлов [D6, WinXP]

Theli ©   (2004-07-03 00:27:00) 

Доброго времени суток.
Помогите новичку:) Имеется ComboBox, со  списком определенных расширений файлов, нужно ассоцировать приложение с этими расширениями.

---

Marser   (2004-07-03 01:15:00) [1]

Асссоциирование:
r:=Tregistry.Create;
   with r do
   begin
    rootkey:=HKEY_CLASSES_ROOT;
    openkey('.ext',true);
    writestring('','Type Description');
    closekey;
    openkey('Type Description\Shell\open',true);
    writestring('','Menu item');
    closekey;
    openkey('Type Description\Shell\open\command',true);
    writestring('', somepath+'appl.exe %1');//Имя файла в первом параметре
    closekey;
    openkey('Type Description\DefaultIcon',true);
    writestring('',somepath2+'icon.ico');
    closekey;
   end;

---

KilkennyCat   (2004-07-03 01:10:00) [2]

Стандартная работа с TRegistry

RootKey := HKEY_CLASSES_ROOT

Если такого расширение нет в системе, то пишем следующее:
Reg.СreateKey('.нашерасширение', True);
Reg.WriteString('', 'Етосуперфайл');

здесь 'етосуперфайл' - имя раздела для нашей проги.

Создаем его такой веткой: 'Етосуперфайл\Shell\Open\Command' со значением True  и вписываем в нее строку ('',путькэзешнику + , ' "%1"')

еще можно присвоить иконку всем нашим файлам. Для этого достаточно набрать в консоли regedit и посмотреть как.

---

Наверх