Spirit's Home

    像清理电脑垃圾之类的电脑优化软件中都有清除cookies、ie缓存的功能，Delphi利用下面的函数即可实现清除IE的缓存：

function GetCookiesFolder:string;
var
        pidl:pItemIDList;
        buffer:array [ 0..255 ] of char ;
begin
       SHGetSpecialFolderLocation(
         application.Handle , 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; 

//删除cookies 
procedure DelCookie; 
var 
       dir:string; 
begin 
      try 
       InternetSetOption(nil, INTERNET_OPTION_END_BROWSER_SESSION, nil, 0); 
       dir:=GetCookiesFolder;
       ShellDeleteFile(dir+'\*.txt'+#0);
       except
       abort; 
      end; 

end;