Función GetEnvironmentVariable

[[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.