Вытянуть значение из реестра

@esmere · Регистрация: 03.11.2013

Студворк — интернет-сервис помощи студентам

всем привет. обращаюсь к знающим делфи кодерам.
в разделе реестра HKEY_LOCAL_MACHINE\SYSTEM\Remote Manipulator System в параметре Options хранится id RMS сервера.
А я вот хочу вытянуть его с помощью делфи и вставить в edit. Помогите плиииз

@esmere · 05.11.2013, 18:12 **[ТС]**

ни один из вышеуказанных кодов не работает...

@Maincore · 05.11.2013, 18:28

Сообщение от esmere

ни один из вышеуказанных кодов не работает...

может вы все таки покажете как вы используете код?
ДА и вы пытались прочитать данные из другого ключа?

@esmere · 06.11.2013, 09:08 **[ТС]**

Вот:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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
    buf : array[0..4] of byte;
    reg : TRegistry;
    i,sz : integer;
    s : string;
  begin
    reg:=TRegistry.Create;
    reg.RootKey:=HKEY_LOCAL_MACHINE;
    reg.OpenKey('SYSTEM\Remote Manipulator System\v4\Server\Parameters', true);
    reg.ReadBinaryData('Options',buf,5);
      for i :=0 to 4 do begin
      showmessage( AnsiChar(buf[i]));
        s:=s+AnsiChar(buf[i]);
      end;
    Button1.Caption:=s;
    reg.CloseKey;
    reg.Free;
 
end;
 
end.

Да, пробовал пример с другим параметром. Рядом с этим параметром есть параметр Pwd. С ним отлично работает.

@northener · 06.11.2013, 10:28

Сообщение от esmere

AnsiChar(buf[i])

Это что? Какой смысл в такой визуализации двоичных данных?

@esmere · 06.11.2013, 11:14 **[ТС]**

Сообщение от northener

Это что? Какой смысл в такой визуализации двоичных данных?

Я никакого понятия не имею об этом коде. То, что мне предположили делать, я делаю.

@Maincore · 06.11.2013, 14:37

Delphi
1
2
3
4
5
6
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\Remote Manipulator System\v4\Server\Parameters', true);
SHOWMESSAGE(inttostr(reg.GetDataSize('Options')));
reg.CloseKey;
reg.Free;

Чему равно?
Проверяй открывает ли ключ

Delphi
1
2
if Reg.OpenKey('SYSTEM\2Remote Manipulator System\v4\Server\Parameters', false) then showmessage('îòêðûò')
else   ShowMessage('íå ìîãó îòêðûòü') ;

@northener · 06.11.2013, 17:27

Сообщение от esmere

Я никакого понятия не имею об этом коде.

Тогда как определяешь что он не работает?

@esmere · 06.11.2013, 19:26 **[ТС]**

Сообщение от Maincore

Delphi
1
2
3
4
5
6
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\Remote Manipulator System\v4\Server\Parameters', true);
SHOWMESSAGE(inttostr(reg.GetDataSize('Options')));
reg.CloseKey;
reg.Free;

Чему равно?
Проверяй открывает ли ключ

Delphi
1
2
if Reg.OpenKey('SYSTEM\2Remote Manipulator System\v4\Server\Parameters', false) then showmessage('îòêðûò')
else   ShowMessage('íå ìîãó îòêðûòü') ;

не появляется сообщение: не могу открыть

@Maincore · 06.11.2013, 19:28

Delphi
1
2
3
4
5
6
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\Remote Manipulator System\v4\Server\Parameters', true);
SHOWMESSAGE(inttostr(reg.GetDataSize('Options')));
reg.CloseKey;
reg.Free;

а GetDataSize чему равно?

@kossdm · 06.11.2013, 19:39

Сообщение от northener

Это что? Какой смысл в такой визуализации двоичных данных?

В начале он показал, что под двоичными данными у него текст там, вот и приплел я этот энсича. Но какое это имеет значение к текущему вопросу?

Добавлено через 10 минут

Сообщение от Maincore

Delphi
1
2
3
4
5
6
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\Remote Manipulator System\v4\Server\Parameters', true);
SHOWMESSAGE(inttostr(reg.GetDataSize('Options')));
reg.CloseKey;
reg.Free;

