whats new ¦  programming tips ¦  indy articles ¦  intraweb articles ¦  informations ¦  links ¦  interviews
 misc ¦  tutorials ¦  Add&Win Game

Tips (1541)

Database (90)
Files (137)
Forms (107)
Graphic (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Math (76)
Misc (126)
Multimedia (45)
Objects/
ActiveX (51)

OpenTools API (3)
Printing (35)
Strings (83)
System (266)
VCL (242)

Top15

Tips sort by
component


Search Tip

Add new Tip

Add&Win Game

Advertising

44 Visitors Online


 
...read the environemnt strings?
Autor: Thomas Stutz
[ Print tip ]  

Tip Rating (8):  
     


{
  The GetEnvironmentStrings function returns the address of the environment block
  for the current process. Each environment variable is null terminated.

  Die Funktion GetEnvironmentStrings
  gibt die Adresse des Umgebungsblocks des aktuellen Prozesses zurück.
  Jede Umgebungsvariable ist nullterminiert.
}


procedure TForm1.Button1Click(Sender: TObject);
var
  
DosEnv: PChar;
begin
  
Memo1.Lines.Clear;
  DosEnv := GetEnvironmentStrings;
  while DosEnv^ <> #0 do
  begin
    
Memo1.Lines.Add(StrPas(DosEnv));
    Inc(DosEnv, lStrLen(DosEnv) + 1);
  end;
  FreeEnvironmentStrings(DosEnv);
end;

 

Rate this tip:

poor
very good


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners