用Delphi实现对光驱盘盒的开关控制（一）

2017年02月06日 72 阅读

用Delphi实现对光驱盘盒的开关控制（一）2007-05-08摘要 介绍在Delphi编程环境下实现开启光驱盘盒的主要技术和方法，该程序以托盘方式驻留状态栏中，可以设置为随系统启动而启动，不但能够控制一个光驱，而且还能动态检测某台电脑上的光驱数目，创建相应的控制菜单，实现有选择性控制光驱。 关键词 Delphi程序 光驱控制 弹出菜单 过程 事件 引言 通常，我们打开和关闭光驱是通过按动光驱上开关按钮来实现的，但有时候手动方式显得很不方便，尤其是在...

用Delphi实现对光驱盘盒的开关控制（二）

2017年02月06日 75 阅读

用Delphi实现对光驱盘盒的开关控制（二）2007-05-082）打开CDROM盒的函数function OpenCDROM（Drive:pChar）:Boolean; // 打开CDROMvar Res:MciError; OpenParm:TMCI_OPEN_Parms; Flags:Dword; s:string; DeviceID:Word;begin Result:=false; s:=Drive+":"; flags:=mci_Open_Ty...

用Delphi实现对光驱盘盒的开关控制（三）

2017年02月06日 77 阅读

用Delphi实现对光驱盘盒的开关控制（三）2007-05-085）程序自动执行无效的菜单鼠标事件procedure TForm1.mNotautorunClick（Sender: TObject）;var Reg: TRegistry;begin Reg:=TRegistry.Create; try Reg.RootKey:=HKEY_LOCAL_MACHINE; if （Reg.OpenKey（"SoftwareMicrosoftWindowsCu...

Delphi编程播放无声音的AVI动画

2017年02月06日 72 阅读

Delphi编程播放无声音的AVI动画2007-05-08本实例将演示如何在程序运行过程中放映没有声音的AVI动画文件。 向窗体上添加一个TAnimate组件，并且设置它的CommonAVI属性为aviCopyFile，这样在TAnimate组件中就会显示拷贝文件的动画。添加组件后的窗体如图1所示。图1 添加组件后的窗体 在窗体的初始化过程中添加以下代码：procedure TForm1.FormCreate（Sender: TObject）;beg...

Delphi中利用钩子实现QQ聊天窗口的修改

2017年02月06日 74 阅读

Delphi中利用钩子实现QQ聊天窗口的修改2007-05-08有人曾为公司不让用QQ、MSN等聊天工具而烦恼吗？看了下面的小程序你就会打消这种看法了。 当初公司做校园一卡通的项目时，里面的机房客户端需要用到系统的低级键盘钩子WH_KEYBOARD_LL，这也是我第一次接触到Windows中的Hook，因为WH_KEYBOARD_LL和其他钩子不一样，在Delphi的Windows帮助以及windows.pas文件中都没有定义，但microsoft的ms...

Delphi实现提取可执行文件内部所有图标

2017年02月06日 73 阅读

Delphi实现提取可执行文件内部所有图标2007-05-08本实例实现的功能是能够从用户选择的可执行文件（后缀名为exe）中提取所有图标并且显示在窗体上。 在窗体中添加TImage 组件、TOpenDialog组件和TButton组件，TImage组件充当显示文件内图标的容器，TOpenDialog组件和TButton组件用来激活提示用户选择GIF动画的对话框。添加组件后的窗体如图1所示。图1 添加组件后的窗体 首先在窗体的uses段中添加Shel...

BCB/Delphi相关文件扩展名介绍

2017年02月06日 70 阅读

BCB/Delphi相关文件扩展名介绍2007-10-08 ccrun.com Shenloqi整理了一下用Delphi作的程序的源代码中常见的文件扩展名，并给出了这些文件扩展名的意义，以便源代码管理时作为参照，扩展名以字母为序（不需要进源代码库不表示不需要进库）。~*Delphi生成的备份文件，在版本控制库及发布代码中不应该出现这些文件，如果修改了某个文件却因某些原因没有保存的话，可以尝试使用这些文件恢复。bmp/wmf/emf/gif/jpg/pcx/...

