如何在 Delphi 中设置 TADOConnection 的应用程序名称 属性?

How to set Application Name property of a TADOConnection in Delphi?

我有一个 Delphi 应用程序,它使用 TADOConnection 连接到 MS SQL 服务器。
现在我需要设置 TADOConnection 的 "Application Name" 属性(以便可以在数据库上使用 select distinct program_name from sys.sysprocesses 查询看到它)。

TADOConnection 没有 ApplicationName 属性。相反,它只是在内部为其分配应用程序可执行名称(可以通过上面的查询看到)。

如何设置 "Application Name" 属性 与 MS SQL 数据库的 TADOConnection 连接?

"Application Name" 属性(和其他)可以这样设置:

AdoConnection1.Properties['Application Name'].Value := 'MyAppName';