![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
![]()
Вы похоже ничего неискали, даже здесь на форуме. А ведь я уже отвечал на подобный вопрос. Пользуйтесь поиском.
|
![]() |
![]() |
![]() |
#12 |
Регистрация: 09.08.2008
Сообщений: 4
|
![]()
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,registry, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var reg:TRegistry; M:Array[byte]of char;(*Массив в который все будем считывать*) begin reg:=TRegistry.Create;(*Создаем обьект типа TRegistry*) reg.RootKey:=HKEY_CURRENT_USER;(*Ус танавливаем корневой ключ*) reg.OpenKey('control panel',false);(*Открываем нужний под раздел*) reg.ReadBinaryData('111',m,length(m ));(*А теперь и считываем нужние дание из параметра 111*) ShowMessage(m); reg.Free; end; end. |
![]() |
![]() |
![]() |
#13 |
Форумчанин
Регистрация: 24.03.2007
Сообщений: 314
|
![]() |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Реестр и C++ | Лубышев | Помощь студентам | 1 | 12.03.2008 08:28 |
Реестр | Teen4jump | Общие вопросы Delphi | 2 | 28.02.2008 10:17 |
реестр | Михаил Юрьевич | Общие вопросы Delphi | 9 | 12.02.2008 00:00 |
Реестр | GAGARIN-NEW | Свободное общение | 2 | 06.01.2008 11:31 |