Alarmsys

Delphi 绘制标准的艺术图案,是比较有规则的几何图案,如示例截图所示的样式 。 　　self.ClientHeight:=200; 　　self.ClientWidth:=200; 　　r:=self.ClientWidth/2; 　　Sect:=20; 　　for i:=0 to Sect-1 do 　　begin 　　 x[i]:=Trunc(r*Cos(i*2*PI/Sect)+self.ClientWidth/2); 　　 y[i]:=Trunc(r*Sin(i*2*PI/Sect)+self.ClientHeight /2); 　　end;

“欢迎连接到简单TCP服务器”，这是本代码编译成功，运行程序后连接成功后的第一个提示。Delphi编写设计一个基本的CS结构的TCP服务器，客户端代码同样完整，指定主机IP、端口后，就可连接该服务器，客户端和服务端代码都要编译才能运行，先运行服务端并设置好，再启动客户端，然后进行消息发送和接收。

电子秒表系统 电子秒表系统 电子秒表系统-Electronic Stopwatch System

Delphi 获取磁盘序号，获取序号非磁盘编号，也不是序列号。运行后的效果如图所示，应该是所选择的磁盘在我的电脑中的排列序号。 　　操作时，只需选择对应的盘符，然后单击按钮即可，请参见测试截图所示。

从机会，纠正了来源，测试安装在XE 10.1。

ertyguhijop[lkjhvbn hiouopi][[poiuy

从读取真空开关上读取数据，包括：刮板机，运输机，采煤机的电压电流，液化泵(Read data from the read vacuum switches, including: scraper machines, conveyors, Shearer' s voltage and current, liquefied pump)

Delphi GIS engine full source code, a very easy to use GIS engine, including almost all of the functions.

发送EMail的一个例子,以前用它编过程序，可以使用，delphi6-Send EMail an example of the previous procedures have been made to use it, you can use, delphi6

设置自己应用程序所支持的文件打开方式，及其图标。