Форум: "Начинающим";
Текущий архив: 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.45 MB
Время: 0.061 c