Función GetEnvironmentVariable

[Casimiro Noteví]

No entiendo lo que dices, y en el enlace que has puesto dicen que funciona perfectamente
Explica exactamente qué haces, pon el código que usas (no somos adivinos), explica correctamente por qué no te funciona, copia el error te sale, etc.

[[Lepe]]

Yo he usado el código de este hilo en W XP hasta W 7, en W8 no he tenido la oportunidad de probarlo.

Funciona de 10.

El hilo que haces referencia es para obtener las variables de entorno, pero de ahí no vas a obtener el resultado de un ms-dos. Son cosas distintas.

Si han quitado algo, será porque se ha modificado la API de windows,y ahí Delphi no puede hacer nada.

Saludos

[[nlsgarcia]]

elrayo76,

Empezado por elrayo76

...Estoy intentando usar la función GetEnvironmentVariable...alguien me puede indicar como se puede usar esta función...

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
   EnvWin : array[0..26] of string =
            ('ALLUSERSPROFILE', 'APPDATA', 'CLIENTNAME',
             'COMMONPROGRAMFILES', 'COMPUTERNAME', 'COMSPEC',
             'HOMEDRIVE', 'HOMEPATH', 'LOGONSERVER',
             'NUMBER_OF_PROCESSORS','OS', 'PATH',
             'PATHEXT', 'PROCESSOR_ARCHITECTURE', 'PROCESSOR_IDENTIFIER',
             'PROCESSOR_LEVEL', 'PROCESSOR_REVISION', 'PROGRAMFILES',
             'SESSIONNAME', 'SYSTEMDRIVE', 'SYSTEMROOT',
             'TEMP', 'TMP', 'USERDOMAIN',
             'USERNAME', 'USERPROFILE', 'WINDIR'
            );

var
   i : Integer;

begin

   for i:= Low(EnvWin) to High(EnvWin) do
   begin
      ListBox1.Items.Add(Format('%s = %s',[EnvWin[i],GetEnvironmentVariable(EnvWin[i])]));
   end;

end;

El código anterior obtiene el valor de la variables de entorno de Windows en un control TListBox por medio de la función GetEnvironmentVariable y es funcional en Delphi 7, Delphi 2006 y Delphi 2010 y según entiendo también en las versiones Delphi XE*

Empezado por elrayo76

...me gustaría saber cual es el motivo de que se le sacaron dos de los parámetros a la misma...

Te comento:

1- En Delphi, GetEnvironmentVariable es una función de SysUtils que tiene como único parámetro un string y retorna el valor de la variable de entorno de Windows indicada.

2- En Windows, GetEnvironmentVariable es una función API que retorna el valor de una variable de entorno de Windows pero con diferentes parámetros a la función de Delphi.

3- Ambas funciones GetEnvironmentVariable (Delphi y Windows) cumplen la misma función solo que en Delphi es más directa su implementación.

Te sugiero consultar estos links:

GetEnvironmentVariable function : http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

System.SysUtils.GetEnvironmentVariable : http://docwiki.embarcadero.com/Libra...onmentVariable

SysUtils.GetEnvironmentVariable Function : http://docs.embarcadero.com/products...tVariable.html

CmdLine : http://www.delphibasics.co.uk/RTL.asp?Name=CmdLine

ParamCount : http://www.delphibasics.co.uk/RTL.asp?Name=ParamCount

ParamStr : http://www.delphibasics.co.uk/RTL.asp?Name=ParamStr

FindCmdLineSwitch : http://www.delphibasics.co.uk/RTL.as...dCmdLineSwitch

Espero sea útil

Nelson.