【转】Delphi利用系统环境变量获取常用系统目录
Delphi code
//譬如 %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 code
var 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;
- 上一篇 »java获取和设置系统变量问题，环境变量
- 下一篇 »java获取和设置系统变量问题，环境变量