Delphi Tips&Tricks News   Tips   .NET Software   VCL Software   Search   Contacts
Ultimate Pack - special offer!

Ultimate Pack  hot!
Image Editor  new!
Runtime Fusion
Form Designer
Object Inspector
Print Suite Pro
Commented Image
Delphi Toys
WinDowse
Delphi Bonus
TMS Scripter Studio
Form Designer VB
Form Designer .NET

...get more...
for Delphi.NET, C#, VB.NET
for Delphi VCL, BCB 3-6

WinAPI Online
Unix Manual Pages
MegaDetailed.NET
in3steps.com
cdtrrracks.com new!

Blogspot  greatis.blogspot.com

Get all environment variables - System info - Tips & Tricks - Greatis Delphi Pages

To get a full list of environment variables, use GetEnvironmentStrings function. But it is necessary to process result.


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;
For more
Win32 programmer's reference

Download source