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);
Delphi 根据环境变量得到系统路径信息
源码测试截图:

相似源码:环境变量 系统路径 Delphi源码下载:Delphi 根据环境变量得到系统路径信息 测试截图
下载地址:
本类源码推荐
最新网页特效
下载声明:
本站资源仅供学习参考,禁止用于非法途径。若“Delphi 根据环境变量得到系统路径信息”源代码侵犯了您的权益,请尽快告诉我们。