Форум: "Начинающим";
Текущий архив: 2009.09.20;
Скачать: [xml.tar.bz2];
ВнизРабота с 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;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.011 c