诛仙3鬼道神鬼乱舞:Delphi 中用 GetEnvironmentVariable 获取常用系统变量

来源：百度文库编辑：九乡新闻网时间：2024/05/06 18:50:09

//譬如　WINDIR　是表示系统目录的系统变量,　可以这样获取:
var
　　s:　string;
　　begin
　　s　:=　GetEnvironmentVariable('WINDIR');
　　ShowMessage(s);　{C:WINDOWS}
end;
(*--------------------------------------------------------------------------------
　　WINDIR　　　　　　　　　　　　{系统目录　-　C:WINDOWS}
　　SYSTEMROOT　　　　　　　　　　　　　{系统目录　-　C:WINDOWS}
　　SYSTEMDRIVE　　　　　　　　　　　　{系统根目录　-　C:}
　　HOMEDRIVE　　　　　　　　　　　　{当前用户根目录　-　C:}
　　USERPROFILE　　　　　　　　　　　　{当前用户目录　-　C:Documents　and　Settingswy}
　　HOMEPATH　　　　　　　　　　　　{当前用户路径　-　Documents　and　Settingswy}
　　TMP　　　　　　　　　　　　　　　　{当前用户临时文件夹　-　C:DOCUME~1wyLOCALS~1Temp}
　　TEMP　　　　　　　　　　　　　　　　　{当前用户临时文件夹　-　C:DOCUME~1wyLOCALS~1Temp}
　　APPDATA　　　　　　　　　　　　　{当前用户数据文件夹　-　C:Documents　and　SettingswyApplication　Data}
　　PROGRAMFILES　　　　　　　　　　　　{程序默认安装目录　-　C:Program　Files}
　　COMMONPROGRAMFILES　　　　　　　　{文件通用目录　-　C:Program　FilesCommon　Files}
　　USERNAME　　　　　　　　　　　　{当前用户名　-　wy}
　　ALLUSERSPROFILE　　　　　　　　{所有用户文件目录　-　C:Documents　and　SettingsAll　Users}
　　OS　　　　　　　　　　　　　　　　{操作系统名　-　Windows_NT}
　　COMPUTERNAME　　　　　　　　　　　　{计算机名　-　IBM-B63851E95C9}
　　NUMBER_OF_PROCESSORS　　　　　　　　{处理器个数　-　1}
　　PROCESSOR_ARCHITECTURE　　　　　{处理器芯片架构　-　x86}
　　PROCESSOR_LEVEL　　　　　　　　{处理器型号　-　6}
　　PROCESSOR_REVISION　　　　　　　　{处理器修订号　-　0905}
　　USERDOMAIN　　　　　　　　　　　　　{包含用户帐号的域　-　IBM-B63851E95C9}
　　COMSPEC　　　　　　　　　　　　　{C:WINDOWSsystem32cmd.exe}
　　PATHEXT　　　　　　　　　　　　　{执行文件类型　-　.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.pyo;.pyc;.py;.pyw}
　　Path　　　　　　　　　　　　　　　　　{搜索路径}　s:　string;
--------------------------------------------------------------------------------*)
begin
　　s　:=　GetCurrentDir;
　　ShowMessage(s);　{C:Documents　and　SettingswyMy　DocumentsRAD　StudioProjects}
　　
　　SetCurrentDir('..');
　　s　:=　GetCurrentDir;
　　ShowMessage(s);　{C:Documents　and　SettingswyMy　DocumentsRAD　Studio}
　　
　　SetCurrentDir('....');
　　s　:=　GetCurrentDir;
　　ShowMessage(s);　{C:Documents　and　Settingswy}
end;

Delphi 中用 GetEnvironmentVariable 获取常用系统变量 CAD常用系统变量 cad系统变量 Delphi获取所有打印机名称和型号 delphi 获取文件创建,修改时间设置AutoCAD的系统变量 Delphi常用函数用法示例如何获取系统时间 Delphi常用类型及定义单元 delphi Delphi中用多媒体库Bass.dll播放mp3 [9] - 绘制波形图_软件开发_蚂蚁... 在 Excel 2002 中用函数获取股票报价 - Excel - Microsoft O... delphi控件安装(重安装系统也不用再安装) 自制C8650精简系统+Root权限获取 C语言获取系统当前时间 Windows XP下系统变量方式表达相对应的路径摄影中用光原则和PS处理图象常用手法和一些参数值 Python获取系统默认字符编码 - iPie : 思维碎片 python如何获取指定的系统时间串各种汽车防盗系统的防盗密码获取方法锦鲤养殖常用过滤系统锦鲤养殖常用过滤系统 windowsxp系统常用运行命令常用知识扫盲-- Android系统