Ir al contenido


Foto

[TRUCO DELPHI] Definir una Variable del Sistema.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 09 diciembre 2016 - 03:24

[TRUCO DELPHI] Definir una Variable del Sistema.


delphi
  1. procedure SetSystemEnvironmentVariable (const name, value : string);
  2. var
  3. rv : DWORD;
  4. begin
  5. with TRegistry.Create do
  6. try
  7. RootKey := HKEY_LOCAL_MACHINE;
  8. OpenKey ('SYSTEM\CurrentControlSet\Control\SessionManager\Environment', False);
  9. WriteExpandString (name, value);
  10. SendMessageTimeout (HWND_BROADCAST, WM_SETTINGCHANGE, 0, LParam
  11. (PChar ('Environment')), SMTO_ABORTIFHUNG, 5000, rv);
  12. finally
  13. Free
  14. end
  15. end;

Saludos!


  • 1