Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 828

Раздел: Delphi » Взаимодействие с Windows
/ вопрос открыт /

Здравствуйте!
Kak preobrazovat tip String \'hkey_local_machine\' v tip HKEY?

Naprimer vvozgu iz EDit\'a hkey_local_machine, a programma dolzgna nachat rabotat s etim kluchem?

Ilia Ermakov Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Ilia Ermakov (статус: 1-ый класс)
Вопрос отправлен: 4 августа 2007, 22:55
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Градов Ю.М.

Здравствуйте, Ilia Ermakov!
Немного вопрос не понятен: "В чем проблема?". Посмотрите в приложении, как можно реализовать из ComboBox и

Приложение:
  1. var
  2. Form1: TForm1;
  3. Reg: TRegistry;
  4.  
  5. implementation
  6.  
  7. {$R *.dfm}
  8.  
  9. procedure TForm1.FormCreate(Sender: TObject);
  10. begin
  11. ComboBox1.Text:='HKEY_CLASSES_ROOT';
  12. ComboBox1.Items.Add('HKEY_CLASSES_ROOT');
  13. ComboBox1.Items.Add('HKEY_CURRENT_USER');
  14. ComboBox1.Items.Add('HKEY_LOCAL_MACHINE');
  15. ComboBox1.Items.Add('HKEY_USERS');
  16. ComboBox1.Items.Add('HKEY_PERFORMANCE_DATA');
  17. ComboBox1.Items.Add('HKEY_CURRENT_CONFIG');
  18. ComboBox1.Items.Add('HKEY_DYN_DATA');
  19. end;
  20.  
  21. procedure TForm1.ComboBox1Change(Sender: TObject);
  22. begin
  23. Reg:=TRegistry.Create;
  24. Case ComboBox1.ItemIndex of
  25. 0: Reg.RootKey:=$80000000;
  26. 1: Reg.RootKey:=$80000001;
  27. 2: Reg.RootKey:=$80000002;
  28. 3: Reg.RootKey:=$80000003;
  29. 4: Reg.RootKey:=$80000004;
  30. 5: Reg.RootKey:=$80000005;
  31. 6: Reg.RootKey:=$80000006;
  32. 7: Reg.RootKey:=$80000007;
  33. end;
  34.  
  35. Reg.Free;
  36. end;
  37.  


Ответ отправил: Градов Ю.М. (статус: 8-ой класс)
Время отправки: 5 августа 2007, 14:35


Мини-форум вопроса

Всего сообщений: 1; последнее сообщение — 6 августа 2007, 08:57; участников в обсуждении: 1.
min@y™

min@y™ (статус: Доктор наук), 6 августа 2007, 08:57 [#1]:

Дополню ответ Градова Ю. М. На целый ответ не тянет, поэтому в форум :)




<font face="Courier New"><font color="#800080"><strong>procedure </strong></font>TForm1.ComboBox1Change(Sender:
TObject);
<font color="#800080"><strong>begin
  </strong></font>Reg:=TRegistry.Create;
  Reg.RootKey:= ComboBox1.ItemIndex <font color="#800080"><strong>or </strong></font><font
color="#0000FF"><strong>$80000000</strong></font>;
  <font color="#408080"><strong>//Какие либо действия
  </strong></font>Reg.Free;
<font color="#800080"><strong>end</strong></font>;
</font>
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 22 февраля 2025, 16:20
Выполнено за 0.02 сек.