![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#4
|
||||
|
||||
![]() dr. F.I.N., спасибо, то что надо. Только "Пример 3" не открывается, но и не надо - уже решил вопрос.
NumLock, ты что, КЭП, что ли? ![]() ![]() P.S. Если кому-то нужно - фрагмент решения: Код:
uses Registry; var Reg: TRegistry; begin Reg:=TRegistry.Create; Reg.RootKey:=HKEY_CLASSES_ROOT; Reg.OpenKey('proto',true); Reg.WriteString('','URL:My URL Protocol'); Reg.WriteString('URL Protocol',''); Reg.CloseKey; Reg.OpenKey('proto\shell\open\command',true); Reg.WriteString('','"'+ParamStr(0)+'" -link %1'); Reg.CloseKey; Reg.Free; end; Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj Последний раз редактировалось PhoeniX, 17.01.2011 в 11:29. |