- 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
-
- 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
- Call SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 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
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
Call SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, "Environment")
End Function
End Class