Función GetEnvironmentVariable

[dec]

Empezado por elrayo76

Mas alla de lo que quiero hacer con esa función, que es lo mismo que hizo el amigo Lepe, lo que me pasa es que en Delphi XE3 esa función no tiene los mismos tres parámetros como se ve en el ejemplo de Lepe. En Delphi XE3 solo tiene un parámetro que es de tipo String.

Para que puedan ver lo que digo les voy a dejar el enlace a la documentación de Embarcadero donde esta esta función.
http://docwiki.embarcadero.com/Libra...onmentVariable

Además como se puede ver en la documentación de Microsoft esta API tiene 3 parámetros:
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx.

Entonces porque cuando Embarcadero hizo la función le saco dos de esos parámetros.

Si alguien me puede decir como usar esa nueva función o si tengo que bajar alguna actualización para Delphi XE3 para corregir este error se los agradecería

El Rayo

Me da la impresión de que quieres usar la función "GetEnvironmentVariable" que Delphi implementa, y no la otra, "para la que no tienes argumentos". Lo que está pasando, seguramente, es que, por el orden en que incluyes las unidades, Delphi está queriendo usar la función de la unidad "Windows", y no la de la unidad "SysUtils". Para "forzar" el uso de la función que se encuentra en esta unidad, bastará que te refieras a ella siguiendo su "ruta completa", tal que así:

Código Delphi [-]
var
  appDataVar : string;
begin
  // Usamos la función indicando la unidad en que se encuentra
  appDataVar := System.SysUtils.GetEnvironmentVariable( APPDATA );

  // Ya puedes usar el valor de la variable "appDataVar".
end;

[ecfisa]

Hola.

Leyendo tu último mensaje coincido con dec sobre la causa de que no te funcione la implementación de Delphi.

Desconozco si será así para Delphi XE3 por que aún no he podido adquirir una nueva versión. Pero, por si te sirve de ayuda, te pongo un trozo de código donde llamo a la función GetEnvironmentVariable de ambos modos (desde Delphi 7):

Código Delphi [-]
var
  EnvStr: string;
  size: Integer;
begin
  // Mediante la función Delphi
  ShowMessage('Delphi: '+ SysUtils.GetEnvironmentVariable('WINDIR'));

  // Mediante la API de windows
  size := Windows.GetEnvironmentVariable('WINDIR',nil,0);
  if size > 0 then
  begin
    SetLength(EnvStr, size-1);
    Windows.GetEnvironmentVariable('WINDIR',PChar(EnvStr),size);
    ShowMessage('Win API: '+EnvStr);
  end;
end;

Entonces porque cuando Embarcadero hizo la función le saco dos de esos parámetros.

No podría asegurar el motivo que llevó a los diseñadores de Delphi a hacerlo. Estimo que para simplificarles la llamada a los usuarios del lenguaje.

Y comparando la dificultad en el uso de una u otra, mas bién surge preguntar por que los diseñadores de Windows no la hicieron de otro modo...

Saludos.

[elrayo76]

Gracias Dec, me has dado una pista de por donde empezar a buscar para ve en que unit esta cada una de las funciones, tanto la implementada por Delphi como la de la API de Windows.

Igualmente por todos los ejemplos que aparecen en Internet la que yo quiero usar es la de la API de Windows. Esta no esta indicada en la documentación del lenguaje en que unit se encuentra y por consiguiente yo puse la unit SysUtils que es donde se encuentra la otra.

Vere esto último en cuento este con la máquina donde lo quiero usar y les contare como me fue.

Saludos y muchas gracias a todos,
El Rayo

[[nlsgarcia]]

elrayo76,

Te comento:

Empezado por elrayo76

...en Delphi XE3 esa función no tiene los mismos tres parámetros como se ve en el ejemplo de Lepe...

En el ejemplo del Msg #3 se usa la API GetEnvironmentVariable de Windows no la función de Delphi contenida en la unidad SysUtils.

Empezado por elrayo76

...nlsgarcia, si te fijas en los enlaces que tu mandas en tu mensaje, lo que dice Microsoft de la API y lo que esta implementado por Embarcadero para el uso de esa API no coincide para nada en los parámetros...

Como te comente en el Msg #4 son funciones análogas pero con diferentes parámetros, el uso de una u otra (Windows o Delphi) depende del programador, en lenguajes en los que no se incluyan esta función se debe hacer uso del API de Windows.

Empezado por elrayo76

...¿porque no existe código alguno en la Web con esta función y si con la que tiene los tres parámetros y que no existe en ninguna de las units de Delphi en ninguna de sus versiones desde la 7 en adelante. O es que todos usan la API y nadie dice de donde la llaman?...

Pregunto: ¿Te fue posible probar el código del Msg #4?, el código sugerido funciono correctamente en Delphi 7, Delphi 2006 y Delphi 2010 y hace uso de la función GetEnvironmentVariable que se encuentra en SysUtils.

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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
  Form1: TForm1;

implementation

{$R *.dfm}

function GetWinEnvVar(WinEnvVar: String): String;
var
   ResultEnvVar: String;
   LenEnvVar: Integer;

begin

   LenEnvVar:= GetEnvironmentVariable(PChar(WinEnvVar),nil,0);

   if LenEnvVar > 0 then
   begin
      SetLength(ResultEnvVar,LenEnvVar);
      Windows.GetEnvironmentVariable(PChar(WinEnvVar),PChar(ResultEnvVar),LenEnvVar);
      Result:= ResultEnvVar;
   end
   else
      Result:= EmptyStr;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;

begin

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

end;

procedure TForm1.Button2Click(Sender: TObject);
var
   i : Integer;

begin

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

end;

end.

El código anterior es un ejemplo del uso de la función GetEnvironmentVariable (Unit Windows y SysUtils) haciendo la llamada explicita de esta en su unidad correspondiente (Aunque no es necesario en Delphi7, Delphi 2006 y Delphi 2010 donde funciono correctamente según lo esperado) para destacar su funcionalidad análoga y diferencia de parámetros. Para facilitar las pruebas, el ejemplo esta disponible en el siguiente link: http://terawiki.clubdelphi.com/Delph...ntVariable.rar

Empezado por dec

...Lo que está pasando, seguramente, es que, por el orden en que incluyes las unidades, Delphi está queriendo usar la función de la unidad "Windows", y no la de la unidad "SysUtils"...

En las pruebas que hice en Delphi 7, Delphi 2006 y Delphi 2010 la unidad SysUtils estaba declarada después de la unidad Windows y esto no afecto el uso de la función GetEnvironmentVariable de Delphi, quizás en Delphi XE3 sea diferente.

Te sugiero leer nuevamente el Msg #4 y probar el código del enlace sugerido, quizás ayude a aclarar un poco el tema en cuestión.

Espero sea útil

Nelson.

[elrayo76]

He podido probar la función de las dos maneras, usando la de Delphi y la de la API. Funcionaron las dos para lo que necesito.

Ahora comento que hay que tener mucho cuidado cuando se incluye la unit SysUtils porque si se quiere usar la función de la API al incluir esa unit Delphi busca la que tiene la misma unit y no utiliza la de la API.. Igualmente esto se soluciona haciendo una llamada completa a la que corresponda coomo por ejemplo sysUtils.GetEnvironmentVariable.

Desde ya muchas gracias a todos por sus respuestas.

Saludos,
El Rayo