- 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
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