[DOTNET] CHANGEMENT DE VARIABLES D'ENVIRONNEMENT EN BROADCOAST (POUR TOUS PROCESSSUS)

Imports System.Runtime.InteropServices
Imports System.Text
Public Class ImportsApi
    Public Const WM_SETTINGCHANGE = 26
    Public Const HWND_BROADCAST = 65535

    '--This function sends the specified message to a window or windows--
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
       (ByVal hwnd As Integer, ByVal Msg As Integer, _
        ByVal wParam As Integer, _
       <MarshalAs(UnmanagedType.AsAny)> ByVal lParam As Object) As Integer
    Private Declare Function RegisterWindowMessage Lib "user32" 
       Alias "RegisterWindowMessageA" (ByVal lpString As String) As Integer

    Public Function changement() As Boolean
dim tmp as string 
  
'Chaine du path 
tmp = "SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem;C:\ESSBASE6\BIN;C:\ESSBASE6\API\Redist;c:\sys\ora8i\bin;c:\sys\orawinnt\bin;C:\Sys\Pcom\;C:\Program Files\IBM\Trace Facility\;C:\PROGRA~1\CONTINUUS\CCM51\BIN;C:\ARBORPATH\bin" 
  
  
'Modifie la base de registre de windows (DonnerValeur est un fonction de modification de d'un clé de registre que vous pouvez retrouver ici ) 
Call DonnerValeur(0, "SYSTEM\CurrentControlSet\Control\Session Manager\Environment", "ARBORPATH", "C:\ARBOR") 
Call DonnerValeur(0, "SYSTEM\CurrentControlSet\Control\Session Manager\Environment", "Path", tmp) 
  
'Message en Broadcoast pour l'envoie du changement à tous les processus de windows concernant cette modification 
Dim nMsg As UInteger = RegisterWindowMessage("WM_SETTINGCHANGE")
Call SendMessage(HWND_BROADCAST, nMsg, 0, "Environment")
  
  
    End Function

End Class 

31 mai 2009 18:32:08 :

Le 31/05/2009 Avec l'arrivé ce VISTA, ce code doit être amendé avec les nouveaux éléments sur MSDN : http://msdn.microsoft.com/en-us/library/ms644950(VS.85).aspx En effet il faut ajouter un RegisterWindowMessage avec de lancer le broadcast.