当前位置: 源码素材网 » Delphi源码 » 系统相关 » 详情页

Delphi 根据环境变量得到系统路径信息

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

  • 相关标签:环境变量 系统路径
  • 调试环境:Delphi7+
  • 文件大小:6.89K
  • 资源评级:
  • 更新时间:2018-07-06
  • 相关链接:暂无演示

源码测试截图:

Delphi 根据环境变量得到系统路径信息运行截图

相似源码:环境变量 系统路径 Delphi源码下载:Delphi 根据环境变量得到系统路径信息 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“Delphi 根据环境变量得到系统路径信息”源代码侵犯了您的权益,请尽快告诉我们。