诚信黑客联系方式怎么找黑客联系方式
- >
- 话题 >
IE 的 Cookie 文件保存在 ?:\Documents and Settings\\Cookies 目录，后缀为.txt可以直接使用 API SHGetFolderPath 取得 Cookie 文件的保存目录不过我没发现 Delphi2007 有这个 API 的声明，所以自
IE 的 Cookie 文件保存在 ?:\Documents and Settings\\Cookies 目录，后缀为.txt
可以直接使用 API SHGetFolderPath 取得 Cookie 文件的保存目录
不过我没发现 Delphi2007 有这个 API 的声明，所以自己声明了一下
代码如下(发现代码高亮支持 Pascal 了，呵呵)
GetCookieFolder
复制代码代码如下:
function SHGetFolderPath(hwndOwner: HWND; nFolder: Integer; hToken: HWND;
dwFlags: Word; pszPath: PChar): Boolean; stdcall; external shell32 name 'SHGetFolderPathA';
function GetCookieFolder: string;
var
P: array[0..MAX_PATH] of Char;
begin
SHGetFolderPath(0, CSIDL_COOKIES, 0, 0, @P[0]);
Result := IncludeTrailingBackslash(P);
end;
注意 shell32 常量定义在 ShellAPI.pas 里，CSIDL_COOKIES 定义在 ShlObj.pas 里，记得引用
枚举 Cookie 文件
GetCookieFiles
复制代码代码如下:
procedure GetCookieFiles(APath: string; AList:TStrings);
var
Sr: TSearchRec;
begin
if FindFirst(APath + '*.txt', faArchive, Sr) = 0 then
begin
repeat
if Sr.Name[1] = '.' then Continue;
AList.Add(Sr.Name);
until FindNext(Sr) <> 0;
- 发表于 2020-12-06 10:29
- 阅读 ( 211 )
- 分类：互联网
0 条评论
请先 登录 后评论
