Форум: "Основная";
Текущий архив: 2003.08.11;
Скачать: [xml.tar.bz2];

Вниз

чтение реестра   Найти похожие ветки 

← →
lord   (2003-07-29 01:49) [0]

привет всем . вопрос по работе с реестром

в реестре записана информация следущего вида

ветвь: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\Shares
-------------------------------------
имя: proba
----------- --------------------------
тип: reg_multi_sz
--------------------------------------
значение: CSCFlags=0
MaxUses=4294967295
Path=D:\proba
Permissions=0
Remark=
Type=0

какой функцыей или процедурой ее считать и в переменную какого типа ?
пробовал писать в переменную типа RECORD (в разных вариациях ) облом .

---

← →
Rouse_   (2003-07-29 01:59) [1]

type
TExRegistry = class(TRegistry)
function ReadStrings(const valueName: string):string;
end;

function TExRegistry.ReadStrings(const valueName: string):string;

var
valueType : DWORD;
valueLen : DWORD;
p, buffer : PChar;
begin
result:="";
SetLastError (RegQueryValueEx (CurrentKey, PChar (valueName), Nil,
@valueType, Nil, @valueLen));
if GetLastError = ERROR_SUCCESS then
if valueType = REG_MULTI_SZ then
begin
GetMem (buffer, valueLen);
try
RegQueryValueEx (CurrentKey, PChar (valueName), Nil, Nil, PBYTE (buffer), @valueLen);
p := buffer;
while p^ <> #0 do
begin
if result<>"" then result:=result+#13#10;
result:=result+p;
Inc (p, lstrlen (p) + 1)
end
finally
FreeMem (buffer)
end
end
else
raise ERegistryException.Create ("String list expected")
else
raise Exception.Create (
"Unable read MULTI_SZ value")
end;

Автор: Ihor Osov"yak

Желаю успехов

---

← →
lord   (2003-07-29 22:02) [2]

Удалено модератором
Примечание: Личная переписка

---

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

Форум: "Основная";
Текущий архив: 2003.08.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c