Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Как програмно удалить 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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.061 c
15-1266563892
12
2010-02-19 10:18
2010.08.27
Работа. Что бы Вы выбрали?


15-1268394964
12
2010-03-12 14:56
2010.08.27
2x join в Access


2-1273589073
Евгений Р.
2010-05-11 18:44
2010.08.27
Работа с tTollButton


2-1269947335
Delphist2
2010-03-30 15:08
2010.08.27
EDatabaseError


15-1263542306
ocean
2010-01-15 10:58
2010.08.27
Можно ли покупать плазму?