谷歌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