本程序介绍如何在局域网内安装了信使服务的Windows 2000计算机之间传递消息。 向窗体上添加两个TLabel组件、两个TEdit组件和一个TButton组件，设计完成的主界面如图1所示。 图1 主界面 首先声明NetMessageBufferSend函数，该函数在netapi32.dll库中： type NET_API_STA...

2008-02-23 07:15:36

本程序演示如何通过程序来清空回收站。 向窗体上添加一个TButton组件，它用于激活清空回收站的操作。设计完成的主界面如图1所示。 图1 主界面 首先在程序的implementation段中定义3个常数和一个类型声明，代码如下： const SHERB_NOCONFIRMATION = $00000001 ; SHERB_N...

2008-02-23 07:15:35

1 2 下一页 圆周率π是个古老的东西，早在1700多年前祖冲之已将其值精确到小数点后7位，而如今通过计算机程序已能算到十亿位之多！我是个圆周率爱好者，这个“爱好”至少是出于对这个无理数的热衷，我不但可以背诵到小数点后100位，而且还收藏着从网上找到几个计算π的...

2008-02-23 07:15:33

在微软软件帝国的呐喊声中，VB.net和VC#.net在短时间内拥有了一大批FANS。能在开发工具领域和微软一决高下的Borland公司也不甘示弱把Delphi“打扮”的漂漂亮亮的，让我们这些坚定的D迷依旧信心满满，坚守这块阵地。一些对Pascal语法情有独钟或对VCL爱慕非凡的新生力量...

2008-02-23 07:15:33

本实例将演示在程序运行过程中如何循环地播放一个指定的声音文件。 首先在程序的uses段中添加MMSYSTEM，然后在窗体的初始化过程中添加以下代码： procedure TForm1.FormCreate(Sender: TObject); begin SndPlaySound(’c:RECYCLE.WAV’,SND_ASYNC or SND_LOOP); end;...

2008-02-23 07:15:31

本实例介绍在程序运行的过程中禁止用户关闭操作系统。 用户是否可以关闭操作系统是通过对WM_QueryEndSession的处理来实现的，为此首先需要在程序中添加WM_QueryEndSession消息处理的声明： procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndSession;...

2008-02-23 07:15:31

1 2 下一页 本文论述了用Delphi进行图形界面修饰的技术，给出了窗口渐变色背景、3D边界、3D边框的实现源代码和一个软件界面的实例。 作为一个程序员，在开发程序的时候，都希望自己程序的界面美观一些，与众不同一些，有自己鲜明的特色，这需要美化自己的界面。一般的...

2008-02-23 07:15:29

本实例演示如何映射和断开网络虚拟盘。 向窗体上添加两个TLabel组件、两个TEdit组件和两个TButton组件，设计完成的主界面如图1所示。 图1 主界面 首先添加“连接”按钮的响应代码，在其中调用WNetAddConnection2函数，根据用户输入的本地虚拟盘和网络共享目录来映射虚...

2008-02-23 07:15:30

本实例介绍如何在自己的程序里面模拟鼠标的常用操作。 首先启动一个新的项目，在空白的窗体上添加4个TButton组件。添加组件后的窗体如图1所示。 图1 添加组件后的窗体 这4个按钮分别用于模仿鼠标的4个动作——移动鼠标到指定位置、左键单击、左键双击和右键单击。 下面...

2008-02-23 07:15:26

第一步：编写服务器的应用程序 首先在Delphi的IDE中选择”File|New|Other…”,然后在WebServices页面中选择Soap Server Application图标。 然后在New Soap Server Application对话框中选择Web App Debugger executable。 点击OK按钮之后,Delphi会自动生成一个WebModule...

2008-02-23 07:15:25