获取WINDOWS下当前用户路径 USERPROFILE

向右看齐 2022-08-11 20:00 727阅读 0赞

%USERPROFILE%  可以帮助你获取WINDOWS下当前用户路径。

以前曾用 GetWindowsDirectory、GetSystemDirectory、GetTempPath 等函数获取系统常用文件夹;

也用过 SHGetSpecialFolderLocation、SHGetPathFromIDList 函数获取过更多常用路径;

但这都不如用 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%    \{搜索路径\}  
\--------------------------------------------------------------------------------  
另外, 可以利用 .. 到上层目录, 如:  
\--------------------------------------------------------------------------------  
   
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;