а GetDataSize чему равно?

Что то я не понял, у него и с фиксированным массивом не работает?

Решив присоединиться к данной теме, я тоже начал пробовать тягать ключи с двоичными данными, и столкнулся с такой же ошибкой, только при работе с динамическим массивом. Оставляя его размер одним и тем же, он либо пробелы возвращает либо Access Violation возвращает либо invalid data type.
Замечу, что GetDataSize возвращает правильное значение!

Pascal
1
2
3
4
5
6
...
    buf : array of byte;
...
    SetLength(buf,5);
    reg.ReadBinaryData('TEST',buf,5);
...

А вот так все работает.

Pascal
1
2
3
4
5
...
    buf : array[0..4] of byte;
...
    reg.ReadBinaryData('TEST',buf,5);
...

@Maincore · 06.11.2013, 19:51

kossdm, попробуй воспользоватся вот этой функцией она по идее должна решить проблему с динамической длиной

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function ReadBinary (RootKey: HKEY; SubKey,ValueName: WideString; var Data : String): Bool;
var
  Key     : HKey;
  Buffer  : array of char;
  Size    : Cardinal;
  RegType : DWORD;
begin
  result  := FALSE;
  RegType := REG_BINARY;
  if RegOpenKeyExW(RootKey, pwidechar(SubKey), 0, KEY_READ, Key) = ERROR_SUCCESS then begin
    if RegQueryValueExW(Key,pwidechar(ValueName),NIL,@RegType, NIL,@Size) = ERROR_SUCCESS then begin
      SetLength (Buffer, Size + 1);
     FillChar(Buffer[0], SizeOf(Buffer[0]) * Length(Buffer), #0);
      if RegQueryValueExW(Key,pwidechar(ValueName),NIL,@RegType, @Buffer[0],@Size) = ERROR_SUCCESS then begin
        result := TRUE;
        Data := String (Buffer); // Shows empty or sometimes 1 random char.
      end;
    end;
  end;
  RegCloseKey (Key);
end;

Добавлено через 4 минуты
использовать её так:

Delphi
1
ReadBinary(HKEY_LOCAL_MACHINE,'SOFTWARE\путь\...','ключ','буфер для приема данных');

@northener · 06.11.2013, 20:33

Сообщение от kossdm

столкнулся с такой же ошибкой, только при работе с динамическим массивом

Сообщение от kossdm

reg.ReadBinaryData('TEST',buf,5);

Не удивительно. buf в случае динамического массива это указатель на указатель. Пиши всегда buf[0]. Это будет именно указатель на начало области памяти, в которую нужно записать или из которой прочитать данные.

@esmere · 06.11.2013, 21:56 **[ТС]**

все попробовал не работает. так, давайте хватит на этом. я сам не беспокоюсь, и вы тоже не беспокойтесь.

@kossdm · 07.11.2013, 04:42

Сообщение от northener

Не удивительно. buf в случае динамического массива это указатель на указатель. Пиши всегда buf[0]. Это будет именно указатель на начало области памяти, в которую нужно записать или из которой прочитать данные.

Ура! Интересный момент... получается... РАБОТАЕТ!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  var
    buf : array of byte;
    reg : TRegistry;
    i,sz : integer;
    s : string;
  begin
    reg:=TRegistry.Create;
    reg.RootKey:=HKEY_CURRENT_USER;
    reg.OpenKey('Software\Data Center', true);
     sz:=reg.GetDataSize('TEST');
     showmessage(inttostr(sz));
    SetLength(buf,sz);
    reg.ReadBinaryData('TEST',buf[0],sz);
      for i :=0 to sz-1 do begin
        s:=s+AnsiChar(buf[i]);
      end;
    Button1.Caption:=s;
    reg.CloseKey;
    reg.Free;

Добавлено через 33 секунды

Сообщение от esmere

все попробовал не работает. так, давайте хватит на этом. я сам не беспокоюсь, и вы тоже не беспокойтесь.

Ну ка, давай не здавайся!
Давай пробуй такой код

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  var
    buf : array of byte;
    reg : TRegistry;
    i,sz : integer;
    s : string;
  begin
    reg:=TRegistry.Create;
    reg.RootKey:=HKEY_CURRENT_USER;
    reg.OpenKey('Software\Data Center', true);
     sz:=reg.GetDataSize('TEST');
     showmessage(inttostr(sz));
    SetLength(buf,sz);
    reg.ReadBinaryData('TEST',buf[0],sz);
      for i :=0 to sz-1 do begin
        s:=s+AnsiChar(buf[i]);
      end;
    Button1.Caption:=s;
    reg.CloseKey;
    reg.Free;

@esmere · 07.11.2013, 15:48 **[ТС]**

не-ра-бо-та-ет... когда настроил под себя, запустил и нажал на кнопку, показывают 967

Добавлено через 2 минуты
ты лучше скачай rms 5.1, установи и попробуй у себя

@Maincore · 07.11.2013, 16:19

Сообщение от esmere

не-ра-бо-та-ет... когда настроил под себя, запустил и нажал на кнопку, показывают 967

Добавлено через 2 минуты
ты лучше скачай rms 5.1, установи и попробуй у себя

только что установил rms 5.1 попробовал прочитать данные этой функцией ВСЕ НОРМАЛЬНО ЧИТАЕТ

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  str:string;
  outfile: TextFile;
 
implementation
 
{$R *.dfm}
 
function ReadBinary (RootKey: HKEY; SubKey,ValueName: WideString; var Data : String): Bool;
var
  Key     : HKey;
  Buffer  : array of char;
  Size    : Cardinal;
  RegType : DWORD;
begin
  result  := FALSE;
  RegType := REG_BINARY;
  if RegOpenKeyExW(RootKey, pwidechar(SubKey), 0, KEY_READ, Key) = ERROR_SUCCESS then begin
    if RegQueryValueExW(Key,pwidechar(ValueName),NIL,@RegType, NIL,@Size) = ERROR_SUCCESS then begin
      SetLength (Buffer, Size + 1);
     FillChar(Buffer[0], SizeOf(Buffer[0]) * Length(Buffer), #0);
      if RegQueryValueExW(Key,pwidechar(ValueName),NIL,@RegType, @Buffer[0],@Size) = ERROR_SUCCESS then begin
        result := TRUE;
        Data := String (Buffer); // Shows empty or sometimes 1 random char.
      end;
    end;
  end;
  RegCloseKey (Key);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ReadBinary(HKEY_LOCAL_MACHINE,'SYSTEM\Remote Manipulator System\v4\Server\Parameters','Options',str);
AssignFile(outfile, 'C:\reg_binary.txt');
Rewrite(outfile);
writeln(outfile, str);
CloseFile(outfile);
end;
 
end.

@esmere · 07.11.2013, 21:38 **[ТС]**

вот этот код работает. ты же другой код давал мне... спасибо тебе огромное за твои старания)))))

