Как удалить из реестра?

[AngelOfDeath]

Как удалить из реестра вот это:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, registry;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  h:TRegistry;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
H:=TRegistry.Create;
H.RootKey:=HKEY_LOCAL_MACHINE;
H.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', false);
H.WriteString('Proga Shytka','C:\windows\system32\notepad.exe');
  H.CloseKey;
H.Free
end;

end.

Очень нужно
И вообще как переписывать код на записи в реестр на код удаления из реестра

[Stilet]

RegDeleteKey

[AngelOfDeath]

Можете привести полный пример кода удаления?
Вот код записи

# H:=TRegistry.Create;  
 H.RootKey:=HKEY_LOCAL_MACHINE;  
 H.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', false);  
 H.WriteString('Proga Shytka','C:\windows\system32\notepad.exe');  
   H.CloseKey;  
 H.Free

[Stilet]

Пишу по памяти:

var r:HKEY;
begin
RegOpenKey(HKEY_LOCAL_MACHINE,'\Software\Microsoft\Windows\CurrentVersion\Run',r);
RegDeleteKey(r,'Proga Shytka');
end;

Просто в реестр гадить себе не хочу )

[AngelOfDeath]

Не чо то не получается
легче самому реестр почистить

[Stilet]

RegDeleteValue пробуй.
Все там просто.

[Alter]

DeleteKey - удалит часть ветки,
DeleteValue - удалит значения этой ветки.

Например:
Есть путь: "HKEY_LOCAL_MACHINE\Software\Microso ft\Windows\CurrentVersion\Run"
Есть параметры в нём: "logo"="C:\temp.exe"

При вызове DeleteKey: reg.DeleteKey('Run'); удалиться Run.
При вызове DeleteValue: reg.DeleteValue('logo'); удалиться logo, с параметром(в данном случае это путь к exe).

[FaTaL]

В твоем случае это будет выглядеть так:

H:=TRegistry.Create;  
 H.RootKey:=HKEY_LOCAL_MACHINE;  
 H.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', false);  
 H.DeleteValue('Proga Shytka');  
   H.CloseKey;  
 H.Free

[Alter]

Сообщение от FaTaL

В твоем случае это будет выглядеть так:

H:=TRegistry.Create;  
 H.RootKey:=HKEY_LOCAL_MACHINE;  
 H.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', false);  
 H.DeleteValue('Proga Shytka');  
   H.CloseKey;  
 H.Free

Это неверно: H.OpenKey('\Software\Microsoft\Windows\CurrentV ersion\Run', false);
Надо так: H.OpenKey('Software\Microsoft\Windows\CurrentV ersion\Run', false);

[FaTaL]

Сообщение от Alter

Это неверно: H.OpenKey('\Software\Microsoft\Windows\CurrentV ersion\Run', false);
Надо так: H.OpenKey('Software\Microsoft\Windows\CurrentV ersion\Run', false);

Я скопировал исходник и просто изменил. Так что это не ко мне