FindFirstURLCacheEntry Parameter falsch ?

[HomerGER]

Hallo

ich lese mit dieser function den Cache aus

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
ie_cache : PINTERNETCACHEENTRYINFO;
size_dw : DWord;
cache_dir_dw : DWord;
begin
    CheckListBox1.Items.BeginUpdate;
    CheckListBox1.Items.Clear;

    size_dw  := 65536;
    ie_cache    := AllocMem(size_dw);

    try
        cache_dir_dw := FindFirstUrlCacheEntry(NIL ,ie_cache^,size_dw);

        if cache_dir_dw = 0 then
        begin
            ShowMessage(SysErrorMessage(GetLastError)+' '+IntToStr(size_dw));
            exit;
        end;

        while cache_dir_dw <> 0 do
        begin
            Application.ProcessMessages;

            CheckListBox1.Items.Add(ie_cache^.lpszSourceUrlName);

            size_dw := 65536;

            if not FindNextURLCacheEntry(cache_dir_dw,ie_cache^,size_dw) then
            begin
                cache_dir_dw := 0;
            end;
        end;

    finally
        FreeMem(ie_cache,65536);
        CheckListBox1.Items.EndUpdate;
        Edit2.Text := IntToStr(CheckListBox1.Items.Count);
    end;
end;

cache_dir_dw := FindFirstUrlCacheEntry(NIL ,ie_cache^,size_dw);

durch das NIL hier alles
ich weiß ich kann hier zwar noch 'cookie:' oder 'visited:' ersetzen
aber ich wollte es genauer


nun hab ich den Code um das erweitert

Delphi-Quellcode:

if ie_cache^.CacheEntryType = COOKIE_CACHE_ENTRY then
            begin
                CheckListBox1.Items.Add(ie_cache^.lpszSourceUrlName);
            end;

bzw durch die Parameter
NORMAL_CACHE_ENTRY
URLHISTORY_CACHE_ENTRY usw

nur dann zeigt er nix mehr an

wisst ihr warum ?