Delphi findet kein FindFirstCacheEntry

[Trouble_Maker]

hiho!
So ich möchte die URL´s in der Adressleiste löschen!
Ich habe hier im Forum gesucht und folgenden Code gefunden:

Code:

procedure TForm1.Cookies1Click(Sender: TObject); 

var 
  icei     : PINTERNETCACHEENTRYINFO; 
  dwSize   : DWord; 
  hSearch  : DWord; 

begin 
  CheckListBox1.Items.BeginUpdate; 
  CheckListBox1.Items.Clear; 
  dwSize  := 65536; 
  icei    := AllocMem(dwSize); 
  try 
    hSearch := FindFirstURLCacheEntry('visited:',icei^,dwSize); 
    if hSearch = 0 then 
    begin 
      ShowMessage(SysErrorMessage(GetLastError)+' '+IntToStr(dwSize)); 
      exit; 
    end; 
    while hSearch <> 0 do 
    begin 
      Application.ProcessMessages; 
      CheckListBox1.Items.Add(icei^.lpszSourceUrlName); 
      dwSize := 65536; 
      if not FindNextURLCacheEntry(hSearch,icei^,dwSize) then 
      begin 
        hSearch := 0; 
      end; 
    end; 
  finally 
    FreeMem(icei,65536); 
    CheckListBox1.Items.EndUpdate; 
  end; 
end; 


procedure TForm1.Lschen1Click(Sender: TObject); 

var 
  i : integer; 

begin 
  for i := 0 to CheckListBox1.Items.Count-1 do 
  begin 
    if CheckListBox1.Checked[i] then 
    begin 
      DeleteURLCacheEntry(PChar(CheckListBox1.Items[i])); 
    end; 
  end; 
  Cookies1.Click; 
end;

So jetzt findet er bei mir aber das "FindFirstCacheEntry" und das "PINTERNETCACHEENTRYINFO" nicht !!!
Muss ich irgendwas besonderes bei "uses" noch mit einbringen ?!?

Danke Trouble_Maker

[Trouble_Maker]

kann mir keiner helfen ?!?

Ich kann das doch ohne eure Hilfe nich :-|

Trouble_Maker

[Darty]

Woher hast DU diesen Code ?

[Luckie]

Probier es mal mit Wininet in den uses.

[Trouble_Maker]

hiho!

Ah cool! das mit dem Wininet hat geklappt! Danke!!!

Nur bin ich mir nicht ganz im klaren, was der Quelltext jetzt macht !!!
kann mir das jemand sagen ?!? weil die URL´s in der Adressleiste bleiben bestehn ?!?!


Trouble_Maker

[Trouble_Maker]

hat sich schon erledigt !!!
Danke trotzdem!!

cu Trouble_Maker

[Christian Seehase]

Moin M.Knebel,

Zitat:

Zitat von M.Knebel

Woher hast DU diesen Code ?

hättest Du nicht gefragt, hätte ich's wohl getan.
Sieht mal wieder sehr nach meiner Routine aus (die hier im Forum auch schon an anderer Stelle steht) ;-)