Изменить глобальные переменные можно только с правами админа.
Вот набросал пример, который прописывает в систему переменную Vingrad:
| Код |
var
r: TRegistry;
begin
r := TRegistry.Create;
try
r.RootKey := HKEY_LOCAL_MACHINE;
r.OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\Environment', true);
r.WriteString('Vingrad', 'http://forum.vingrad.ru/');
SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, integer(PChar('Environment')));
finally
r.Free;
end;
end;
|
Добавлено @ 11:48
Без админских прав можно изменить переменные текущего юзверя:
| Код |
var
r: TRegistry;
begin
r := TRegistry.Create;
try
r.RootKey := HKEY_CURRENT_USER;
r.OpenKey('Environment', true);
r.WriteString('Vingrad', 'http://forum.vingrad.ru/');
SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, integer(PChar('Environment')));
finally
r.Free;
end;
end;
|
Добавлено @ 11:51
| Цитата(MSDN) |
Calling SetEnvironmentVariable has no effect on the system environment variables. The user can add or modify system environment variables using the Control Panel. To programmatically add or modify system environment variables, add them to the HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Session Manager\Environment registry key, then broadcast a WM_SETTINGCHANGE message with lParam set to the string "Environment". This allows applications, such as the shell, to pick up your updates. Note that the values of the environment variables listed in this key are limited to 1024 characters.
|
|
)
. Так бы повысил рейтинг!