Delphi 键盘钩子 封锁 windows 热键

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

Delphi 创建多个独立的子窗体 脱离父窗口而显示，但是却可通过父窗口关闭打开的所有子窗口，就是通过主窗口内的关闭按钮，关闭独立于父窗口之外的子窗口，这个功能我感觉很实用吧，源代码中也包括了多个子窗口的代码，父子窗口之间是如何关联起来的呢，请参见这个源代码实例 。

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

Delphi 让组件拖动窗体 按钮拖动窗口移动，如图所示的窗口中，用户只需按住按钮，即可将整个窗口在屏幕上随意拖动，实现了如何用组件来移动窗体的功能。下面是相关代码： 　　procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; 　　 Shift: TShiftState; X, Y: Integer); 　　begin 　　 if Button=MBLeft then 　　 begin 　　 releasecapture; 　　 PerForm(WM_SYSCOMMAND,$F012,0); 　　 end; 　　end;

Delphi 返回指定数值的绝对值，计算正负数绝对值的例子，FloatToStr(Abs)函数用法代码，示例中计算了小数、整数两种数据类型的绝对值，单击对应的箭头，即可查看计算结果，对应的三种计算方法，请参见以下代码： 　　procedure TForm1.SpeedButton1Click(Sender: TObject); 　　begin 　　 Edit2.Text := FloatToStr(Abs(-1.5)); 　　end; 　　procedure TForm1.SpeedButton2Click(Sender: TObject); 　　begin 　　 Edit4.Text := FloatToStr(Abs(-200)); 　　end; 　　procedure TForm1.SpeedButton3Click(Sender: TObject); 　　begin 　　 Edit6.Text := FloatToStr(Abs(-1.80)); 　　end;

Delphi 获得汉字区位码的源码，输入指定汉字，将得到这些汉字的区位码，关键代码请参考以下的源码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 str:string; 　　 hi,lo:integer; 　　begin 　　 str:=trim(edit2.Text); 　　 hi:=byte(str[1])-$a0; 　　 lo:=byte(str[2])-$a0; 　　 edit1.Text:=inttostr(hi)+inttostr(lo); 　　end;

Delphi添加图层蒙版，运行本程序后，在屏幕上添加一层阴影，透明度大概在70%左右，可看作是在屏幕上方蒙了一层薄膜的感觉，代码简单：procedure TForm1.FormCreate(Sender: TObject); 　　var 　　 bTrans: Byte; 　　 OldStyle: Integer; 　　begin 　　 form1.Color := clGradientActiveCaption; 　　 WindowState := wsMaximized; 　　 BorderStyle := bsNone; 　　 FormStyle := fsStayOnTop; 　　 OldStyle := GetWindowLong(Handle, GWL_EXSTYLE); 　　 SetWindowLong(Handle, GWL_EXSTYLE, OldStyle or WS_EX_LAYERED Or WS_EX_TRANSPARENT); 　　 bTrans := 128; 　　 SetLayeredWindowAttributes(Handle, 0, bTrans, LWA_ALPHA); 　　end;

Delphi 邮件短信自动通知系统，并且支持邮件发送、邮件帐户管理、类似于微软Windows中的Outlook邮件客户端的功能，可添加邮箱帐户自动收集，并在有新邮件时提示用户登录查看。本程序可发送适合到用户手机来通知邮件情况，部分功能需要依赖于硬件支持。 　　程序可最小化到windows托盘处显示图标，通过定义好的右键菜单来调出主窗口，虽然是一个发邮件的小程序，但是暗含的Delphi技巧有很多哦，欢迎下载源码研究学习。 　　1.实现邮件检测功能： 　　（1）注册账号，注意正确添写POP3服务器，用户名，密码。 　　2.实现发送短信功能： 　　（1）在注册账号时要添写正确的手机号码，并选中发送到手机的复选框。 　　（2）跟据自己购买的GSM模块说明书设置串口参数，一般是“19200，n,8,1”。 　　（3）添写当地短信中心号码，前面的86可加可不加，如果没有写，系统在按“确定”后会自动加上。 　　（4）注意：如果短信中含有中文字符，则一定要设成Pdu模式，否则短信可能发送失败。

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;

一个包括了菜单的Delphi窗口设计范例程序，以一个销售管理系统的主窗口界面设计为例，演示在窗体中添加下拉菜单、主窗口显示区、状态栏、标题栏等窗口元素，比较适合Delphi初学者学习。窗口中的下拉菜单我认为需要掌握，在很多的Delphi应用程序中，都会有此需求，欢迎下载源码。