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

Question

我有一个使用 TADOConnection 连接到 MS SQL 服务器的 Delphi 应用程序。
现在我需要设置 TADOConnection 的“应用程序名称”属性（以便可以通过select distinct program_name from sys.sysprocesses查询在 DB 上看到它）。

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

如何设置TADOConnection与 MS SQL 数据库的连接的“应用程序名称”属性？

Answer 1

“应用程序名称”属性（和其他）可以这样设置：

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