Проблема 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 как целое число, и все дела.

Из одного старого модуля:
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;

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

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