EEEEEEEEEEEEEEEEEEE

2015年8月9日

摘要：最近帮朋友做一个软件，其中要自动化某网页中的操作，最简的操作是调用自己写的代码。代码如下：procedure TForm1.Button2Click(Sender: TObject);var i:integer; h:IHTMLHeaderElement; o:OleVariant;begin o:... 阅读全文

posted @ 2015-08-09 20:30 EEEEEEEEEEEEEEEEEEE 阅读(380) 评论(0) 推荐(0)

2015年7月27日

Delphi 使用MD5 比对文件

摘要：使用MD5的方法比对CXimage里图片是否改变： Delphi7实现方法： uses IdHashMessageDigest function TForm1.GetImageMD5(cxImage: TcxImage): string; var tmpMD5: TIdHashMessageDige 阅读全文

posted @ 2015-07-27 23:10 EEEEEEEEEEEEEEEEEEE 阅读(739) 评论(0) 推荐(0)

2015年7月14日

有关IE的操作（收藏夹，清理缓存等）

摘要： 1.添加网页到收藏夹的函数：procedure AddURL(Folder, Url, Title: string);var MyUrlFile: TextFile;begin if Folder[Length(Folder)] '\' then Folder := Folder + '\';... 阅读全文

posted @ 2015-07-14 22:47 EEEEEEEEEEEEEEEEEEE 阅读(411) 评论(0) 推荐(0)

2014年9月26日

收集的一些零散代码

摘要： 1.格式化文本，动态添加空格 1 2 3 4 5 6 7 8 9 10 11 12 13 14 function formatStr(const srcStr: string;Leng:integer): string; var i, iLen: integer; begin //先把原字符串赋值给阅读全文

posted @ 2014-09-26 22:20 EEEEEEEEEEEEEEEEEEE 阅读(348) 评论(0) 推荐(0)