清除cookie的源代码

Question

就像“internet选项”中的“清除cookie”一样，删除所有的cookie记录(WIN2K)，谁会？教我。谢谢！

Answer 1

找到cookie的目錄,
uses 
  Registry; function GetDirectory: string; 
var 
  reg : TRegistry; 
begin 
  reg := TRegistry.Create; 
  try 
    reg.RootKey := HKEY_LOCAL_MACHINE; 
    reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Special Paths\Cookies', 
      False); 
    Result := reg.ReadString('Directory'); 
  finally 
    reg.Free; 
  end; 
end; 
procedure TForm1.Button1Click(Sender : TObject); 
var 
  s : string; 
begin 
  S := GetDirectory; 
  ShowMessage(GetDirectory); 
end; 將目錄下的文件清除