文章分类 -  delphi

提取应用程序图标
摘要：uses Shellapi;procedure TForm1.Button2Click(Sender: TObject);varshInfo:SHFILEINFO; //文件信息结构ico:Hicon; //图标句柄icoimg:Ticon;begin shellapi.SHGetFileInfo(pchar(edit1.Text),FILE_ATTRIBUTE_NORMAL,shInfo,siz... 阅读全文
posted @ 2010-07-09 09:01 你的影子 阅读(409) 评论(0) 推荐(0)
delphi ----分块解压，压缩代码实现
摘要：procedure decompressfileEx(filename, targetpath: string);const C_SIZE = 1000000; // 1000000; //字节数大约为1M大小var InStream, OutStream: TmemoryStream; ZStream: TdeCompressionStream; ASize: Integer; //原始文件大小... 阅读全文
posted @ 2010-07-09 09:00 你的影子 阅读(440) 评论(0) 推荐(0)