07 2008 档案

生成GUID
摘要：uses Comobj;function GetGUID:string;var g:tguid;begin olecheck(createguid(g)); Result:=guidtostring(g);end; 阅读全文
posted @ 2008-07-20 22:05 流星无语 阅读(117) 评论(0) 推荐(0)
关于稀疏文件(备份/复制工具)
摘要：最近对操作锐起无盘使用的稀疏文件时发现,明明占用空间很小的文件复制过来后就会完全占用空间,也就是说不再是稀疏文件了.网上找了一圈竟然没找到关于稀疏文件备份/复制的工具,于是研究了一下自己做了个稀疏文件备份/复制的工具.备份是用实文件来备份的,只保存稀疏文件中已有的数据,这样的话稀疏文件实际占多大空... 阅读全文
posted @ 2008-07-17 02:40 流星无语 阅读(562) 评论(0) 推荐(0)
在WebBrowser里使用Referer
摘要：procedure NavRef(url,ref:string,wbWeb:twebbrowser); var Flags, Headers, TargetFrameName, PostData: OLEVariant; beg... 阅读全文
posted @ 2008-07-10 19:24 流星无语 阅读(373) 评论(0) 推荐(0)