无法从注册表中删除我添加的键值?(内详)
在安装时我用如下代码成功:
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;