There is a Delphi application that connects to MS SQL DB using TADOConnection. I need to set the value of the "Application Name" property of this connection (then to have it on the database side with the following query: select distinct program_name from sys.sysprocesses ).

Unfortunately, TADOConnection does not have the public ApplicationName property. Instead, TADOConnection itself inside substitutes the name of the executable file of the application (as can be seen by running the query above).

How can I set an arbitrary value of the property "Application Name" for TADOConnection connection with MS SQL DB?

1 answer 1

The "Application Name" property (as well as others) can be set like this:

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