- 浏览: 145726 次
- 性别:
- 来自: 洛阳
最新评论
-
zenmshuo:
很详细,要是包含FlexChart的用法就更好了
Delphi中Chart组件,Chart控件用法 -
Draps:
输入 00123 判定为数字输入 100.123判定为非数字 ...
Delphi 判断一个字符串是否为数字 -
ylilike:
<div class="quote_title ...
delphi中SendMessage使用说明 -
GDGZWQZ:
下列办法可实现对话框自动定时关闭:在程序中插入一个定时器,设置 ...
delphi中SendMessage使用说明 -
think3t:
写的很详细~
delphi中SendMessage使用说明
//前面要加几个pas单元
uses Registry,ShellApi, WinInet,ShlObj,ComObj;
procedure DelRegCache;
var
reg:TRegistry;
begin
reg:=Tregistry.create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.DeleteKey(’Software\Microsoft\Internet Explorer\TypedURLs’);
reg.Free;
end;
function GetCookiesFolder:string;
var
pidl:pItemIDList;
buffer:array [ 0..255 ] of char ;
begin
SHGetSpecialFolderLocation(
application.Handle , CSIDL_COOKIES, pidl);
SHGetPathFromIDList(pidl, buffer);
result:=strpas(buffer);
end;
function ShellDeleteFile(sFileName: string): Boolean;
var
FOS: TSHFileOpStruct;
begin
FillChar(FOS, SizeOf(FOS), 0); {记录清零}
with FOS do
begin
wFunc := FO_DELETE;//删除
pFrom := PChar(sFileName);
fFlags := FOF_NOCONFIRMATION;
end;
Result := (SHFileOperation(FOS) = 0);
end;
//删除cookies
procedure DelCookie;
var
dir:string;
begin
try
InternetSetOption(nil, INTERNET_OPTION_END_BROWSER_SESSION, nil, 0);
dir:=GetCookiesFolder;
ShellDeleteFile(dir+’\*.txt’+#0); //网上很多代码这里没有加最后的#0,在xp下经测试会报错
except
abort;
end;
end;
//删除历史记录
procedure DelHistory;
var
lpEntryInfo: PInternetCacheEntryInfo;
hCacheDir: LongWord ;
dwEntrySize, dwLastError: LongWord;
begin
try
dwEntrySize := 0;
FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
GetMem(lpEntryInfo, dwEntrySize);
hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
if hCacheDir 〈〉 0 then
DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
FreeMem(lpEntryInfo);
repeat
dwEntrySize := 0;
FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^),
dwEntrySize);
dwLastError := GetLastError();
if dwLastError = ERROR_INSUFFICIENT_BUFFER then //如果成功
begin
GetMem(lpEntryInfo, dwEntrySize); {分配dwEntrySize字节的内存}
if FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize) then
DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
FreeMem(lpEntryInfo);
end;
until (dwLastError = ERROR_NO_MORE_ITEMS);
except
abort;
end;
end;
//补充函数
type
TSTATURL = record
cbSize: DWORD;
pwcsUrl: DWORD;
pwcsTitle: DWORD;
ftLastVisited: FILETIME;
ftLastUpdated: FILETIME;
ftExpires: FILETIME;
dwFlags: DWORD;
end;
type
IEnumSTATURL = interface(IUnknown)
['{3C374A42-BAE4-11CF-BF7D-00AA006946EE}']
function Next(celt: Integer; out elt; pceltFetched: PLongint): HRESULT; stdcall;
function Skip(celt: Longint): HRESULT; stdcall;
function Reset: HResult; stdcall;
function Clone(out ppenum: IEnumSTATURL): HResult; stdcall;
function SetFilter(poszFilter: PWideChar; dwFlags: DWORD): HResult; stdcall;
end;
type
IUrlHistoryStg = interface(IUnknown)
['{3C374A41-BAE4-11CF-BF7D-00AA006946EE}']
function AddUrl(pocsUrl: PWideChar; pocsTitle: PWideChar; dwFlags: Integer): HResult; stdcall;
function DeleteUrl(pocsUrl: PWideChar; dwFlags: Integer): HResult; stdcall;
function QueryUrl(pocsUrl: PWideChar; dwFlags: Integer; var lpSTATURL: TSTATURL): HResult; stdcall;
function BindToObject(pocsUrl: PWideChar; var riid: TGUID; out ppvOut: Pointer): HResult; stdcall;
function EnumUrls(out ppenum: IEnumSTATURL): HResult; stdcall;
end;
type
IUrlHistoryStg2 = interface(IUrlHistoryStg)
['{AFA0DC11-C313-11D0-831A-00C04FD5AE38}']
function AddUrlAndNotify(pocsUrl: PWideChar; pocsTitle: PWideChar; dwFlags: Integer;
fWriteHistory: Integer; var poctNotify: Pointer;
const punkISFolder: IUnknown): HResult; stdcall;
function ClearHistory: HResult; stdcall;
end;
function ClearIEHistory:integer;
const
CLSID_CUrlHistory: TGUID = '{3C374A40-BAE4-11CF-BF7D-00AA006946EE}';
var
IEHistory:IUrlHistoryStg2;
begin
IEHistory:=CreateComObject(CLSID_CUrlHistory) as IUrlHistoryStg2;
IEHistory.ClearHistory;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
try
DelRegCache;//清理注册表
DelCookie; //删除cookies(ie缓冲文件夹下面cookies文件)
DelHistory; //删除历史记录(ie缓冲文件夹下所有文件)
//C:\Documents and Settings\用户名\Local Settings\Temporary Internet Files
ClearIEHistory; //补充删除网页历史
except
abort;
end;
end;
发表评论
-
Delphi基本图像处理代码
2013-03-17 11:22 5057Delphi基本图像处理代码//浮雕procedure Emb ... -
Delphi DateTime,Date,Time TDateTimePicker
2012-12-22 17:38 4860一、DateTime,Date,Time存 ... -
关于delphiwebbrowser二次点击来路问题
2012-12-08 15:56 2967webbrowser二次点击webb可以实现二次点击但是二次点 ... -
delphi返回一个汉字的Unicode编码
2012-11-30 16:00 1737//机内码 -> 汉字Function MacCode2 ... -
Delphi 从外部拖拽文件
2012-10-22 19:36 5253unit Unit1; interface u ... -
Delphi汉字简繁体转换代码
2012-07-02 15:53 2125unit ChineseCharactersConvert;i ... -
对当前焦点发送文字
2012-07-02 07:46 1350var clp: TClipboard;begin clp ... -
Delphi中destroy, free, freeAndNil, release用法和区别
2012-06-23 07:14 1499经过这段时间对delphi中free 和 release 的仔 ... -
解决delphi indy10下 utf8码转换的问题
2012-06-15 09:59 9279用delphi2010调试一个以前的程序,因为以前的程序是 ... -
Delphi EmbeddedWB组件遍历Frames并执行子frame的js
2012-06-14 18:13 2682var wDoc:IHTMLDocument2; ... -
(POS打印机LPT1口)卡密打印工具<by Only↗Me>介绍
2012-06-13 17:08 2328前两年写“(POS打印机LPT1口)卡密打印工具”,现在还有人 ... -
Delphi 判断一个字符串是否为数字
2012-06-13 16:32 7203//函 数 名: IsDigit //返 回 值: bool ... -
解决EmbeddedWB弹出页面错误框的问题
2012-06-07 13:34 1643使用EmbeddedWB控件的时候,发现有一些错误完全无法用t ... -
Delphi中WebBrowser控件打开部分网站报"Invalid floating point operation”解决
2012-06-07 13:29 2939最近用EmbeddedWB控件做浏览器相关应用的时候,发现有些 ... -
Delphi中Memo显示行号列号
2012-06-04 10:43 8740实例说明 本例是个光标应用的简单技巧,希望通过这个例子 ... -
Delphi中Chart组件,Chart控件用法
2012-05-18 11:06 29395本文主要讲解Delphi 中Chart ,TeeChart ... -
delphi中URL的汉字编码
2012-05-07 08:20 2048show.asp?sort=全部&sortlevel= ... -
邮件(短信)天气预报MailWeather
2012-01-01 20:03 3623记不得啥时间了,移动推出了免费邮件短信提醒服务,使用我们这些穷 ... -
delphi中SendMessage使用说明
2011-11-28 16:49 31766SendMessage基础知识 函数 ...
相关推荐
delphi删除浏览器缓存Cookies。
delphi编译的样例程序,使用delphi访问cookies数据,写入和读取
Delphi 编写的一个可以获取及修改浏览器中的Cookies的程序
IdHTTP控件操作Cookies的DELPHI实例.rar
删除cookies.ec删除cookies.ec
delphi操作NetHTTPClient读写cookie例子
万能c++生成cookies代码,只要你输入什么,对应的cookies值就是什么
Delphi使用IdHTTP控件操作Cookies的例子,之前没发现此类相关的例子,找的好辛苦,后来自己摸索写出来的,希望对各位有帮助。
Source\Delphi5\*.dpk - for Delphi 5 Source\Delphi6\*.dpk - for Delphi 6 Source\Delphi7\*.dpk - for Delphi 7 Source\Delphi9\*.dpk - for Delphi 2005 Source\Delphi10\*.dpk - for Delphi 2006 ...
vb删除IE缓存及cookies源码 vb删除IE缓存及cookies源码
使用cookies记录商品浏览记录并显示
VB清除Windows系统历史记录,包括各方面的操作记录,比如清除IE临时文件、清除COOKIES、清除历史文件记录、清除画板记录以及搜索记录等。有点360安全卫士中的垃圾清理功能,本清理程序在运行时显示清理进度条,并可...
IdHTTP控件操作Cookies的DELPHI实例..rar
javascript结合Cookies实现浏览记录历史.docx
电脑中的cookies怎么删除 彻底清除上网痕迹方法【步骤】.docx
文件路径:C:\Documents and Settings\Administrator\Local Settings\History\history.ie5\index.datIndex.dat保存的cookies:Cookie历史记录会作为一个副本保存到index.dat文件中,即使在IE中清除Cookie记录,该...
仿照迅雷看看曾经浏览过得电影实现的功能 利用Cookies保存.
cookies清除
◆一键清除要命的index.dat记录(收集了您自从上网所有浏览过的网址和cookies和一些临时文件) ◆一键清除IE缓存区 ◆一键清除Cookies ◆一键清除IE历史记录 ◆一键清除IE表单 ◆一键清除IE自动完成->密码 ◆...
C#防止客户端对同一个id重复操作,C#+Cookies防止重复操作,可以用于在线投票系统、评论帖子系统、顶、赞等