Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Реестр 
:(
    Опции темы
The MASTER
  Дата 15.9.2004, 18:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Old master)
**


Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5



Скажите пожалуйста как записать и считать из реестра? И кто мне может дать все основные функции как в Tweak XP?
PM MAIL WWW ICQ   Вверх
Alex
Дата 15.9.2004, 21:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162



Код
uses
   Registry
;
...
procedure TForm1.Button1Click(Sender: TObject);
// Чтение
begin
 with TRegistry.Create do try
   RootKey:= HKEY_CURRENT_USER;
   CheckBox1.Checked:= OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System') and
                       ValueExists    ('DisableRegistryTools') and
                       ReadBool       ('DisableRegistryTools');

 finally
   Free;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
// Запись
begin
 with TRegistry.Create do try
   RootKey:= HKEY_CURRENT_USER;
   if OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System',true) then
     WriteBool('DisableRegistryTools', CheckBox1.Checked);
 finally
   Free;
 end;
end;

Добавлено @ 21:30
Раздел HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer
Ключ Описание
NoFind Команда поиск
NoFavoritesMenu Меню "Избранное" (Win98)
NoRun Команда "Выполнить"
NoSetFolders Вкладка "Настройка"
NoSetTaskbar Вкладка "Панель задач"
NoClose Команда "Завершение работы"
NoDesktop Убрать все значки с рабочего стола
NoNetHood Значок "Сетевое окружение"
NoRecentDocsMenu Меню "Документы" (Win98)
NoInternetIcon Значок "Internet" на рабочем столе
NoLogOff Запретить "Завершение сеанса ..." (Win98)
NoAddPrinter Запретить добавления принтеров
NoDeletePrinter Запретить удаление принтеров
NoPrinterTabs Скрытие вкладок "Общие" и "Сведения"
NoRecentDocsHistory Запретить добавление в меню "Документы"
NoPrinters Запретить команду «Принтеры»
Раздел HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System
NoDispCPL Заблокировать настройки экрана
NoFileSysPage Запретить кнопку "Файловая система"
NoVirtMemPage Запретить кнопку "Виртуальная память"
NoSecCPL Запретить вкладку "Пароли"
NoAdminPage Запретить вкладку "Удаленное управление"
NoDevMgrPage Запретить вкладку "Устройства"
NoDispBackgroundPage Скрыть вкладку "Фон"
NoDispScrSavPage Скрыть вкладку "Заставка"
NoDispSettingsPage Скрыть вкладку "Настройка"
NoDispAppearancePage Скрыть вкладку "Оформление"
NoPwdPage Вкладка "Смена паролей"
DisableRegistryTools Редактирование реестра
Раздел HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Network
NoNetSetupSecurityPage Скрыть вкладку "Управление доступом"
DisablePwdCaching Запретить кэширование пароля


Это сообщение отредактировал(а) alex-co - 15.9.2004, 21:29


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Pakshin A. S.
Дата 15.9.2004, 21:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61



Цитата(The @ 15.9.2004, 19:20)
Скажите пожалуйста как записать и считать из реестра?

Код

uses
Registry;

procedure Demo;
var
reg:TRegistry;   {Press F1 or see unit Registry}
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.CreateKey('DemoKey');
reg.OpenKey('DemoKey', False);
reg.WriteString('ProbaStr', 'Demo!');
reg.CloseKey;
reg.OpenKeyReadOnly('DemoKey');
ShowMessage(reg.ReadString('ProbaStr'));
reg.CloseKey;
reg.Free;
{!!!
reg.DeleteKey();
reg.DeleteValue();
reg.GetKeyNames();
reg.GetValueNames();
reg.HasSubKeys;
reg.KeyExists();
reg.RenameValue();
!!!}
end;

Добавлено @ 21:32
Sorry, был отключен во время набора... sad.gif
PM   Вверх
The MASTER
Дата 15.9.2004, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Old master)
**


Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5



