1
uses
2
ShlObj;
3![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
4
procedure
TForm1.Button1Click(Sender: TObject);
5
var
6
pItem: PItemIDList;
7
sPath:
array
[
0
..MAX_PATH
-
1
]
of
Char;
8
begin
9
{
<user name>\Application Data
}
10
SHGetSpecialFolderLocation(Handle, CSIDL_APPDATA, pItem);
11
FillChar(sPath, SizeOf(sPath),
0
);
12
SHGetPathFromIDList(pItem, sPath);
13
ShowMessage(StrPas(sPath));
14
end
;
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
3
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
4
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
5
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
6
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
7
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
8
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
9
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
10
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
11
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
12
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
13
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
14
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)