摘要：unitUnit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 =class(TForm)Button1: TButton;Button2: TButton;procedureButton1Click(Sender: TObject);procedureButton2Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses 阅读全文

摘要：1、MD5String、MD5File、MD5Print、MD5Match这四个函数是供调用的。其他是用来辅助这几个函数的子函数。2、MD5String为加密字符串。3、MD5File为加密这个文件。4、MD5Print是将加密后的密文转换成字符串。5、MD5Match是用来比较密文是否一致。unitMd5;interfaceusesWindows;typeMD5Count=array[0..1]ofDWORD;MD5State=array[0..3]ofDWORD;MD5Block=array[0..15]ofDWORD;MD5CBits=array[0..7]ofByte;MD5Diges 阅读全文

摘要：调用GlobalAlloc函数分配一块内存，该函数会返回分配的内存句柄。调用GlobalLock函数锁定内存块，该函数接受一个内存句柄作为参数，然后返回一个指向被锁定的内存块的指针。 您可以用该指针来读写内存。调用GlobalUnlock函数来解锁先前被锁定的内存，该函数使得指向内存块的指针无效。调用GlobalFree函数来释放内存块。您必须传给该函数一个内存句柄。GlobalAlloc说明分配一个全局内存块返回值Long，返回全局内存句柄。零表示失败。会设置GetLastError参数表参数 类型及说明wFlags Long，对分配的内存类型进行定义的常数标志，如下所示： GMEM_FIX 阅读全文

摘要：DELPHI常见属性说明：ALIGN 设置组件对齐（同其父容器）方式BORDERSTYLE 设置组件边框形状CAPTION 设置组件标题CTL3D 设置组件边框是否为3D模式，若BORDERSTYLE设置为BSNONE则此属性无效COLOR 设定组件背景颜色CURSOR 设定鼠标经过组件时光标所显示的形状ENABLED 设定组件是否能使用，当设为FALSE时组件会呈灰色FONT 设定组件内文字的字型、字体大小、颜色等HEIGHT 设定组件高度HELPCONTENT 用来为帮助说明文件中的索引值建立关联LEFT 设定组件与父组件左边框间的距离POPUPMENU 设定鼠标右键（弹出式）快捷菜单TA 阅读全文

摘要：利用内存流来判断文件的格式，其实判断文件的前几个字节就可以简单的判断这个文件是什么类型的文件。procedure TFrm.CheckImgType(Sender: TObject);var //声明变量 MyImage:TMemoryStream; //内存流对象 Buffer:Word; i:integer;begin if OpenDialog1.Execute then //OpenDialog1是一个文件打开对话框 begin MyImage:=TMemoryStream.Create; //建立内存流对象 try MyImage.LoadFromFile(OpenDialog1.. 阅读全文