bsp; end
  finally
    FreeMem(T, D)
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  URL:String;
begin
  If ListBox1.ItemIndex >=0 then begin
    URL:=ListBox1.Items.Strings[ListBox1.ItemIndex];
    Self.Caption := URL;
    if DeleteUrlCacheEntry(PChar(URL))then
      ListBox1.Items.Delete(ListBox1.ItemIndex);
  end;
end;

end.

    运行程序，点击Button1，就可以分别在ListBox1中列出所有在Cache中的文件所对应的URL以及在ListBox2中列出相应的文件名。在ListBox1中选择一个列表，然后点击 Button2 就可以将该项从Cache中删除。
    下面看程序，FindFirstUrlCacheEntryEx函数在Delphi中定义如下：

function FindFirstUrlCacheEntryExA(lpszUrlSearchPattern: PAnsiChar;
    dwFlags: DWORD;
    dwFilter: DWORD;
    GroupId: GROUPID;
    lpFirstCacheEntryInfo: PInternetCacheEntryInfo;
    lpdwFirstCacheEntryInfoBufferSize: LPDWORD;
    lpGroupAttributes: Pointer;  { 必须为 nil }
    pcbGroupAttributes: LPDWORD;    {必须为 nil }
    lpReserved: Pointer             { 必须为 nil }
    ): THandle; stdcall;

    其中，dwFilter定义查找类型，在这里定义为NORMAL_CACHE_ENTRY以查找普通的Cache文件，GroupId定义查找分组，在这里定义为0以查找所有分组。lpFirstCacheEntryInfo定义Cache文件数据结构。该结构在Wininet.pas中有定义，这里就不列出了，其中成员lpszSourceUrlName以及lpszLocalFileName分别定义文件URL以及本地文件名。
    在上面的程序中我们可以看到，不论调用FindFirstUrlCacheEntryEx还是FindNextUrlCacheEntryEx，都需要调用两次，第一次获得一个指向PInternetCacheEntryInfo结构的指针，将这个指针通过GetMem函数赋予一个PInternetCacheEntryInfo结构数据。然后第二次调用才可以获得结果。遍历访问完毕后需要调用FindCloseUrlCache方法关闭打开的局柄。
    上面介绍的是Cache操作中的遍历Cache文件以及删除Cache文件的操作。Cache操作函数还包括：分组函数，可以将特定的文件分在一个组内并执行组操作，例如：CreateUrlCacheGroup、SetUrlCacheEntryGroup;数据流(Stream)操作函数，可以将Cache中的内容输入到数据流中。等等。大家可以参考MSDN中的帮助，或者到我的主页 http://www.applevb.com 同我讨论以及获得源程序。
    以上程序在Win2000、Delphi 5下编写，Win2000、Win98下运行通过。