написать процедуру записи значения в реестр

[winwirus]

помогите написать процедуру записи значения в реестр.
вот и сама строка

HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows\CurrentVersion\explorer\ Advanced\Folder\Hidden\SHOWALL
delete value "CheckedValue"

[hon]

В интернете искал?
Вот книга, в ней есть раздел работы с реестром (delphi):
http://igry-online.ucoz.com/fastfile...irovanie-2.rar

[NetSpace]

реестр штука опасная...но это по-началу только...обычно после 5 переустановки винды привыкаешь ко всему...

//----- добавляем целочисленный параметр в ключ --------------------------------
procedure TForm1.AddVal(rky:HKEY;ky:string;st:string;vl:DWORD);
begin
   Reg:=TRegistry.Create;
   with Reg do
   begin
      RootKey:=rky;
      OpenKey(ky,True);
      WriteInteger(st,vl);//запись в параметр st значения vl
      CloseKey;
      Memo1.Lines.Add('Параметр '+st+' добавлен в ключ '+ky);
   end;
end;

//----- добавляем строковый параметр в ключ ------------------------------------
procedure TForm1.AddValS(rky:HKEY;ky:string;st:string;vl:string);
begin
   Reg:=TRegistry.Create;
   with Reg do
   begin
      RootKey:=rky;
      OpenKey(ky,True);
      WriteString(st,vl);//запись в параметр st значения vl
      CloseKey;
      Memo1.Lines.Add('Параметр '+st+' добавлен в ключ '+ky);
   end;
end;

пример использования:

AddVal(HKEY_CURRENT_USER,'Software\Microsoft\Windows\CurrentVersion\Policies\Explorer','NoStartMenuNetworkPlaces',1);
AddValS(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\CancelAutoplay\Files','*.*','');