Добавлено через 6 минут
А можно вставить эти значения сразу в edit или в memo? Без извлечения в текстовик??

Добавлено через 27 минут
и чтобы убралось все лишнее кроме Id-a????

@Maincore · 07.11.2013, 21:53

А можно вставить эти значения сразу в edit или в memo? Без извлечения в текстовик??

Можно данные находятся в переменной str

Delphi
1
memo1.text:=str

А насчет убрать лишнее это уже другой вопрос - парсинг данных.
Выклади содержимое

Code
1
C:\reg_binary.txt

посмотрю, что можно сделать.

@esmere · 07.11.2013, 22:02 **[ТС]**

вот содержимое текстовика:

C
1
2
3
4
5
6
TPF0TROMServerOptions  UseNTAuth
SecurityLevelPortEnableOverlayCaptureShowTrayIconBindIP
Any interfaceCallbackAutoConnect   CallbackConnectInterval<HideStop IpFilterTypeProtectCallbackSettingsProtectInetIdSettings
InternetIdS-DF1263AB-EC34-4082UseInetConnection  UseCustomInetServerDoNotCaptureRDPDisableRemoteControlDisableRemoteScreenDisableFileTransferDisableRedirect
DisableTelnetDisableRemoteExecuteDisableTaskManagerDisableOverlayDisableShutdownDisableRemoteUpgradeDisablePreviewCaptureDisableDeviceManagerDisableChatDisableScreenRecordDisableAVCaptureDisableSendMessageDisableRegistry
DisableAVChatDisableRemoteSettingsNotifyChangeTrayIconNotifyBallonHintNotifyPlaySoundLogUseSidId41578.6914305324Licenses®RMS-F-F2F0dB4a4799e8F260E4602Eef5E5B1abiY2S2dYXlRfDwwnI20HDQQMHUVfDm4hJwxeQ1VXDB5cJnNvW1wPBQsEBglqcXxbXA8MVkQPA2NgYgIVAwADA24BZHdgBAIFBw4fVURscTBcTA8ADh9SXiZzbx1TVEltWV9WPXM=

