使用前需要引用shlobj, ActiveX,单元function GetSystemPath(Folder: Integer): string;
var
PIDL: PItemIDList;
Path: LPSTR;
AMalloc: IMalloc;
begin
Path := StrAlloc(MAX_PATH);
SHGetSpecialFolderLocation(Application.Handle, Folder, PIDL);
if SHGetPathFromIDList(PIDL, Path) then
Result := Path;
SHGetMalloc(AMalloc);
AMalloc.Free(PIDL);
StrDispose(Path);
end;
调用systemPath:=GetSystemPath(CSIDL_PERSONAL);
获取系统路径的Delphi函数实现
本文介绍如何使用Delphi编程语言通过调用SHGetSpecialFolderLocation和SHGetPathFromIDList函数来获取系统特定文件夹路径的方法,具体演示了获取个人文件夹路径的实现过程。
1536

被折叠的 条评论
为什么被折叠?



