Mega Code Archive

 

Categories / Delphi / System

 

Read the environemnt strings

{ 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;