修改注册表里的环境变量后立即生效

SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0,
    integer(pchar('Environment')), SMTO_ABORTIFHUNG, 5000, MsgResult);