摘要：
uses Shellapi;procedure TForm1.Button2Click(Sender: TObject);varshInfo:SHFILEINFO; //文件信息结构ico:Hicon; //图标句柄icoimg:Ticon;begin shellapi.SHGetFileInfo(pchar(edit1.Text),FILE_ATTRIBUTE_NORMAL,shInfo,siz... 阅读全文
摘要：
procedure decompressfileEx(filename, targetpath: string);const C_SIZE = 1000000; // 1000000; //字节数大约为1M大小var InStream, OutStream: TmemoryStream; ZStream: TdeCompressionStream; ASize: Integer; //原始文件大小... 阅读全文
摘要：
定义： 为了今后的课程深入，同时便于理解，约定两个符号。（）、idata () 这个括号用法是这样 如：（ax）表示寄存器ax的内容、(（ax）) 双括号，表示寄存器ax的内容表示一个内存地址，并且这个内存地址所指向的内存单元的数据。 idata表示常量，可代替任何数。如[idata] 表示内存第idata个单元的数据。【bx】 相当于[0]loop 循环指令，该指令与寄存器cx合并使用，cx用来... 阅读全文