Delphi利用系统环境变量获取常用系统目录

// 譬如%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%

{搜索路径}

另外, 可以利用 .. 到上层目录, 如:

var s: string ;
begin s : =GetCurrentDir;
ShowMessage(s);
{ C:\Documents and Settings\wy\My Documents\RADStudio\Projects }
SetCurrentDir( ' .. ' );
s : = GetCurrentDir;
ShowMessage(s);
{ C:\Documents and Settings\wy\My Documents\RADStudio }
SetCurrentDir( ' ..\.. ' );
s : = GetCurrentDir; ShowMessage(s);
{ C:\Documents and Settings\wy }
end ;