как очистить куки webbrowser ?

[alman12]

как удалит куки webbrowser ?

[Shouldercannon]

uses
  WinInet;

procedure DeleteIECache;
var
  lpEntryInfo: PInternetCacheEntryInfo;
  hCacheDir: LongWord;
  dwEntrySize: LongWord;
begin
  dwEntrySize := 0;
  FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
  GetMem(lpEntryInfo, dwEntrySize);
  if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;
  hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
  if hCacheDir <> 0 then 
  begin
    repeat
      DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
      FreeMem(lpEntryInfo, dwEntrySize);
      dwEntrySize := 0;
      FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
      GetMem(lpEntryInfo, dwEntrySize);
      if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;
    until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize);
  end;
  FreeMem(lpEntryInfo, dwEntrySize);
  FindCloseUrlCache(hCacheDir);
end;

[alman12]

но не удаляется !!!

[Alex11223]

Да какая разница куки или кэш, оба ж с К начинаются

[Aliens_wolfs]

В интернете я нашел вот такой код похожий на код Shouldercannon но не факт что очистит

uses
  WinInet;

procedure DeleteUserCookies;
var
  lpEntryInfo: PInternetCacheEntryInfo;
  hCacheDir: LongWord;
  dwEntrySize: LongWord;
  dwLastError: LongWord;
begin
  dwEntrySize := 0;
    FindFirstUrlCacheEntry (nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
  GetMem(lpEntryInfo, dwEntrySize);
  hCacheDir :=  FindFirstUrlCacheEntry (nil, lpEntryInfo^, dwEntrySize);
  if (hCacheDir <> 0) AND (lpEntryInfo^.CacheEntryType = (lpEntryInfo^.CacheEntryType OR COOKIE_CACHE_ENTRY)) then
    DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
  FreeMem(lpEntryInfo);
  repeat
    dwEntrySize := 0;
    FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^),
      dwEntrySize);
    dwLastError := GetLastError();
    if (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
    begin
      GetMem(lpEntryInfo, dwEntrySize);
      if (FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize)) then
        begin
        if lpEntryInfo^.CacheEntryType = (lpEntryInfo^.CacheEntryType OR COOKIE_CACHE_ENTRY) then
          DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
        end;
      FreeMem(lpEntryInfo);
    end;
  until (dwLastError = ERROR_NO_MORE_ITEMS);
end;

Если не очистит то попробуйте сделать следующее.
Делаете в своей программе дополнительную функцию по извлечению инфы из реестра по этой ветке
HKEY_CURRENT_USER\Software\Microsof t\Windows\CurrentVersion\Explorer\U ser Shell Folders параметр Cookies в этом параметре будет путь где хранятся куки, затем зная этот путь зачищаете эту папку

Поэкспериментировав написал 2 примера, очищает 100%
Пример без реестра но тут нужно знать путь к кукам, функции по удалению в нем пригодятся и для второго примера

uses
ShellAPI,......................................

//Функция удаления и файлов и каталогов
function MyDelete(dir: string): Boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_DELETE;
fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
pFrom := PChar(dir + #0);
end;
Result := (0 = ShFileOperation(fos));
end;

//Функция удаляет весь список файлов, каталогов и подкаталогов нужной папке
procedure DeleteAll(srcPath : string);
Var
SearchRec: TSearchRec;
Begin
IF srcPath[Length(srcPath)]<>'\'then
srcPath := srcPath + '\';
FillChar(SearchRec, SizeOf(TSearchRec), 0);
SearchRec.Attr:= FOF_NOCONFIRMATION or FOF_SILENT;
//крутим список файлов
IF (FindFirst(srcPath+'*.*', faAnyFile, SearchRec)=0) and not (Application.Terminated) then
Repeat
IF(SearchRec.Attr and faDirectory) <> faDirectory then
//Используем функцию удаления для файлов что выше написана
MyDelete(srcPath + SearchRec.Name);

IF((SearchRec.Attr and faDirectory) = faDirectory)and
(SearchRec.Name <> '..')and
(SearchRec.Name <> '.') then
//Используем функцию удаления для каталогов что выше написана
MyDelete(srcPath + SearchRec.Name);
Application.ProcessMessages;
Until FindNext(SearchRec)<>0;
FindClose(SearchRec);
end;

//Метод использования очистки
procedure TForm1.Button1Click(Sender: TObject);
var
sPath: string;
begin
sPath:= GetEnvironmentVariable('USERPROFILE') + '\AppData\Roaming\Microsoft\Windows\Cookies\';
if DirectoryExists(sPath) then
DeleteAll(sPath);
end;

Можно использовать одну функцию MyDelete которая все удаляет но для системных не прокатит поэтому крутим список файлов и каталогов с помощью функции DeleteAll а затем удаляем

Пример с реестром, узнает путь к кукам и удаляет их использовав функции из примера выше

uses
ShellAPI, Registry......................................

//Функция для извлечения нужной инфы из реестра
function ReadStringParametrReg(KeyRoot: DWORD; KeyPatch, KeyName: string): string;
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
try
  with Reg do
   begin
    RootKey := KeyRoot;
    OpenKeyReadOnly(KeyPatch);
    result:= ReadString(KeyName);
   CloseKey;
  end;
  finally
 Reg.Free;
 end;
end;

//Метод использования очистки
procedure TForm1.Button1Click(Sender: TObject);
var
sPath: string;
begin
sPath:= ReadStringParametrReg(HKEY_CURRENT_USER,
'Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders', 'Cookies');
if Pos('%USERPROFILE%', sPath) <> 0 then
sPath:= GetEnvironmentVariable('USERPROFILE') + Copy(sPath, 14, MaxInt);
if DirectoryExists(sPath) then
DeleteAll(sPath);
end;

[alman12]

не работает вовсе не один код

[Aliens_wolfs]

не работает вовсе не один код

Ошибки выдает или не очищает?