在删除数据库之前，检查当前是否使用了数据库

Question

我的应用程序创建并使用数据库来存储所有数据。暗示这个数据库也可以被共享网络中的其他用户使用。 目前，我正在进行卸载应用程序，删除数据库将成为完全卸载过程的一部分。我用下一个语句删除它

Query := '"IF EXISTS(SELECT 1 FROM sys.databases WHERE name = ''DentalDesktop'') BEGIN ALTER DATABASE DentalDesktop SET SINGLE_USER WITH ROLLBACK IMMEDIATE; DROP DATABASE DentalDesktop; END"';
Params := '-U ' + sUserName + ' -P ' + sPassword + ' -S ' + server + ' -Q ' + Query;
ShellExec('', 'sqlcmd', Params, '', SW_HIDE, ewWaitUntilTerminated, ResultCode);

其中sUserName，sPassword，server是服务器参数。 但是如果在卸载时使用数据库，则可能存在许多问题。那么，有没有办法在Inno Setup安装程序中检查当前是否使用了数据库？