Скачать: CL | DM;

Проблема HKEY и сети   Найти похожие ветки 

← →
Compton's G   (2006-01-15 17:37) [0]

... С помощью компонент ClientSocket, пытаюсь на сервер, отправить ключ реестра, с помощью SendText. На сервере отделяю, от полученной строки - rootkey (HKEY_LOCAL_MACHINE или ... _USER и остальные) ... но потом, как преобразовать, отделенную строку (String) в HKEY, для свойста TRegistry RootKey?

---

← →
Неважно   (2006-01-15 18:28) [1]

Самое простое :

if Key="HKEY_CURRENT_USER" then
  Reg.RootKey:=HKEY_CURRENT_USER;

Если хочется все по честному,то смотри Regisrty.pas например ф-цию GetKey

---

← →
Compton's G   (2006-01-15 18:33) [2]

> Самое простое :
>
> if Key="HKEY_CURRENT_USER" then
>   Reg.RootKey:=HKEY_CURRENT_USER;


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

---

← →
Rouse_ ©   (2006-01-15 19:16) [3]

> Ну я так и написал, думал просто, что можно как-нить покрасивее

Красивее?
const
 HKEY_CURRENT_USER = CHR(10);

..

if Key= HKEY_CURRENT_USER then
 Reg.RootKey:=HKEY_CURRENT_USER;

---

← →
Rouse_ ©   (2006-01-15 19:17) [4]

Мдя... :)

---

← →
Eraser ©   (2006-01-15 19:23) [5]

HKEY = type LongWord;
;)

> Compton"s G   (15.01.06 17:37)

передавай root key как целое число, и все дела.

---

← →
Gero ©   (2006-01-15 22:38) [6]

Из одного старого модуля:

function StringToHKey(S: string) : HKey;
begin
 Result := HKUN;
 S := UpperCase(S);
 if S = "HKEY_CLASSES_ROOT" then
   Result := HKEY_CLASSES_ROOT
 else if S = "HKEY_CURRENT_USER" then
   Result := HKEY_CURRENT_USER
 else if S = "HKEY_LOCAL_MACHINE" then
   Result := HKEY_LOCAL_MACHINE
 else if S = "HKEY_USERS" then
   Result := HKEY_USERS
 else if S = "HKEY_PERFORMANCE_DATA" then
   Result := HKEY_PERFORMANCE_DATA
 else if S = "HKEY_CURRENT_CONFIG" then
   Result := HKEY_CURRENT_CONFIG
 else if S = "HKEY_DYN_DATA" then
   Result := HKEY_DYN_DATA;
end;


---

← →
Eraser ©   (2006-01-15 22:52) [7]

В крайнем случае:
SendText(inttostr(HKEY_CLASSES_ROOT));
imho.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c