Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Вниз

Как програмно удалить IE Cookes и сохраненные пароли?   Найти похожие ветки 

← →
@!!ex ©   (2010-04-25 09:10) [0]

Нашел вот это:

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;

Но оно же кэш чистит,  ане куки!
Да и пароли остаются...

---

← →
@!!ex ©   (2010-04-25 09:12) [1]

Есть еще такой вариант:
function DeleteUserCookies: Boolean;
var
UserProfileDirectory: ShortString;
SR: TSearchRec;
i:integer;
begin
 i:=0;
Byte(UserProfileDirectory[0]):=GetEnvironmentVariable("USERPROFILE",PChar(@UserP rofileDirectory[1]), 255);

if FindFirst(UserProfileDirectory + "\Cookies\*.txt", faAnyFile, SR) = 0 then
 begin
 repeat
   if (SR.Attr <> faDirectory) then begin
     DeleteFile(PChar(UserProfileDirectory + "\Cookies\" + SR.Name));
     inc(i);
   end;
 until FindNext(SR) <> 0;
 FindClose(SR);
 result:=true;
 end
else result:=false;
end;

Но на висте он ничего не удаляет. Прав не хватает?

---

← →
Игорь Шевченко ©   (2010-04-25 12:47) [2]

для сохраненных паролей есть такой инструмент - protected storage explorer.
Он же чистит.

Кстати, советую погуглить по слову pasco

---

← →
@!!ex ©   (2010-04-25 13:23) [3]

> [2] Игорь Шевченко ©   (25.04.10 12:47)
> protected storage explorer

Его надо ручками запускать. Не годится. Тоже самое про pasco.
Надоть чтобы пользователь кликал на кнопку, и чистилась вся инфа IE, будто с него никогда никуда не лазили.
Желательно чтобы это происходило под правами пользователя и прога не требовала прав админа.

---

← →
Игорь Шевченко ©   (2010-04-25 14:14) [4]

@!!ex ©   (25.04.10 13:23) [3]

pasco с исходниками.

механизм доступа к protected storage тоже документирован.


> Надоть чтобы пользователь кликал на кнопку, и чистилась
> вся инфа IE, будто с него никогда никуда не лазили.


в IE8 вроде есть такой механизм. А раз есть механизм, значит, есть интерфейс.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.097 c