Buscar por:

Capturando informações do ambiente dos

Código

{No exemplo abaixo deve ser incluído no objeto TForm um objeto do tipo Button, um objeto do tipo StringGrid e um objeto do tipo ListBox. }

type 

  TForm1 = class(TForm) 

  ListBox1: TListBox; 

  Button1: TButton; 

  StringGrid1: TStringGrid; 

  procedure Button1Click(Sender: TObject); 

private 

  { Private declarations } 

public 

  { Public declarations } 

end; 

var 

Form1: TForm1; 

implementation 

{$R *.DFM} 

// Evento OnClick do objeto Button 

procedure TForm1.Button1Click(Sender: TObject); 

var 

Env : PChar; 

i : Integer; 

S : String; 

PosEq : Integer; 

begin 

  Env := GetEnvironmentStrings; 

  With ListBox1,StringGrid1 do 

  begin 

  While Env^ <> #0 do 

  begin 

  Items.Add(StrPas(Env)); 

  Inc(Env,StrLen(Env)+1); 

  end; 

  RowCount := Items.Count; 

  for i := 0 to Pred(Items.Count) do 

  begin 

  PosEq := Pos(‘=’,Items[i]); 

  Cells[0,i] := Copy(Items[i],1,PosEq-1); 

  Cells[1,i] := 

  Copy(Items[i],PosEq+1,Length(Items[i])); 

  end; 

  end; 

end;