Delphi 7.0 使用Quotedstr函数返回字符串的引证串

本源代码主要演示Delphi7利用鼠标绘制矩形焦点，画出虚线框矩形，按住鼠标左键抖动矩形区域，即可显示虚线矩形框，可应用于需要拖动选择对象时作为选区使用，在Delphi中，这个功能使用Canvas实现： 　　procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 　　 Y: Integer); 　　begin 　　 if IsDraw then 　　 begin 　　 if Count >1 then 　　 DrawFocusRect(Canvas.Handle,FocuRect); 　　 FocuRect.Right := X; 　　 FocuRect.Bottom := Y; 　　 DrawFocusRect(Canvas.Handle,FocuRect); 　　 Inc(Count); 　　 IsEndDraw := True; 　　 end; 　　end;

本源码主要演示，Delphi如何拖动一个无标题栏的窗体，此前记得与大分享过不少VB类的相似源码，大部分情况下，我们习惯拖动窗口的标题栏来移动窗口，现在我们把窗口的标题栏去掉了，那么是如何实现窗口的拖动呢？其实我们可以拖动窗口的主窗口部位，同样可以拖动窗口，而且这样似乎更方便操作，关于代码的实现，请大家下载源码后，查看Unit1.pas文件。

Delphi创建动态菜单，在程序运行过程中动态添加菜单，点击“添加菜单”按钮，会在菜单栏中增加一个“编辑”菜单项，预设中每次添加的菜单项都是“编辑”，这也是为了验证不要添加重复的菜单项，代码中的判断是一种方法，另外也可以通过菜单项的Caption属性来判断，不过之前最好设置AutoHotkeys和AutoLineReduction为maManual。在以下创建菜单项的代码中： 　　self.MainMenu1.AutoHotkeys:=maManual; 　　self.MainMenu1.AutoLineReduction:=maManual; 　　通过设置这两个属性可以禁止程序自动为菜单生成热键，否则程序会自动在菜单的Caption属性中加入热键，并且会修改Caption属性的值，给通过Caption属性判断菜单项带来麻烦。

Delphi 读写物理扇区——实模式， asm //以下汇编代码中，只有第一参数、第二参数、pFunc的值是需要改变的，其余都是固定的写法 　　 pushad 　　 push ebp //#2，保存ebp 　　 sub esp,$2c //#1，预留2c字节的栈空间 　　 push Int13Reg16 //第一参数，如果没有参数，则不用push 　　 //第二参数，如果没有参数，则不用push 　　 mov edx, pFunc //函数地址 　　 mov ebp,esp // 　　 add ebp,$2c //ebp校正，是作者分析QT_Thunk时发现的 　　 call QT_Thunk 　　 add esp,$2c //#1，释放上面预留的2c字节的栈空间 　　 pop ebp //#2，恢复ebp 　　 mov byte ptr @result,al 　　 popad 　　 end;

Delphi获取电脑CPU硬件型号名称，这个可能不准确，我是64位 I5 3470 CPU，获取出来的是统称，不是太准确，可能是我系统的问题。不过这个代码是前几年书中的代码，现在的硬件发展快，也有可能是代码的问题，运行效果如下。 　　本获取CPU名称是根据注册表的方法获取的。

中控指纹delphi开发实例，完成了指纹采集，数据库指纹模块保存和比对 (In the control fingerprint the delphi developers instances, complete fingerprint acquisition, the database fingerprint module save and comparison)

Delphi 使用Canvas美化列表项，当用户鼠标单击ListBox列表项时，该列表项高亮显示，改变背景色，文字居中对齐，如图所示。 　　主要是使用了Delphi中的Canvas.FrameRect对其进行美化，具体代码有兴趣可参考： 　　Canvas.FrameRect(Clientrect); 　　if odSelected in State then 　　begin 　　 Canvas.Brush.Color:=clRed; 　　 Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,8,15); 　　 setBkMode(Canvas.Handle,TRANSPARENT ); 　　 Canvas.TextOut((Rect.right-Rect.Left) div 2,Rect.Top,Items.Strings[Index]); 　　end 　　else 　　begin 　　 Canvas.Brush.Color:=clSkyBlue; 　　 Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,15,15); 　　 Canvas.TextRect(Rect,Rect.Left,Rect.Top,Items.Strings[Index]); 　　end;

Delphi 读取SQLSERVER数据库内容，并创建Excel表格文件，将内容导出到excel文件中，核心同样是基于createoleobject对象的excel.application方法实现，创建EXECEL对象 ,添加comobj单元，用循环加入记录，将数据表导入到Excel表中，正式开始EXECEL输出。

本源码演示Delphi如何用ESC键退出程序，为程序添加esc退出程序的功能，一般情况下，关闭程序都是通过ALT+f4或者直接点击窗口右上角的叉子关闭，不过我们也可以为程序添加通过键盘按下ESC键来关闭程序，本源码就是演示了此种功能，当用户按下ESC时，窗口即关闭，程序退出。

Delphi 实现图像热点功能，实现一张图片上不同形状区域的热点，定义椭圆形、四边形、三角形的区域变量的热点，相关代码如下： 　　var 　　 thepoint:array [1..8] of tpoint;//存储多边形顶点坐标 　　 count:integer; 　　 pointnum:array [1..2] of integer; 　　begin 　　//四边形顶点坐标，首末点封闭 　　 thepoint[1]:=point(135,99); 　　 thepoint[2]:=point(105,183); 　　 thepoint[3]:=point(129,201); 　　 thepoint[4]:=point(188,92); 　　 thepoint[5]:=point(135,99); 　　 count:=5;//四边形顶点数目，首末点为一点 　　 fourE_rgn:=CreatePolygonRgn(thepoint,count,WINDING);//生成四边形区域 　　 elli_rgn:=CreateEllipticRgn(64,221,231,263);// 生成椭圆形区域 　　 //第一个三角形顶点坐标 　　 thepoint[1]:=point(118,67); 　　 thepoint[2]:=point(32,28); 　　 thepoint[3]:=point(17,90); 　　 thepoint[4]:=point(118,67); 　　 //第二个三角形顶点坐标 　　 thepoint[5]:=point(155,44); 　　 thepoint[6]:=point(202,91); 　　 thepoint[7]:=point(277,44); 　　 thepoint[8]:=point(155,44); 　　 pointnum[1]:=4;//第一个三角形顶点数目 　　 pointnum[2]:=4;//第二个三角形顶点数目 　　 count:=2;//三角形数目 　　//生成由两个三角形构成的三角形区域 　　tri_rgn:=CreatePolyPolygonRgn(thepoint,pointnum,count,WINDING); 　　end;