Как установить свойство имени приложения для TADOConnection в Delphi?

Question

У меня есть приложение Delphi, которое подключается к серверу MS SQL с помощью TADOConnection.
Теперь мне нужно установить свойство "Имя приложения" для TADOConnection (чтобы его можно было увидеть в БД с select distinct program_name from sys.sysprocesses запрос).

TADOConnection не имеет ApplicationName имущество. Вместо этого он просто присваивает ему имя исполняемого файла приложения (что можно увидеть с помощью запроса выше).

Как установить свойство "Имя приложения" TADOConnection связь с базой данных MS SQL?

Answer 1

Свойство "Имя приложения" (и другие) можно установить так:

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