![]() |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]()
|
|
| Spawn |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 278 Регистрация: 3.6.2002 Репутация: нет Всего: нет |
Как можно при помощи этой программы сделать установку на другом компе псевдонима Базы Paradox и соответственно указав расположение файлов для етого псевдонима?(наверное надо соответственно ставить и саму БД)
|
|||
|
||||
| adminlion |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 27 Регистрация: 14.7.2002 Репутация: нет Всего: нет |
В InstallShield есть General Options, там отмечаешь
минимум BDE затем появится окно, где надо выбрать что из bde надо взять лучше full. Затем появится окно. где надо создать alias базы и тогдале. После всего этого незабудь в Group and Folders вставить эти дравера куда надо, чтобы они ставились И это все... |
|||
|
||||
| Fedorenkoda |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 21 Регистрация: 5.8.2002 Репутация: нет Всего: нет |
Я обычно использую такую технологию.
В проекте InstallShield на вкладке Make registry changes, где определяются ключи реестра описываю следующий путь HKEY_LOCAL_MACHINE\SOFTWARE\SLAVYAN TECHNOLOGY\PLATPOR\1.0\ и ключ InstDir='<InstallDir>'. SLAVYAN TECHNOLOGY-это название нашей фирмы PLATPOR-это название нашего приложения, определенное на вкладке Set the visual design 1.0-это версия нашей программы. При инсталляции программы информация о каталоге, в который была установлена программа сохранится в ключе InstDir. Ну, а теперь как считать все это из дельфи и программно создать алиас, если он еще не создан(кстати говоря не обязательно создавать алиас в самом InstallShield, это можно сделать потом в самом дельфи, причем программно). procedure TForm_main.FormCreate(Sender: TObject); var key,instdir:string; reg:Tregistry; begin try reg:=Tregistry.create; key:='Software\Slavyan Technology\Platpor\1.0'; reg.RootKey:=HKEY_LOCAL_MACHINE; reg.OpenKey(key,false); instdir:=reg.ReadString('Instdir')+'\DB'; if instdir='\DB' then begin showmessage('Не зарегистрированная копия! Программа будет закрыта'); form_main.Close; Application.Terminate; end; reg.CloseKey; reg.Destroy; except showmessage('Не зарегистрированная копия! Программа будет закрыта'); form_main.Close; Application.Terminate; end; Session1.Active:=true; if Session1.IsAlias('Platpor')=false then begin Session1.AddStandardAlias('PlatPor',instdir,'Paradox'); Session1.SaveConfigFile(); end; end; У меня в программе базы данных хранятся в каталоге InstDir\DB. С наилучшими пожеланиями. Денис. |
|||
|
||||
| adminlion |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 27 Регистрация: 14.7.2002 Репутация: нет Всего: нет |
Все что ты написал пойдет.
Но вопрос был конкретный, как с помощью InstallShield перенести псевдоним. Если углубить твою тему. То эта прога вообще не нужна. Я сам набрасывал инсталятор для своих прог, более гибкий и красивый. Тогда все можно создать программно. Но надоли это? |
|||
|
||||
| Fedorenkoda |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 21 Регистрация: 5.8.2002 Репутация: нет Всего: нет |
Недостатки(большой размер, статическое определение каталога) перекрывают преимущества инсталляционного пакета InstallShield.И мне кажется, что лучше всего писать свои инсталяционные пакеты.Тем более, что в InstallShield нельзя определить защиту в виде серийного номера и т.п.
Если у тебя есть какие-то алгоритмы защиты или наработки, поделись, пожалуйста, опытом. Мой mail:[email protected] |
|||
|
||||
| adminlion |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 27 Регистрация: 14.7.2002 Репутация: нет Всего: нет |
алгоритмы я не могу сказать, так как у нас в конторе это комерческий продукт
Меня просто застрелят на месте понимаешь... Но два легких принципа 1 Можно сделать cab с кодированной информацией(файл) и через программу все это раскручивать, там ты можешь любой свой алгоритм по защите вставить 2 Все файлы можно скинуть в собтвенный exe, а при установке оттуда достовать файлы и устанавливать. Там тоже можно пхать что угодно. Это размытая информация. но другое не могу сказать. Над тем что ты просишь не я один потел. Извени, но более пожробно ничем не могу помочь |
|||
|
||||
| Fedorenkoda |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 21 Регистрация: 5.8.2002 Репутация: нет Всего: нет |
Спасибо и за эту информацию.
|
|||
|
||||
| AMIGO |
|
|||
|
Unregistered |
А я думаю, что все это можно реализовать и с помощью Install Shield Developer'а.
Я пользуюсь 8-ым. Спокойно создаю проги на основе BDE в Delphi и загоняю их в CAB-архив с помощью ISD 8. |
|||
|
||||
| Akella |
|
|||
![]() Творец ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 18485 Регистрация: 14.5.2003 Где: Корусант Репутация: 36 Всего: 329 |
А есть еще пакет инсталяции Wise - он ни чем не хуже Install Shield, и там даже есть, а может и нету, я точно не помню, генератор серийного ключа.
Можно, конечно, писать свои инсталяторы, но зачем изобретать велосипед, когда он давно изобретен. |
|||
|
||||
| <Spawn> |
|
|||
![]() Око кары:) ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 2776 Регистрация: 29.1.2003 Где: Екатеринбург Репутация: 44 Всего: 64 |
Я вот не понимаю зачем понимать темы годовой давности?
-------------------- "Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков. |
|||
|
||||
![]()
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |