【转】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 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%	{搜索路径}

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

Delphi code

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