Lancer uninstall depuis un code

Commenter

Contenu du snippet

Quelques lignes pour lancer depuis votre programme la désinstallation d'une appli.
1)Si le code tourne sous différents OS il faut déterminer le dossier windows.

Source / Exemple : 


Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" ( _
                 ByVal lpbuffer As String, _
                 ByVal nSize As Long) As Long

'------------------------------------------------
'Fonction de recherche de la directory de windows
'------------------------------------------------

Private Function WindowsDirectory() As String
' Retourne le chemin du répertoire windows
Dim stTmp As String, lgTmp As Long
stTmp = Space$(250)
lgTmp = 251
Call GetWindowsDirectory(stTmp, lgTmp)
WindowsDirectory = Split(stTmp, Chr$(0))(0)
End Function

'------------------------------------------------
'Dans le code
'
'Chemin_appli est le chemin du dossier dans lequel se trouve le fichier ST6UNST.LOG. Par exemple: Chemin_appli = "C:\Program Files\Projet1
'-----------------------------------------------

Desinstall = Shell(WindowsDirectory & "\st6unst.exe -n " & Chr(34) & Chemin_appli & "\ST6UNST.LOG" & Chr(34), vbNormalFocus)

Conclusion :


C'est pas grand chose, mais ca dépanne bien (ce code a été réalisé par l'assemblage de différentes informations trouvées sur les sites VB).

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.