在进行多媒体软件开发时，经常要调整各种设备的音量和设置静音，本人编写了一个单元，四个函数，分别用于获取音量（GetVolume(DN))、设置音量(SetVolume(DN,Value))、获取静音（GetVolumeMute(DN)）及设置静音（SetVolumeMute(DN,Value)）。 unit funVolume; interface...

2008-04-09 04:27:13

{ 2002.07.22 关于如何发送和接收系统消息 作者：王珍义 nickname:LargeWang(老王) QQ: 33728007 欢迎光临鹏业软件 www.pengesoft.com.cn 以下代码Delphi7.0通过，编译后启动两个进程，然后在一个窗口中点击Button1试试。 } unit Unit1; interface uses Windows, Messa...

2008-04-09 04:27:12

[亮度、对比度、饱和度的调整] //亮度调整 procedure BrightnessChange(const SrcBmp,DestBmp:TBitmap;ValueChange:integer); var i, j: integer; SrcRGB, DestRGB: pRGBTriple; Table: array[0..255]of Byte; begin if ValueChange 0 then for i := 0 to 255 do Table...

2008-04-09 04:27:11

其实网上已经有不少现成的软件，它们可以帮你做到一些共享软件的时间控制，比如试用30天，试用100次等。前些天给台湾人写的软件现在需要要一个试用版，由于是繁体，想用网上已有的软件幻影加密系统来做，但在繁体下一运行就把机子搞死了，害得我新装了繁体2000。后来想...

2008-04-09 04:27:10

{ 贴图可以极大的节省CPU时间。呵呵，但是这一节费了我比较多的时间 : ( 因为用到了opengl的辅助库，现在这个库的函数已经很少有人用了，但是我还是找到了，感谢zdcnow（磁效应），他给我提供的这个辅助库的delphi版本。在学习本节之前，请大家到网上下载glaux.dll、Gl...

2008-04-09 04:27:10

《Delphi高手突破》已经出版近一年了，其间有不少读者发来Email，我没有做到每封必回，应该会得罪了不少读者朋友，在此只能说声抱歉了。不过，有不少读者来Email询问关于他们正在构建的系统的技术细节问题，也有读者发来源代码请求帮助的。希望这些读者能设身处地的为...

2008-04-09 04:27:09

procedure Tcpya_app.FormCreate(Sender: TObject); begin datamodule2.tree.close; datamodule2.tree.sql.clear; datamodule2.tree.sql.add(''''select name from plat order by name''''); datamodule2.tree.Active:=true; datamodule2.tree.Open; while not datamod...

2008-04-09 04:27:09

引用 CommCtrl 单元 procedure TForm1.Button1Click(Sender: TObject); begin ListView_DeleteColumn(MyListView.Handle, i);//i是要删除的列的序号，从0开始 end; 用LISTVIEW显示表中的信息： procedure viewchange(listv:tlistview;table:tcustomadodataset;var i:in...

2008-04-09 04:27:08

在最近的项目开发过程中，由于客户的需要，要对数据库中相同种类的货物进行汇总统计，经过多方面查阅，发现网上这方面的东西缺乏，于是就写了一个过程来实现这一功能。由不足之处请大家多多指正，多谢 程序中用到了第三方控件vsflexgrid,过程中变量vsgrid可以换成strin...

2008-04-09 04:27:08

用Ｄ elphi创建COM 应用服务器(三) 前面讲了建立 com 组件的基本过程，但是还有许多的问题等待着大家去摸索，去发现。在这里我只实现数据库的基本操作，比如：插入，删除，更新,简单查询等等。但愿能起个引导如何实做COM 服务器的作用。基本理论知识这方面的资料也有很...

2008-04-09 04:27:07