用DELPHI代码的方式清理cookies，如何实现，比较急，高分送出。分不够，再给加，顶者有分

Question

用DELPHI代码的方式清理cookies，如何实现，比较急，高分送出。分不够，再给加，顶者有分

Answer 1

原理:
CMD下:
DEL/Q "C:\Documents and Settings\<用户名>\Cookies用winexec吧!

Answer 2

uses
  shlobj;{$R *.dfm}function GetSpecialFolder(const CSIDL : integer) : string;
var
  RecPath : PAnsiChar;
begin
  RecPath := StrAlloc(MAX_PATH);
  try
    FillChar(RecPath^,MAX_PATH,0);
    if SHGetSpecialFolderPath(0,RecPath,CSIDL,false) then begin
     result := RecPath;
    end else result := '';
  finally
    StrDispose(RecPath);
  end;
end;procedure DelFiles(const Directory: string);
var
  DirInfo: TSearchRec;
  Finder: Integer;
  Dir: string;
begin
  Dir := Directory;
  Finder := FindFirst(Dir+'\*.*', FaAnyfile, DirInfo);
  while Finder = 0 do
  begin
    DeleteFile(PChar(Dir+'\'+DirInfo.Name));
    Finder := FindNext(DirInfo);
  end;
  FindClose(DirInfo);
end;procedure TForm1.BtnDelCookiesClick(Sender: TObject);
begin
  DelFiles(GetSpecialFolder(CSIDL_COOKIES));
end;结贴 sanmaotuo(老冯) (100)、