1 respuesta en este tema

[enecumene]

Pues eso, aprenderemos a obtener las variables de entorno de Windows, aquí el code:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  Variable: Boolean;
  Str: PChar;
  Res: string;
begin
  Str:=GetEnvironmentStrings;
  Res:='';
  Variable:=False;
  while True do begin
    if Str^=#0 then
    begin
      if Variable then Memo1.Lines.Add(Res);
      Variable:=True;
      Inc(Str);
      Res:='';
      if Str^=#0 then
        Break
      else
        Res:=Res+str^;
    end
    else
      if Variable then Res:=Res+Str^;
    Inc(str);
  end;
end;

Más abajo anexo una imagen del resultado en mi caso

Qué lo disfruten, Saludos.

[Fenareth]

Amigo, si sigues así, llegará el momento en que ya no haya nada más que publicar

Broma, tu síguele, vas solo....

Saludox !