Delphi获取电脑CPU硬件型号名称

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 格式化DataGrid表格中的数据，DataGrid网格列表在各种编程的数据库显示方面都使用广泛，因此对于Delphi的数据库编程，DataGrid的使用技巧是一定要撑握的，本源码所要演示的就是一个使用DataGrid的简单例子，将DataGrid表格中的数据格式式成你想要的格式，测试前请确保Delphi与数据库正常连接且有数据。

Delphi 7在数据库中存取图像，这个示例代码较早，面向的图像格式为BMP，JPG、GIF之类的图片格式未做测试，或许也可以。示例中将4张图片保存到数据库中，然后程序将从数据库中输出这些图片，通过程序的操作，你只需选择对应的图片，即可从数据库中读取出对应的图片。

Delphi判断双字节，用法简单，在窗口输入框中输入字符串，单击按钮即可，程序会判断出是否包含有双字节字符，判断方法请看下边的代码段： 　　s := Edit1.Text; 　　i := 0; 　　while i　　begin 　　 if (ByteType(S,i) mbSingleByte) then 　　 begin 　　 s1 := s1+ copy(s,i,2)+; 　　 i := i+2; 　　 end 　　 else 　　 i:= i+1; 　　end; 　　label2.Caption := trim(s1);

Delphi 用获取路径的方法得到圆形窗体，制作实现一个非矩形窗口，可以说是一个不规则窗口了，圆形的窗口，标题栏、状态栏及窗口关闭等操作按钮均不邮了。圆形窗口的基本实现思路是根据路径创建不规则窗体，然后设置窗口为透明模式，部分代码如下： 　　dc:=self.Canvas.Handle; 　　BeginPath(dc); 　　//根据路径创建不规则窗体 　　SetBkMode(dc,TRANSPARENT); 　　//设置为透明模式 　　 Ellipse(dc,20,20,220,220); 　　EndPath(dc); 　　region:=PathToRegion(dc); 　　SetWindowRgn(self.Handle,region,TRUE); 　　end;

Delphi 从剪贴板中读取图片，Windows剪帖板相信大家都知道吧，这个程序可查看剪贴板中的图像，将图片另保存，可看作是一个查看剪贴板中图片的一个例子。 　　implementation 　　{$R *.dfm} 　　procedure TForm1.BitBtn1Click(Sender: TObject); 　　begin 　　 Clipboard().Assign(Image1.Picture.Bitmap); 　　end; 　　procedure TForm1.BitBtn2Click(Sender: TObject); 　　begin 　　 if Clipboard().HasFormat(CF_BITMAP) then 　　 Image2.Picture.Bitmap.Assign(Clipboard()); 　　end; 　　procedure TForm1.BitBtn3Click(Sender: TObject); 　　begin 　　 Image2.picture := nil; 　　end; 　　end.

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 钩子函数创建鼠标操作的演示，作者：冉林仓，测试内容包括三个：DemoRecord.dpr DemoPlayBack.dpr Hktest.dpr。 　　安装与调试说明： 　　如果制作的演示程序工作不正常,请注意修改HKPROC.PAS，JOURNALPLAYBACKHOOKHANDLER函数,主要是修改返回的RESULT值. 　　记录的消息序列与屏幕窗口位置、分辨率有很大的关系,哪怕是窗口位置和大小仅仅偏一点,你的回放就不一定正常,请你在使用时要反复调试，以获得比较理想的效果。

又一款基于数据库的Delphi图书管理系统，源代码完整供参考学习Delphi的数据库编程。 　　高手可在此基础上开发完善出功能更强大的图书管理系统。 　　本系统目前具备的功能模块有：基本信息设置、图上登记、注销及管理、读者管理、借阅管理、综合信息查询、图书登记等。

Delphi户籍管理系统，Access数据库版，界面方面使用了Xpmenu和SReport控件。测试时的登录初始密码为：222222 。 　　在数据库编程方面，本系统更注重录入及查询，采用多重SQL语句查询，并结合查询可生成报表。