获取当前用户本地应用程序设置文件夹 Delphi

谷歌Chrome绿色版，禁止了自动更新，手动更新有时需要删除个人配置文件，使用这个方法得到用户本地程序设置文件夹，然后加上\Google\Chrome\User Data就是我需要的。

uses
ShlObj；
procedure TForm1.Button1Click(Sender: TObject);
var
  pidl: pItemIDList;
  buffer: array[0..255] of char;
begin
  {取指定的文件夹}
  SHGetSpecialFolderLocation(application.Handle, 28, pidl);
  SHGetPathFromIDList(pidl, buffer); 
  memo1.Lines.Add(strpas(buffer));
end;

得到的结果是：C:\Users\用户名\AppData\Local

组合完毕是：C:\Users\用户名\AppData\Local\Google\Chrome\User Data

那个常数的更全代表意思如下：

'桌面',0
'所有用户桌面',25
'开始菜单程序',2
'所有用户开始菜单程序',23
'我的文档',5
'收藏夹',6
'所有用户收藏夹',31
'启动文件夹',7
'所有用户启动文件夹',24
'Recent文件夹',8
'发送到',9
'登陆用户开始菜单',11
'所有用户开始菜单',22
'网上邻居',19
'字体文件夹',20
'Template文件夹',21
'所有用户Template文件夹',45
'ApplicaionData 文件夹',26
'打印文件夹',27
'当前用户本地应用程序设置文件夹',28
'Internet临时文件夹',32
'Internet缓存文件夹',33
'当前用户历史文件夹',34
'所有用户应用程序设置文件夹',35
'Windows系统目录',36
'程序文件夹',38
'System32系统目录',37
'当前用户图片收藏夹',39
'当前用户文件夹',40
'公共文件夹',43
'管理工具',47
'登陆用户管理工具',48
'所有用户图片收藏夹',54
'所有用户视频收藏夹',55
'主题资源文件夹',56
'CD Burning',59