Добавлено через 1 минуту
в memo оно не появляется.
Только вот это
TPF0TROMServerOptions

@Maincore · 07.11.2013, 22:02

Сообщение от esmere

вот содержимое текстовика:

C
1
2
3
4
5
6
TPF0TROMServerOptions  UseNTAuth
SecurityLevelPortEnableOverlayCaptureShowTrayIconBindIP
Any interfaceCallbackAutoConnect   CallbackConnectInterval<HideStop IpFilterTypeProtectCallbackSettingsProtectInetIdSettings
InternetIdS-DF1263AB-EC34-4082UseInetConnection  UseCustomInetServerDoNotCaptureRDPDisableRemoteControlDisableRemoteScreenDisableFileTransferDisableRedirect
DisableTelnetDisableRemoteExecuteDisableTaskManagerDisableOverlayDisableShutdownDisableRemoteUpgradeDisablePreviewCaptureDisableDeviceManagerDisableChatDisableScreenRecordDisableAVCaptureDisableSendMessageDisableRegistry
DisableAVChatDisableRemoteSettingsNotifyChangeTrayIconNotifyBallonHintNotifyPlaySoundLogUseSidId41578.6914305324Licenses®RMS-F-F2F0dB4a4799e8F260E4602Eef5E5B1abiY2S2dYXlRfDwwnI20HDQQMHUVfDm4hJwxeQ1VXDB5cJnNvW1wPBQsEBglqcXxbXA8MVkQPA2NgYgIVAwADA24BZHdgBAIFBw4fVURscTBcTA8ADh9SXiZzbx1TVEltWV9WPXM=

Тебя это интересует?

Code
1
IdS-DF1263AB-EC34-4082

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@esmere 0 / 0 / 0 Регистрация: 03.11.2013 Сообщений: 22

	Вытянуть значение из реестра 03.11.2013, 20:23. Показов 9926. Ответов 48 Метки нет (Все метки) всем привет. обращаюсь к знающим делфи кодерам. в разделе реестра HKEY_LOCAL_MACHINE\SYSTEM\Remote Manipulator System в параметре Options хранится id RMS сервера. А я вот хочу вытянуть его с помощью делфи и вставить в edit. Помогите плиииз 0

@esmere 0 / 0 / 0 Регистрация: 03.11.2013 Сообщений: 22
	05.11.2013, 18:12 [ТС]
	ни один из вышеуказанных кодов не работает... 0

@esmere 0 / 0 / 0 Регистрация: 03.11.2013 Сообщений: 22
	06.11.2013, 21:56 [ТС]
	все попробовал не работает. так, давайте хватит на этом. я сам не беспокоюсь, и вы тоже не беспокойтесь. 0

@esmere 0 / 0 / 0 Регистрация: 03.11.2013 Сообщений: 22
	07.11.2013, 15:48 [ТС]
	не-ра-бо-та-ет... когда настроил под себя, запустил и нажал на кнопку, показывают 967 Добавлено через 2 минуты ты лучше скачай rms 5.1, установи и попробуй у себя 0

@esmere 0 / 0 / 0 Регистрация: 03.11.2013 Сообщений: 22
	07.11.2013, 21:38 [ТС]
	вот этот код работает. ты же другой код давал мне... спасибо тебе огромное за твои старания))))) Добавлено через 6 минут А можно вставить эти значения сразу в edit или в memo? Без извлечения в текстовик?? Добавлено через 27 минут и чтобы убралось все лишнее кроме Id-a???? 0