引言： 检查声卡是否安装
uses mmsystem;
...
function Soundkarte:Boolean;
begin
Result := WaveOutGetNumDevs >0;
end;
检测声卡存在
如果你是做一些多媒体播放器之类的程序时，为了完善系统的容错性，就必须用到一些...
摘要：文/宋爽
本例中tregistry是关键类，delphi 4.0不能自行加入，需在uses部分手工加入“registry”，通过其方法“readstring”和“writestring”来读出和写入字符，亦可通过其方法“readdate”和“writedate”来读出和写入日期。
程序第一次运行就写入其运行时间，应用期限为30天，超过30天就不再运行。全局变量noregistry、sp......
摘要：在delphi中，定位文件的操作主要有两种方法。一种是直接定位文件，即通过“打开”对话框（opendialog）控件来实现。另一种是只定位到文件夹，然后再在此文件夹内寻找文件，这种定位方法是利用delphi提供的selectdirectory函数。这个函数是在filectrl单元中定义的，因此在使用时不要忘记在uses中加入单元名。
下面就以一个例子来说明这两种方法在delphi中的具体实......
DELPHI操纵声卡检查声卡是否安装
uses mmsystem; 【程序编程相关:
自制THyperLink组件】 【推荐阅读:
取当前所有的拨号连接的程式】
... 【扩展信息:
读取IE收藏夹内网址的信息】
function soundkarte:boolean;
begin
result := waveoutgetnumdevs >0;
end;
检测声卡存在
如果你是做一些多媒体播放器之类的程序时,为了完善系统的容错性,就必须用到一些检测系统的功能,其中检测声卡是否存在就是一个问题,下列程序帮你忙,首先需要在uses部分加入mmsystem ,接着在窗体创建时检测声卡:
procedure tform1.formcreate(sender: tobject);
var i:integer;
begin
i := auxgetnumdevs();
if i<= then
label1.caption :=系统没有发现声卡;
end;
控制声音音量
当你做一个多媒体播放器时,难免少不了控制音量的大小与左右声道的播放,下面就介绍一种控制wave波形输出设备音量的方法,该方法不是设置主音量.先在窗体上放两个ttrackbar,分别命名为trackbar1,trackbar2,属性max都设置为65535,如果觉得刻度太密了,可以把frequency属性值设置大一些,然后在uses段加入mmsystem,并在trackbar1与trackbar2的onchange事件都写上下列语句:
procedure tform1.trackbar1change(sender: tobject);
var wave:string;
begin ...
下一页 摘要：一、问题的提出
winzip是电脑使用过程中，备份和数据交换的常用工具之一。然而，在实际使用过程中，笔者发现winzip在用来进行数据交换操作时有一些不尽人意的地方， 如：
1. 当将一个大的压缩包分卷压缩到软盘上时，操作者手头必须有多张软盘才能完成数据包的转存，这种情况如果发生在手头只有一张软盘的情况下，可真的没办法。
2. 如果分卷存储数据软盘中的某张软盘在写入或读出数据时发生错误，则上......
