系统路径 SHGetSpecialFolderLocation,SHGetPathFromIDList
来源:百度文库 编辑:神马文学网 时间:2024/04/29 00:57:55
LPITEMIDLIST ppidl; //定义IDLIST指针
charlinkpath[255]; //定义字符串,保存目录名
获得桌面路径:
SHGetSpecialFolderLocation(NULL,0 ,&ppidl);
SHGetPathFromIDList(ppidl,linkpath);
GetEnvironmentVariable 也可以得到。
以前曾用 GetWindowsDirectory、GetSystemDirectory、GetTempPath 等函数获取系统常用文件夹;
也用过 SHGetSpecialFolderLocation、SHGetPathFromIDList 函数获取过更多常用路径;
但这都不如用 GetEnvironmentVariable 获取系统变量来得快.
另外, 可以利用 .. 到上层目录, 如:
charlinkpath[255]; //定义字符串,保存目录名
获得桌面路径:
SHGetSpecialFolderLocation(NULL,0 ,&ppidl);
SHGetPathFromIDList(ppidl,linkpath);
GetEnvironmentVariable 也可以得到。
用 GetEnvironmentVariable 获取常用系统环境变量
以前曾用 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;
系统路径 SHGetSpecialFolderLocation,SHGetPathFromIDList
更改系统文件夹路径
更改系统收藏夹路径的方法
卫生部印发儿童血液系统2个病种临床路径
关于XP系统加域时“找不到网络路径”的解决办法 - 日志 - 没有才 - 彩龙博客 - P...
java路径
路径依赖
“关键路径
路径依赖
路径 作文
探秘 证券业洗钱路径
Java学习路径
图论:8.3.单源最短路径
更改常用路径
中国路径选择
创建可能性路径
处方药成功营销路径
太平洋证券上市路径
WPF 路径标记语法
地震信息传播路径
高薪的路径之一
网络擦亮阅读路径
备份脚本路径
全国省委书记成长路径