Текущий архив: 2009.09.20;
Скачать: CL | DM;

Вниз

Работа с Cookies Internet Explorer   Найти похожие ветки 

← →
Canya   (2009-07-16 16:36) [0]

Здравствуйте!!! Подскажите как Удалить куки IE.
Попробывал вот такой код, но ни чего неудаляется
function GetUserName:string;
{Определение имени пользователя}
var
Buffer: array[0..MAX_PATH] of Char;
sz:DWord;
begin
sz:=MAX_PATH-1;
if windows.GetUserName(Buffer,sz)
then begin
 if sz>0 then dec(sz);
 SetString(Result,Buffer,sz);
end else begin
 Result:="Error "+inttostr(GetLastError);
end;
end;
procedure TForm1.FormCreate(Sender: TObject); var SearchRec: TSearchRec;
begin
//webbrowser1.Navigate("http://postoy-site.narod.ru/");
s:=PChar("C:\Documents and Settings\"+GetUserName+"\Cookies");
ShellExecute(Handle,"open",s,nil,nil,SW_SHOW);
IdCookieManager1.Destroy;
label1.Caption:=GetUserName;

if FindFirst(s+"*.txt", faAnyFile, SearchRec) <> 0 then
repeat
DeleteFile(ExpandFileName(SearchRec.Name));
until
FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;


---

← →
palva ©   (2009-07-16 21:59) [1]

> ShellExecute(Handle,"open",s,nil,nil,SW_SHOW);
> IdCookieManager1.Destroy;

Расскажите, что делают эти строчки.

Ваша программа удаляет файлы из директории
"C:\Documents and Settings\"+GetUserName+"\Cookies"
И что, файлы не удаляются?

---

← →
brother ©   (2009-07-17 06:24) [2]

> но ни чего неудаляется

аргументируй...

---

← →
brother ©   (2009-07-17 06:25) [3]

> "*.txt"

там еще index.dat есть...

---

← →
Canya   (2009-07-17 13:04) [4]

Я просто пробовал разные способы.
Вот код которым я хотел удалить все текстовые файлы из папки Cookies:
function GetUserName:string;
{Определение имени пользователя}
var
Buffer: array[0..MAX_PATH] of Char;
sz:DWord;
begin
sz:=MAX_PATH-1;
if windows.GetUserName(Buffer,sz)
then begin
 if sz>0 then dec(sz);
 SetString(Result,Buffer,sz);
end else begin
 Result:="Error "+inttostr(GetLastError);
end;
end;
s:=PChar("C:\Documents and Settings\"+GetUserName+"\Cookies\");
if FindFirst(s+"*.txt", faAnyFile, SearchRec) <> 0 then
repeat
DeleteFile(ExpandFileName(SearchRec.Name));
until
FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;  

подскажите почему не удаляются файлы?

---

← →
Canya   (2009-07-17 13:08) [5]

> s:=PChar("C:\Documents and Settings\"+GetUserName+"\Cookies\");
>
> if FindFirst(s+"*.txt", faAnyFile, SearchRec) <> 0 then
> repeat
> DeleteFile(ExpandFileName(SearchRec.Name));
> until
> FindNext(SearchRec) <> 0;
> FindClose(SearchRec);
> end;  

Забыл написать, что Обрабатывается нажатием на Button

---

← →
Плохиш ©   (2009-07-17 13:09) [6]

> Canya   (17.07.09 13:04) [4]

Справку по функции ExpandFileName уже изучил?

---

← →
Canya   (2009-07-17 13:15) [7]

> Справку по функции ExpandFileName уже изучил?

Я понимаю в скрытых папках не ищет это функция?

---

← →
Плохиш ©   (2009-07-17 15:15) [8]

> Canya   (17.07.09 13:15) [7]
>
>
> > Справку по функции ExpandFileName уже изучил?
>
> Я понимаю в скрытых папках не ищет это функция?

Эта функция ничего не ищет...

---

← →
Canya   (2009-07-17 19:38) [9]

Дак Ищет то FindFirst и FindNext. А ExpandFileName возвращает полное имя файла (с абсолютным путем) по неполному имени. Но я не пойму почему не работает. Подскажите, пожалуйста

---

← →
Игорь Шевченко ©   (2009-07-17 20:40) [10]

> А ExpandFileName возвращает полное имя файла (с абсолютным
> путем) по неполному имени


deletefile(s+SearchRec.Name);

---

← →
Canya   (2009-07-18 17:23) [11]


s:=PChar("C:\Documents and Settings\"+GetUserName+"\Cookies\");
if FindFirst("*.txt", faAnyFile, SearchRec) <> 0 then  
repeat
DeleteFile(ExpandFileName(s+SearchRec.Name));
until
FindNext(SearchRec) <> 0;
FindClose(SearchRec);

Такой код тоже не удаляет

---

← →
Canya   (2009-07-18 18:34) [12]

function DeleteUserCookies: Boolean;
var
UserProfileDirectory: ShortString;
SR: TSearchRec;
begin
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 DeleteFile(PChar(UserProfileDirectory + "\Cookies\" + SR.Name));
 until FindNext(SR) <> 0;
 FindClose(SR);
 result:=true;
 end
else result:=false;
end;
Я сообразил все. Спасибо за помощь

---

← →
brother ©   (2009-07-21 09:50) [13]

единственное, что я не понял - зачем удалять все куки пользователя?

---

← →
Плохиш ©   (2009-07-21 11:02) [14]

> Canya   (17.07.09 19:38) [9]
>
> Дак Ищет то FindFirst и FindNext. А ExpandFileName возвращает
> полное имя файла (с абсолютным путем) по неполному имени.
>

Можно цитату из справки с подтверждением этого бреда?

---

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

Текущий архив: 2009.09.20;
Скачать: CL | DM;

Наверх

Память: 0.5 MB
Время: 0.013 c