Delphi户籍管理系统，Access数据库版

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 替换一个键盘按钮，将数字1改为a。将键盘所代表的键位重新定义并判断，得到一个不同的键位值。

Delphi 使播放的Flash随窗口大小改变，也就是让Flash播放的窗口内容随着父窗口的大小而自动适应，把窗口拉大时，Flash画面也会跟着变大，让内容适应窗口大小的变化。

Delphi 编写的VOD视频点播及后台管理系统，这套系统既是一套多媒体系统，也是一套数据库系统，VOD部分的功能有：KTV管理系统，编号点歌、轻音乐、拼音点歌、迪士高、明星点歌、DVD影院、播放列表、歌曲管理等。

Delphi 7.0 源代码示例演示：显示密码编辑框中的密码，也就是获取Edit组件中的内容，显示给用户，在代码编写时，可参考下边的几行代码： 　　L:=GetWindowTextLength(Edit1.handle)+1; //得到名字长度，并将长度加1 　　GetMem(Name,L);//为将要得到的名字分配内存 　　GetWindowText(Edit1.handle,Name,L);//得到名字 　　label1.Caption:=String(Name);//将得到的名字显示于Label1 　　FreeMem(Name,0); //释放分配的内存 　　完整的源代码请下载。

轻型网络聊天Delphi程序-源码，类似聊天室， 很简单，这是个多年前的网络编程例子，聊天过程中显示对方的IP，和当前好友姓名，还支持删除聊天记录。用户注册时，可对注册信息进行初始验证，比如用户名是否存在、姓名和IP地址不能空等，有一些技巧对Delphi打基础有帮助。

Delphi 使用API函数拔号，拨号程序，基于api的方法实现，有兴趣下载源码参考一番。

Delphi 使用TreeView来显示数据库信息，从数据库中读取数据，然后生成树形交叉节点的菜单，这种菜单通俗的叫做“树形菜单”，也是大家平时比较常见的菜单形式之一。 　　function TreeAddItem(Sender: TTreeView;ItemList: TStrings;BookMark: TBookMark;Resort: Boolean):TTreeNode; 　　var 　　 ThisNode,Node: TTreeNode; 　　 i: integer; 　　begin 　　 Node := Nil; 　　 for i := 0 to ItemList.Count-1 do 　　 begin 　　 ThisNode := TreeFindItem(Sender,Node,ItemList[i]); 　　 if(ThisNodeNil) then Node := ThisNode 　　 else begin 　　 if I　　 then begin 　　 if I=0 then Node := Sender.items.Add(Node, Itemlist[i]) 　　 else Node := Sender.items.AddChild(Node, Itemlist[i]); 　　 end 　　 else begin 　　 if I=0 then Node := Sender.items.AddObject(Node, Itemlist[i],Bookmark) 　　 else Node := Sender.items.AddChildObject(Node, Itemlist[i],Bookmark); 　　 end; 　　 Node.stateIndex := Node.level + 1; 　　 if Resort and (Node.parent nil) then Node.parent.alphasort; 　　 end; 　　 end; 　　 Result := Node; 　　end;

delphi开发的谷歌翻译工具，使用该工具可以不用打开浏览器，然后输入谷歌翻译地址才能进行翻译工作， 而这个工具可以快速打开并直接在文本框中输入你要翻译的文本内容即可翻译了。 同时，你拿到此源码还可以进行二次开发，以满足你更多需要和想象。

Delphi控制系统静音，两个声道均不发出声音，同时若在非静态状态下，可控制左、右声道的音量大小，在代码中@表示指向变量v的指针（32位），调用此函数的用意就是得到右声道的值，在调节左声道的时候，不改变右声道}数字前面加＄表示是十六进制数字，(t shl 8)表示t左移8位，部分参数设置代码如下： 　　procedure TForm1.FormCreate(Sender: TObject); 　　var 　　 v:longint; 　　begin 　　 waveoutgetvolume(0,@v);//得到现在音量，@v表示指向变量v的指针（32位） 　　 trackbar1.Position:=hi(v);//设置左滑块的正确位置 　　 trackbar2.Position:=hi(v shr 16);//设置右声道滑块的正确位置 　　end;