2013年11月20日
获取一个目录的父目录
摘要： 原目录 D:\ProgramFiles\Tencent 想要的目录 D:\ProgramFilesusingSystem.IO; //目录D:\Administrator\Documents\TestData//返回D:\Administrator\DocumentsprivatestringGetDirectoryParentPath(stringpath){DirectoryInfod=newDirectoryInfo(path);returnd.Parent.FullName;}privatevoidbutton1_Click(objectsender,EventAr... 阅读全文
posted @ 2013-11-20 21:46 XE2011 阅读(406) 评论(0) 推荐(0)
Image控件播放 GIF文件
摘要： uses Vcl.Imaging.GIFImg;procedure TForm1.Button2Click(Sender: TObject);begin Image1.Picture.LoadFromFile('1.gif'); Image1.Transparent:=True; TGIFImage(Image1.Picture.Graphic).AnimationSpeed :... 阅读全文
posted @ 2013-11-20 17:27 XE2011 阅读(369) 评论(0) 推荐(0)
保存网页MHT
摘要： uses ADODB_TLB, CDO_TLB, ComObj,MSHTML;{$R *.dfm}{能把网页如 WWW.QQ.COM保存为一个单文件 .MHT但不能把一个 A.HTM保存为一个单文件 .MHT}procedure WB_SaveAs_MHT(WB: TWebBrowser; FileName: TFileName);var Msg: IMessage; Conf: IConfigu... 阅读全文
posted @ 2013-11-20 16:53 XE2011 阅读(322) 评论(0) 推荐(0)