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

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

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

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

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

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

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

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

да, только без Id. Вот так: S-DF1263AB-EC34-4082

@Maincore · 07.11.2013, 22:22

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

да, только без Id. Вот так: S-DF1263AB-EC34-4082

Добавь вот эту функцию в код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function search_id(data:string):string;
var
i,j:integer;
temp,orig:string;
begin
  orig:=AnsiLowerCase(data);
  i:=Pos('internetid',orig);
    if i<>0 then
    begin
     j:=PosEx('useinetconnection',orig,i);
       if j<>0 then
       begin
        temp:=copy(data,i+10,j-(i+10));
        temp:=trim(temp);
         Result:=temp;
       end;
    end;
end;

и вызови ее так

Delphi
1
2
ReadBinary(HKEY_LOCAL_MACHINE,'SYSTEM\Remote Manipulator System\v4\Server\Parameters','Options',str);
showmessage(search_id(str));

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

отсюда выдают ошибку:
http://rghost.ru/50011217/image.png

@Maincore · 07.11.2013, 22:33

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

отсюда выдают ошибку:
http://rghost.ru/50011217/image.png

Добавь в uses StrUtils

@esmere · 08.11.2013, 07:17 **[ТС]**

сработало!!!!!!!спасибо

Добавлено через 8 часов 41 минуту
Maincore
только оно на windows 7 с без админских прав не работает.

@viktor97 · 08.11.2013, 12:56

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

только оно на windows 7 с без админских прав не работает.

Запуск от имени Администратора

@mss · 08.11.2013, 13:02

Не по теме:

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

Столько много написано

Ну да, краткость ведь сестра таланта, без тени сомнения умудряющегося доставать данные любых типов одной-единственной ф-цией, предназначенной для чтения исключительно данных строкового типа)

@viktor97 · 09.11.2013, 02:32

Сделал по 36 посту, запустил с правами Администратора. С первого раза показало ID, на нажатие второй раз выскакивает ошибка.

Access violation at address 0040536B in module: 'Project1.exe'. Read of address 00000000.

При закрытии программы окно 'Прекращена работа программы "Project1.exe"'. Закрываю окно, ошибка.

Runtime error 216 at 00407DBE

Как такое решить?

@Shouldercannon · 25.04.2023, 05:29

Поменять

Delphi
1
String(Buffer)

на

Delphi
1
Copy(PChar(@Buffer[0]), 1)

Иначе он возвращает указатель на локальную переменную, которая уничтожается при выходе (память из под неё освобождается).

Новые блоги и статьи Все статьи Все блоги /
Мобильное приложение 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 и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))

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

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

@esmere 0 / 0 / 0 Регистрация: 03.11.2013 Сообщений: 22
	07.11.2013, 22:31 [ТС]
	отсюда выдают ошибку: http://rghost.ru/50011217/image.png 0

@esmere 0 / 0 / 0 Регистрация: 03.11.2013 Сообщений: 22
	08.11.2013, 07:17 [ТС]
	сработало!!!!!!!спасибо Добавлено через 8 часов 41 минуту Maincore только оно на windows 7 с без админских прав не работает. 0