Delphi 中用 GetEnvironmentVariable 获取常用系统变量

// 譬如 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                  { 搜索路径 }  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 ;

转载于:https://www.cnblogs.com/yunhaisoft/archive/2009/04/01/1427197.html