本文整理自网络,侵删。
function GetCookiesFolder:string;
var
pidl:pItemIDList;
buffer:array [ 0..255 ] of char ;
begin
SHGetSpecialFolderLocation(0, CSIDL_COOKIES, pidl);
SHGetPathFromIDList(pidl, buffer);
result:=strpas(buffer);
end;
function ShellDeleteFile(sFileName: string): Boolean;
var
FOS: TSHFileOpStruct;
begin
FillChar(FOS, SizeOf(FOS), 0); {记录清零}
with FOS do
begin
wFunc := FO_DELETE;//删除
pFrom := PChar(sFileName);
fFlags := FOF_NOCONFIRMATION;
end;
Result := (SHFileOperation(FOS) = 0);
end;
procedure DelCookie;
var
dir:string;
begin
InternetSetOption(nil, INTERNET_OPTION_END_BROWSER_SESSION, nil, 0);
dir:=GetCookiesFolder;
//showmessage(dir);
ShellDeleteFile(dir+'\*.txt');
end;
在USER里面加入如下单元;
WinINet,shlobj,shellapi
相关阅读 >>
Delphi 设置webbrowser 代理服务器 与 useragent
Delphi 判断图像格式bmp jpg gif pcx png psd ras sgi tiff err
Delphi android / ios应用程序中使用tgeocoder类进行反向地理编码(从位置信息中获取地址)
Delphi android实例-读取设备联系人(xe8+小米2)
更多相关阅读请进入《Delphi》频道 >>