获取WINDOWS下当前用户路径 USERPROFILE

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