Delphi中为TreeView添加单选框和复选框

2017年02月06日 93 阅读

Delphi中为TreeView添加单选框和复选框2007-10-15 天极 小刀轻舞打开电脑，进入Windows操作系统，在资源管理器的左边栏中清楚地显示了系统管理的所有磁盘的信息以及各个磁盘所容纳的文件与文件夹（如图一）。这种常见的显示方式是由一个根节点和若干个子节点构成的，这被称为“树形结构”。这种树形结构的用途非常广泛，在很多常用软件中都出现过它的身影。Windows中将这种结构封装为“树形控件”，即...

Delphi中用API实现MSN信息提示

2017年02月06日 78 阅读

Delphi中用API实现MSN信息提示2007-10-15我是比较喜欢用MSN的，因为它的信息提示比较独特，所有的聊天软件都是弹出一个常规的WINDOWS对话框，而它却好像是从任务栏里冒出来的。想想了，在DELPHI这样的纯OOP工具里加一个API应该不难实现，花了十来分钟终于搞出来了，以下是实现方法：1、建立一个APPLICATION，将两个按钮放置到主窗体FROM1中，分别为button1和button2。button1.caption:=&prim...

Delphi全面控制Windows任务栏

2017年02月06日 88 阅读

Delphi全面控制Windows任务栏2007-10-15韩莹使用Windows95/NT/98操作系统的用户知道：正常启动后,在电脑屏幕下方出现一块 任务栏。从系统功能角度而言,整个任务栏包括几个不同的子区域,从左至右依次是：开始 按钮、应用程序切换区（Application Switch Bar）、任务栏通知区（Notification Area）以 及任务栏时钟。与其它Windows应用程序相同,任务栏程序（systray.exe）由几个不同的窗体...

Delphi在DBGrid组件中显示和编辑MEMO字段

2017年02月06日 132 阅读

Delphi在DBGrid组件中显示和编辑MEMO字段2007-10-15 天极 小刀轻舞 Delphi之所以能在.NET与JAVA“两座大山”重压之下，至今仍被广大编程爱好者喜爱、支持，究其原因，除了VCL框架设计精妙之外，强大的数据库程序开发能力也是其长盛不衰的关键因素之一。说到数据库开发不能不提到DELPHI中自带的功能强劲的数据感知组件，这些组件中最为常用的当属DBGrid组件，这个组件提供了二维表的数据显示方式，一次提供的...

DELPHI在状态栏中显示进程条

2017年02月06日 117 阅读

DELPHI在状态栏中显示进程条2007-10-15 天极 小刀轻舞经常上网的朋友可能早就已经发现，在一些浏览器的底部会在某些情况下动态显示一个进程条，比如在显示网页的时候，如果时间比较长，就会出现一个一格一格前进的，用以提醒用户已经有多少数据被下传下来。它不仅仅出现在浏览器中，还经常被用于下载软件中，比如现在最热门的BT下载软件，都使用了这一技术。技术的改进源于工作的需要，现在编写网络软件那么流行，上面的小技巧应该是每个像我们这样的编程爱好者都需要的吧。...

Delphi实现24位真彩色图标

2017年02月06日 71 阅读

Delphi实现24位真彩色图标2007-10-15 计算机与信息技术 李金刚引言Delphi是目前广泛使用的可视化开发工具，它自身带有一个图片、图标的编辑器——Image Editor，但是到Delphi7为止，都不能进行真彩图标的编辑，可以说是一个遗憾。笔者通过对图标文件的研究，实现了产生24位真彩色图标。图标文件的格式首先，分析一个具体的图标 。在CS1.6中有一个图标game.ico（ ），如果用WinHex等可以进行16进...

Delphi为窗体的系统菜单中添加选项

2017年02月06日 74 阅读

