本文整理自网络,侵删。
//譬如 %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 Settings\wy}%HOMEPATH%{当前用户路径 - \Documents and Settings\wy}%TMP%{当前用户临时文件夹 - C:\DOCUME~1\wy\LOCALS~1\Temp}%TEMP%{当前用户临时文件夹 - C:\DOCUME~1\wy\LOCALS~1\Temp}%APPDATA%{当前用户数据文件夹 - C:\Documents and Settings\wy\Application Data}%PROGRAMFILES%{程序默认安装目录 - C:\Program Files}%COMMONPROGRAMFILES%{文件通用目录 - C:\Program Files\Common Files}%USERNAME%{当前用户名 - wy}%ALLUSERSPROFILE%{所有用户文件目录 - C:\Documents and Settings\All 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:\WINDOWS\system32\cmd.exe}%PATHEXT%{执行文件类型 - .COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.pyo;.pyc;.py;.pyw}%PATH%{搜索路径}另外, 可以利用 .. 到上层目录, 如:
Delphi codevar s: string;begin s := GetCurrentDir; ShowMessage(s); {C:\Documents and Settings\wy\My Documents\RAD Studio\Projects}
SetCurrentDir('..'); s := GetCurrentDir; ShowMessage(s); {C:\Documents and Settings\wy\My Documents\RAD Studio}
SetCurrentDir('..\..'); s := GetCurrentDir; ShowMessage(s); {C:\Documents and Settings\wy}end;
相关阅读 >>
Delphi xe增强的rtti妙用--动态创建包中的窗口类
Delphi 使用 {$include} 或 {$i} 指令管理和调用自定义函数
更多相关阅读请进入《Delphi》频道 >>