Удаление ключа реестра

[dolphin705]

Создаю ключ в реестре

procedure TForm1.Button2Click(Sender: TObject);
var
Reg:Tregistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
Reg.WriteString('Project1','C:\Windows\Project1.exe');
Reg.CloseKey;
Reg.Free;
end;

Мне нужно удалить этот ключ
пишу код

procedure TForm1.Button2Click(Sender: TObject);
var
Reg:Tregistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
Reg.DeleteKey('Project1');
Reg.Free;
end;

ошибок нет, ключ не удаляется, что не так?

[Dj_smart]

Вы забыли закрыть ключ после удаления ))

procedure TForm1.Button2Click(Sender: TObject);
var
Reg:Tregistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
Reg.DeleteKey('Project1');
Reg.CloseKey;
Reg.Free;
end;

[dolphin705]

Не работает,ключ не удаляется

[FaTaL]

Потому что Вы удаляете ключ, а вам нужно удалить параметр.
Делайте DeleteValue вместо DeleteKey

[Kotofff]

Вот тут в строке измени так :

Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);

Ошибок нет - но полный путь ключа не тот, что ты хотел без слеша перед SOFTWARE

[FaTaL]

Слэш там не обязателен.

[SERG1980]

reg.DeleteValue(Application.Title)