Delphi为窗体的系统菜单中添加选项2007-10-15通常在应用程序中，如果单击标题栏的左侧图标，就会弹出一个窗体的系统菜单，在其中可以完成最小化、最大化和关闭等操作。本实例将演示如何在窗体的系统菜单中添加自己的选项。在窗体中添加一个TMainMenu组件，其中TMainMenu组件中的选项将要被添加到窗体的系统菜单中。添加组件后的窗体如图1所示。图1 添加组件后的窗体在TMainMenu组件生成的菜单中添加一个File菜单，在这个菜单下面添加一个Ex...

为Delphi程序添加自动滚动工具栏

2017年02月06日 77 阅读

为Delphi程序添加自动滚动工具栏2007-10-15本实例制作一个可以自动滚动的工具栏。在窗体中添加一个TImageList组件，并且为它添加几个图像文件。然后添加一个TToolBar组件，设置TToolBar组件的Images属性为TImageList组件，在TToolBar组件上右击，在弹出的快捷菜单中选择New Button项，为TToolBar组件添加几个按钮，并设置按钮的ImageIndex属性分别对应TImageList组件中的图像索引编号...

Delphi编程使程序不在系统任务条上出现

2017年02月06日 73 阅读

Delphi编程使程序不在系统任务条上出现2007-10-15本实例介绍如何使程序不在系统任务条上出现。程序的初始化过程，即在窗体的FormCreate（）事件中添加代码。在程序设计阶段，用鼠标的左键双击窗体上的空白处，在屏幕上就会弹出一个代码窗口，把光标移动到FormCreate（）过程的处理代码中，并且添加如下代码：procedure TForm1.FormCreate（Sender: TObject）;begin SetWindowLong（App...

Delphi下QQ窗体自动隐藏探索

2017年02月06日 83 阅读

Delphi下QQ窗体自动隐藏探索2007-10-15cobi腾讯QQ是当前流行的网络聊天工具之一，由于它在应用设计上有很多独特之处，所以也吸引了很多程序员对之进行研究和模仿。在这里，我将利用Delphi对QQ的窗体自动隐藏效果提出自己的实现方法。一、问题的提出熟悉QQ使用的朋友都知道，当QQ窗体区域超出屏幕四边时，窗体就会自动“消失”，只留下窗体一边的小部分显露在桌面上。当用鼠标移动到显露部分之上，窗体就会在隐藏位置重新完整显示；...

Delphi编程模拟鼠标操作

2017年02月06日 82 阅读

Delphi编程模拟鼠标操作2007-10-15本实例介绍如何在自己的程序里面模拟鼠标的常用操作。首先启动一个新的项目，在空白的窗体上添加4个TButton组件。添加组件后的窗体如图1所示。图1 添加组件后的窗体这4个按钮分别用于模仿鼠标的4个动作——移动鼠标到指定位置、左键单击、左键双击和右键单击。下面以鼠标左键单击为例来说明如何模拟鼠标操作：procedure TForm1.btnLClickClick（Sender: TObj...

Delphi设计多边形窗体

2017年02月06日 75 阅读

Delphi设计多边形窗体2007-10-15本文将介绍如何利用提供的制作界面函数制作一个多边形窗体。制作多边形窗体的关键在于设定多边形的区域，并根据这个指定的区域改变窗体的形状。Windows的CreatePolygonRgn和SetWindowRgn函数可以解决这两个难点。利用以下代码即可将窗体设置为一个五边形：procedure TForm1.FormCreate（Sender: TObject）; var pt: array [0..4] o...

Delphi实现QQ窗体的缩入伸出功能

2017年02月06日 74 阅读

Delphi实现QQ窗体的缩入伸出功能2007-10-15不知道大家在使用QQ时有没有想到它的缩入伸出的功能是如何实现的呢？实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体。GetCursorPos（）是一个可以获得鼠标指针在屏幕中的坐标的API函数，利用它与FindVCLWindow（）的结合就可以轻易地获得鼠标指针下的VCL可视组件，但当一个窗体中不只一个VCL可视组件，例如可能还有TPanel、TMemo等等类型时，那么我们就...