CorelDraw2019启动不了，写工具重置它

想要画个图，发现CorelDraw2019启动不了，一直弹以下话框，索性写工具重置它~

 

procedure TCorelDraw.BitBtn1Click(Sender: TObject);
var
  RegF: TRegistry;
begin
  RegF := TRegistry.Create;
  try
    // 设置正确的根键（注意拼写）
    RegF.RootKey := HKEY_CURRENT_USER;    
    // 64位系统兼容处理（如需访问64位注册表）
    {$IFDEF WIN64}
    RegF.Access := KEY_WOW64_64KEY or KEY_ALL_ACCESS;
    {$ENDIF}

    // 检查目标键是否存在
    if RegF.KeyExists('SOFTWARE\Corel') then
    begin
      try
        // 删除整个Corel项（包括所有子键）
        RegF.DeleteKey('SOFTWARE\Corel');
        MessageBox(Handle, PChar('重置成功！下一步随便填写个邮件地址和密码即可。'), PChar('消息'),
  MB_ICONINFORMATION or MB_OK);
      except
        on E: Exception do
          ShowMessage('删除失败: ' + E.Message + #13#10'可能原因：'#13#10
                     + '1. 程序没有管理员权限'#13#10
                     + '2. 该键被系统或其他程序锁定');
      end;
    end
    else
    begin
      MessageBox(Handle, PChar('重置失改，请重新尝试重置。或与开发人员联系。'), PChar('消息'),
  MB_ICONWARNING or MB_OK);
    end;
  finally
    RegF.Free; // 确保释放资源
  end;
end;