Delphi 根据环境变量得到系统路径信息，环境变量大部分与程序安装相关，可自定义添加很多环境变量信息，特别是JAVA及数据库方面，本示例通过读取环境变量，得到系统路径信息，代码可参考学习：
　　TempListColumn:=self.ListView1.Columns.Add;
　　TempListColumn.Caption:='环境变量';
　　TempListColumn.AutoSize:=true;
　　TempListColumn:=self.ListView1.Columns.Add;
　　TempListColumn.Caption:='内容';
　　Envptr:=GetEnvironmentStrings;
　　savePtr:=EnvPtr;
　　repeat
　　 TempListItem:=self.ListView1.Items.Add;
　　 EnvString:=StrPas(EnvPtr);
　　 TempListItem.Caption:=Copy(EnvString,0,Pos('=',EnvString)-1);
　　 TempListItem.SubItems.Add(Copy(EnvString,Pos('=',EnvString)+1,Length(EnvString)-Pos('=',EnvString)));
　　 inc(EnvPtr,strlen(EnvPtr)+1);
　　until EnvPtr^=#0;
　　FreeEnvironmentStrings(saveptr);