procedure TForm1.RegisterFileType(prefix:String; exepfad:String); var reg:TRegistry; begin reg:=TRegistry.Create; reg.RootKey:=HKEY_CLASSES_ROOT; //create a new key --> .pci reg.OpenKey('.'+prefix,True); //create a new value for this key --> pcifile reg.WriteString('',prefix+'file'); reg.CloseKey; //create a new key --> pcifile reg.CreateKey(prefix+'file'); //create a new key pcifile\DefaultIcon reg.OpenKey(prefix+'file\DefaultIcon',True); //and create a value where the icon is stored --> c:\project1.exe,0
reg.WriteString('',exepfad+',0'); reg.CloseKey; &!
nbsp;reg.OpenKey(prefix+'file\shell\open\command',True); //create value where exefile is stored --> c:\project1.exe "%1" reg.WriteString('',exepfad+' "%1"'); reg.CloseKey; reg.Free; end;
procedure TForm1.Button1Click(Sender: TObject); begin RegisterFileType('pci','c:\project1.exe'); end;
Комментирий от Eugine Veselov (veselov@astral.ntu-kpi.kiev.ua)
А не проще при создании установочного пакета, выставить настройки реестра, заодно и дерегистрацию обеспечим, да и файлы нужного типа будут с нужными иконками ДО первого запуска програмы.
Как определить видимость ScrollBar'а?
Как в MultiLine Editor контролах (и в частности в TRichEdit) определить, видим ли в текущий момент ScrollBar (...
Поиск
Киньте кто-нить фрагментик типа "Искать далее",плиз
Interbase Client\Server
Помогите плиз срочно... Есть программа... на Клиент серверной архитектуре. Сервер БД - InterBase. Так вот при обращении ...
редирект вывода на экран
Есть консольное приложение, написанное не мной, которое мне нужно запустить и получить то, что оно вывело на экран. ...
Исключение "Floating point overflow"
В приложении выполняется SQL-запрос к таблице Paradox, содержащей поля типа Number. На четырех из шести машин запрос ...
Разделение строки на слова.
Этот вопрос тут уже был по-моему много раз. Скажите ещё раз пожалуйста. то есть "Привет всем" - в StringList слова ...
WM_CREATE
Здраствуйте! пишу программу для игрового зала, как мне глобально перехватить subj, для того чтобы ...
Что в версии тебе моей...
Признайтесь, у каждого из нас когда-либо возникало желание вывести в своей программе информацию о версии файла. Неважно, в заголовок ли окна, или в файл журнала. Некоторые просто пишут версию вручную, а некоторые используют встроенную в файлы формата PE возможность заполнять блок информации о версии файла. Я расскажу о втором способе.
Delphi 5 для профессионалов
Эта книга поможет вам овладеть программированием в Delphi, включая язык Object Pascal, компоненты Delphi (как работу с существующими компонентами, так и разработку ваших собственных), поддержку баз данных и приложений клиент/сервер, базовые элементы программирования в среде Windows и разработку COM-приложений, а также Web-программирование. Для чтения этой книги нет необходимости в глубоких знаниях какой-либо из этих тем, но что вам действительно понадобится — это основы программирования на Паскале.
Автор: М. Кэнту
Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.
Для души
Хокку дня
Друг друга Отразить никак не могут Василек и небо...
Афоризмы
Молодые жены старых мужей обычно еще при жизни мужа думают о том, кто утрет им слезы.... (Карло Гольдони)
Фраза дня
День пропал не зря.
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В городе Пенсакола во Флориде жителям предписывается всегда иметь при себе не меньше10-ти долларов.
В городе Лафайет в Калифронии считается преступлением плеваться в пределах метра от других людей.
И на закуску коротенький анекдот
- Что такое хард? - Это то, что можно от души швырнуть об стенку. - А что такое софт? - Это то, что можно лишь обругать матом.