Установить переменные окружения из Delphi (Win32)

Question

Я пытаюсь установить общесистемную переменную среды из моего приложения delphi. Документация говорит, что нужно добавить раздел реестра в HKEY_LOCAL_MACHINE \ SYSTEM \ CurrentControlSet \ Control \ Session Manager \ Environment, а затем передать сообщение WM_SETTINGCHANGE. Кто-нибудь знает, как транслировать это сообщение?

PS. Я пытаюсь сделать это в консольном приложении.

Answer 1

Звоните SendMessage. Используйте HWnd_Broadcast в качестве целевого окна.

Лучшим вариантом может быть SendNotifyMessage, при котором не ждут возвращения всех получателей.

Answer 2

В сети разработчиков Embarcadero также есть тема, посвященная этой проблеме и предоставлению примера кода для отправки сообщения. Автор использует SendMessageTimeout , как рекомендовано в документе MSDN для WM_SETTINGCHANGE :

http://edn.embarcadero.com/article/28254