PureBasic Forums - English

Code: Select all

Define.s lParam = "Environment"
SendMessage_(#HWND_BROADCAST, #WM_SETTINGCHANGE, 0, @lParam)

Code: Select all

Procedure.i SL_RegEnvUpdate(tmo_ms.i=5000)
  ; Update Registry without logout/reboot:
  ; After programmatically adding or modifying system environment variables in registry key:
  ;   HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Session Manager\Environment
  ; We must broadcast a WM_SETTINGCHANGE message with lParam = "Environment" for them to be used.
  ; WM_SETTINGCHANGE signals all windows(Windows Explorer, Program Manager, Task Manager, Control Panel, etc.) to update.
  ; SendMessageTimeout(#HWND_BROADCAST, #WM_SETTINGCHANGE, 0, (LPARAM) "Environment", SMTO_ABORTIFHUNG, 5000, &dwReturnValue)
  ; LRESULT WINAPI SendMessageTimeout(_In_      HWND       hWnd,
  ;                                   _In_      UINT       Msg,
  ;                                   _In_      WPARAM     wParam,
  ;                                   _In_      LPARAM     lParam,
  ;                                   _In_      UINT       fuFlags,
  ;                                   _In_      UINT       uTimeout,
  ;                                   _Out_opt_ PDWORD_PTR lpdwResult);
  ; RETURN: 0 if timeout, else OK.
  Protected.l rl, rl2
  rl = SendMessageTimeout_(#HWND_BROADCAST, #WM_SETTINGCHANGE, 0, "Environment", #SMTO_ABORTIFHUNG, tmo_ms, @rl2)
  Delay(30)
  ProcedureReturn rl
EndProcedure
SL_RegEnvUpdate() ;SendMessageTimeout_(#HWND_BROADCAST, #WM_SETTINGCHANGE, 0, "Environment", #SMTO_ABORTIFHUNG, 5000, @rl)