如何在Delphi中設置TADOConnection的應用程序名稱屬性？

Question

我有一個使用TADOConnection連接到MS SQL服務器的Delphi應用程序。
現在我需要設置TADOConnection的「應用程序名稱」屬性（以便可以在數據庫中使用select distinct program_name from sys.sysprocesses查詢來查看）。

TADOConnection沒有ApplicationName屬性。相反，它只是在內部分配應用程序可執行文件名稱（可以在上面的查詢中看到）。

如何設置TADOConnection與MS SQL數據庫連接的「應用程序名稱」屬性？

Answer 1

「應用程序名稱」 屬性（及其他）可以設置像這樣：

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