![]() |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]()
|
|
| Black_Joker |
|
|||
|
Бывалый ![]() Профиль Группа: Участник Сообщений: 212 Регистрация: 9.11.2002 Где: Таганрог Репутация: нет Всего: нет |
Народ, подскажите, как за в ПАСе или ДЕЛЬФе написать прогу для автоматической редактировки реестра.
Начальство не хочет бороться с вирусами, а по сети заразы бегает немерено. У них на машине лежат архивы (созданный вирусами) и антивирус не включают Палиться и лезти на машину некто не хочет, а так за долю секунды прогу скинул, запустил и после перезагрузки автоматический сканинг на вирусы, пока за ребятами сбегают, пока ребята придут, большая часть заразы уже побеждена. Вопрос: как сделать прогу для редактирования реестра (т.е. чтоб вписала нужный параметр) |
|||
|
||||
| Dexter |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 1562 Регистрация: 2.7.2002 Где: Москва, Бирюлево Репутация: 1 Всего: 4 |
Это типа как "Я хочу написать QUAKE IV. Как это сделать?"
Поконкретней. И не будут же тут за тебя писать всю программу. -------------------- The only thing you really know about me is... ...that's all you'll ever know |
|||
|
||||
| Medved |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 7209 Регистрация: 15.9.2002 Где: Kazakhstan, Astan a Репутация: 14 Всего: 154 |
Я так понимаю вопрос в том, как осуществлять поиск требуемого параметра, или ключа реестра.
В Delphi есть специальный класс TRegistry для работы с реестром. Вызовите справку по этому классу, я думаю там достаточно все просто описано, даже без особо глубокого знания английского языка. Плюс много примеров по работе с этим классом. Желаю удачи. P.S. Если все же не разберетесь, то постите в эту тему вопрос, который вызвал затруднение, Вам ответят. -------------------- |
|||
|
||||
| Dexter |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 1562 Регистрация: 2.7.2002 Где: Москва, Бирюлево Репутация: 1 Всего: 4 |
Поиска там если не ошибаюсь нету
-------------------- The only thing you really know about me is... ...that's all you'll ever know |
|||
|
||||
| Medved |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 7209 Регистрация: 15.9.2002 Где: Kazakhstan, Astan a Репутация: 14 Всего: 154 |
Да, поиска нет, но можно выкрутиться... я для этого и приписал постскриптум...
-------------------- |
|||
|
||||
| Vit |
|
|||
![]() Vitaly Nevzorov ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Поиск ключа делается точно так же как и в любой другой древовидной структуре(например поиск файла) - при помощи рекурсивной функции...
-------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Black_Joker |
|
|||
|
Бывалый ![]() Профиль Группа: Участник Сообщений: 212 Регистрация: 9.11.2002 Где: Таганрог Репутация: нет Всего: нет |
Всем спасибо.
Во-первых хочу извиниться за грамматические ошибки в названии. Торопился очень, карточка заканчивалась. Во-втрых, куда прописатья знаю, вопрос в том, как добавить строку в реестр |
|||
|
||||
| Borland_Delphi_6 |
|
||||
![]() LoneLINEss ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 2509 Регистрация: 5.11.2002 Где: in fortune dreams ... Репутация: нет Всего: 20 |
Если нужно просто прописать строку в реестр, то это делается так:
Вот примерно так. -------------------- Blind Guardian Fan :: BMSTU Student :: A polar bear is a rectangular bear after a coordinate transform. Мои фотографии |
||||
|
|||||
| Medved |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 7209 Регистрация: 15.9.2002 Где: Kazakhstan, Astan a Репутация: 14 Всего: 154 |
Забыл после reg.WriteString(); добавить
Иначе изменения не сохраняться. -------------------- |
|||
|
||||
| Cashey |
|
|||
![]() Бессмертный ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 3441 Регистрация: 13.11.2002 Где: в столице Репутация: 2 Всего: 60 |
В Delphi имеется модуль Registry, который обеспечивает доступ к системному реестру. Приведенный ниже фрагмент кода позволяет зарегистрировать расширение файлов *.mfe:
Uses Registry; … procedure TMainForm.FormCreate; var Reg:TRegistry; begin Reg:=nil; try Reg:=TRegistry.Create; Reg.RootKey:=HKEY_CLASSES_ROOT; Reg.OpenKey('\.mfe',True); Reg.WriteString('', 'MainFormData'); Reg.CloseKey; Reg.OpenKey('\MainFormData',True); Reg.WriteString('', 'My private datafiles'); Reg.CloseKey; Reg.OpenKey('\MainFormData\Shell\Open\Command',True); Reg.WriteString('',ParamStr(0)+' %1'); Reg.CloseKey; Reg.OpenKey('\MainFormData\DefaultIcon',True); Reg.WriteString('',ParamStr(0)+', 1'); Reg.CloseKey; Reg.Free; except if Assigned(Reg) then Reg.Free; end; end; -------------------- библия учит любить ближнего, а камасутра обучает как именно |
|||
|
||||
| SmaLL |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 557 Регистрация: 17.12.2002 Где: Voronezh Репутация: 1 Всего: 2 |
Для автоматического запуска проги при загрузке машинки, надо еЁ прописать в реестре в этих ключах:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run - запускаться будет при каждой загрузке HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce - запуститься только один раз, а потом ОС сама удалит эту запись. -------------------- Что ни делается - всЁ к лучшему! SmallWeb Мой адрес не дом и не улица, мой адрес родной пивзавод! |
|||
|
||||
![]()
|
| Правила форума "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. |