Значение реестра

[Zitt]

Вобщем, возможно ли написать батник или reg фаил, (накройняк на дельфи) который бы перебирал подпаку в ветке реестра искал олин параметр и менял его щначение..??
HKEY_CURRENT_USER\Software\Aent Sys\pr\папка\Program
имя папки не знаю...
параметру Program нужно присвоить знаечение в двоичной системе - 100000000

[De-visible]

Создает список всех подразделов данного раздела...
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',MyK ey); { Открыли раздел }

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;