Running application after installation

[dreamfalcon]

Hi!

I created a service, a windows form and a setup project in VB.NET.

And after install I need the installation directory to do something like this:

    Private Sub ServiceProcessInstaller1_AfterInstall(ByVal sender As System.Object, ByVal e As System.Configuration.Install.InstallEventArgs) Handles ServiceProcessInstaller1.AfterInstall
            Dim path As String = Me.TARGETDIR 'not working
            If System.IO.File.Exists(path & "res.dll") Then
                Microsoft.VisualBasic.Shell("net start update_service")
            Else
                Microsoft.VisualBasic.Shell(path & "activate.exe")
            End If
    End Sub
 

The problem is how to get the installation dir?

Can anyone help me?
thx

[dreamfalcon]

Please, anyone?
i'm stuck at this

[hini]

I am not sure if the value can be accessed directly from the classes of the solution, especially that it depends on the deployment application

you may try to search the installation directory by reading the windows registry using a code similar to this one :

RegistryKey bk = Registry.LocalMachine;
RegistryKey rk;
string subkey = @"System\CurrentControlSet\Services\yourservicenam e";
rk = bk.OpenSubKey(subkey);
MessageBox.Show(rk.GetValue("ImagePath").ToString( ));

this code searches for your service and gets the path of the exe that runs the service.
hope this will help.

[dreamfalcon]

...
you may try to search the installation directory by reading the windows registry using a code similar to this one :
...

It works.
Many thx :)