Дешево и сердито. Код чистит куки IE.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
#define NO_WIN32_LEAN_AND_MEAN #include // разместить выше всего в Unit1.cpp #include ... // Определяем путь к папке LPITEMIDLIST pidl; LPMALLOC pShellMalloc; char szDir[MAX_PATH]; AnsiString PathStr ; if (SUCCEEDED(SHGetMalloc(&pShellMalloc))) { if (SUCCEEDED(SHGetSpecialFolderLocation(NULL, CSIDL_COOKIES, &pidl))) { if (SHGetPathFromIDList(pidl, szDir)) { PathStr = szDir ; PathStr = PathStr + "\\" ; } pShellMalloc->Free(pidl); } pShellMalloc->Release(); } // Поиск / удаление файлов куки TSearchRec SearchRec; if(FindFirst(PathStr + "*.*", faAnyFile, SearchRec) == 0) { do { if (SearchRec.Name!=".") { if (SearchRec.Name!="..") { AnsiString Ext = ExtractFileExt(SearchRec.Name).UpperCase(); if (Ext == ".TXT") { remove((PathStr + SearchRec.Name).c_str()); } } } } while (FindNext(SearchRec) == 0); FindClose(SearchRec); } |
Юзайте на здоровья!