Сборник лабораторных работ по дисциплине "Прикладное программное обеспечение". Самохвалов К.М. - 44 стр.

UptoLike

Составители:

Рубрика:

44

3.1 допустимо только Value=REG_SZ. Возврат – код ошибки или ERROR_

SUCCESS, если нет ошибок.

Примеры:

{Создаем список всех подразделов указанного раздела}

procedure TForm1.Button1Click(Sender: TObject);

var

MyKey: HKey;{Handle для работы с разделом}

Buffer: array[0..1000] of char; {Буфер}

Err, {Код ошибки}

index: longint; {Индекс подраздела}

begin

Err:=RegOpenKey(HKEY_CLASSES_ROOT,'DelphiUnit',MyKey); {От-

крыли раздел}

if Err<> ERROR_SUCCESS then

begin

MessageDlg('Нет такого раздела !!',mtError,[mbOk],0);

exit;

end;

index:=0;

{Определили имя первого подраздела}

Err:=RegEnumKey(MyKey,index,Buffer,Sizeof(Buffer));

while err=ERROR_SUCCESS do {Цикл, пока есть подразделы}

begin

memo1.lines.add(StrPas(Buffer)); {Добавим имя подраздела в список}

inc(index); {Увеличим номер подраздела}

Err:=RegEnumKey(MyKey,index,Buffer,Sizeof(Buffer)); {Запрос}

end;

RegCloseKey(MyKey); {Закрыли подраздел}

end;