alex-co и Pakshin A. S. извените насчёт реестра ну запись и чтение я уже разобрался, а вот кто бы мне мог бы дать большое количество ключей с описанием и с параметрами! Спасибо!
smile.gif
PM MAIL WWW ICQ   Вверх
_hunter
Дата 16.9.2004, 10:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98



есть книга ( или серия книг ) Реестр виндовс ХХ ( или секреты виндовс ХХ ) ( страниц на 700 ) -- думаю поможет ;)


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
The MASTER
Дата 16.9.2004, 12:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Old master)
**


Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5



Ага а где я её возьму!
PM MAIL WWW ICQ   Вверх
_hunter
Дата 16.9.2004, 12:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98



в книжном магазине ;)


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Alex
Дата 16.9.2004, 16:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162





--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
bartram
Дата 18.9.2004, 14:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: 3
Всего: 29



Есть прога Xp твикер она когда изменяет что-то записывает это в лог а из лога можно прочитать ! Смекаешь wink.gif


--------------------
В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image 

PM MAIL ICQ   Вверх
The MASTER
Дата 18.9.2004, 19:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Old master)
**


Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5



СПАСИБО, я уже написал прогу, ЮЗАЙТЕ http://forum.vingrad.ru/index.php?showtopic=29884
PM MAIL WWW ICQ   Вверх
Ripper
Дата 18.9.2004, 19:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lonely soul...
**


Профиль
Группа: Участник
Сообщений: 920
Регистрация: 30.6.2004
Где: г. Москва

Репутация: 1
Всего: 23



Поздравляю в начинаниях (Где то ты писал что тока учишся дельфи поэтому я сделал такой вывод) Щас протестим) Одна ошибка уже найдена)
Ваще прога сама по себе красивая всмысле оформление. Повяление проги надо делать по центру и редактор реестра у мя не запускается


--------------------
"Он знает: надо смеяться над тем, что тебя мучит, иначе не сохранишь равновесия, иначе мир сведет тебя с ума" - Над кукушкиным гнездом
PM MAIL ICQ   Вверх
The MASTER
Дата 18.9.2004, 22:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Old master)
**


Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5



Как так:
ShellExecute(handle, 'open', 'regedit', nil, nil, sw_shownormal);

А по центру я сделаю и Спасибо то что оценил дизайн программы!
PM MAIL WWW ICQ   Вверх
Ripper
Дата 19.9.2004, 10:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lonely soul...
**


Профиль
Группа: Участник
Сообщений: 920
Регистрация: 30.6.2004
Где: г. Москва

Репутация: 1
Всего: 23



незнаю не хочет и все открыватся
так же где раздел о программе в конце слова настройки не хватает И =)
Не программЁра а программЕра имхо =)
не Радактор а Редактор реестра
компьютеров написано не правильно)) Проверь орфографию!
Добавлено @ 10:48
так же имхо ненадо писать скока функций на тему такую то
и там где уаление прог из реестра достаточно одной кнопки удалить
и м х о
Добавлено @ 10:48
Ты использовал XPManifest?
Добавлено @ 10:51
и ещё... щс на дельфи проверил твой код. у мя на дельфи работает а в проге нет. наверно где то у тебя ошибка


--------------------
"Он знает: надо смеяться над тем, что тебя мучит, иначе не сохранишь равновесия, иначе мир сведет тебя с ума" - Над кукушкиным гнездом
PM MAIL ICQ   Вверх
Alex
Дата 19.9.2004, 10:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162



Ripper здесь обсуждаются вопросы по delphi mad.gif
Свои замечания к программе оставляй в http://forum.vingrad.ru/index.php?showtopic=29884


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Ripper
Дата 19.9.2004, 11:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lonely soul...
**


Профиль
Группа: Участник
Сообщений: 920
Регистрация: 30.6.2004
Где: г. Москва

Репутация: 1
Всего: 23



alex-co Ок сорри...учту)



--------------------
"Он знает: надо смеяться над тем, что тебя мучит, иначе не сохранишь равновесия, иначе мир сведет тебя с ума" - Над кукушкиным гнездом
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0844 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.