无法从注册表中删除我添加的键值？（内详）

[coolqiang]

在安装时我用如下代码成功：
procedure TForm1.actInstallExecute(Sender: TObject);
var
Registry:TRegistry;
begin
Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_LOCAL_MACHINE;
try
Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',T
rue);
Registry.WriteString('Guard',ExtractFilePath(Application.ExeName)+
ExtractFileName(Application.ExeName));
Registry.CloseKey;
finally
Registry.Free;
end;

MessageDlg('安装成功！', mtInformation,[mbOk], 0);
end;

在卸载时我用如下代码却无法删除上面建立的键？？？
procedure TForm1.actUninstallExecute(Sender: TObject);
var
Registry:TRegistry;
begin
Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_LOCAL_MACHINE;
try
if Registry.DeleteKey('Software\Microsoft\Windows\CurrentVersion\R
un\Guard') then
MessageDlg('卸载成功！', mtInformation,[mbOk], 0)
else
MessageDlg('卸载失败！', mtError,[mbOk], 0);
Registry.CloseKey;
finally
Registry.Free;
end;
end;

[kxy]

你应该使用Registry.DeleteValue('Software\Microsoft\Windows\CurrentVersion\Run\Guard')

[kxy]

写错了

Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_LOCAL_MACHINE;
try
if Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\R
un') then
MessageDlg('打开成功！', mtInformation,[mbOk], 0)
else
MessageDlg('打开失败！', mtError,[mbOk], 0);
if Registry.DeleteValue('Guard') then
MessageDlg('成功！', mtInformation,[mbOk], 0)
else
MessageDlg('失败！', mtError,[mbOk], 0);
Registry.CloseKey;
finally
Registry.Free;
end;

[eaglet]

删除值或数据用 deletevalue
删除项用 deletekey,对于win95,用deletekey
将把该项及它的子项和值都删除，对应WINNT
必须把子项和值都删除后才能删除项