计算机设备有很多，如：光驱、声卡、键盘和鼠标等。如何在计算机应用程序中自动控制这些设备的使用，将给你的工作带来极大的方便。笔者用DEPHI和VFP编制了两组应用实例自动检测CD-ROM光驱和声卡。
一、用DEPHI、VFP自动检测CD-ROM光驱的方法:
1.检测的关键:调用WINDOWS的API函数GetDriveType.即以微机上的可能盘符(A～Z)的对应值(0～25)作为该函数的入口参数对该函数进行调用,然后检查其返回值.若返回值为4,则表示检测到光驱或网络驱动器,否则未检测到.
2.WINDOWS的API函数GetDriveType,其语法格式如下:
Declare Function GetDriveType Lib "Kernel" (ByVal DriveNumber As Integer) As Integer
入口参数DriveNumber的取值为0,1,2,3等,其中A驱动器为0；B驱动器B为1；C驱动器为2；依此类推.函数返回值是0为未检测到驱动器；2为软驱；3为硬盘；4为CD-ROM光驱或网络驱动器.
3.应用实例:
实例一：用DEPHI 4.0自动检测CD-ROM光驱。
窗体 FORM1 用DEPHI 4.0自动检测CD-ROM光驱
procedure TForm1.FormCreate(Sender: TObject).
var drives,drivetype:string.
drvs:pchar.
x,i:integer.
begin
for i:=0 to 25 do
begin
drives:=chr(65 i) :\.
strpcopy(drvs,drives).
x:=getdrivetype(drvs).
case x of
2:drivetype:=drives 是可移动驱动器。.
3:drivetype:=drives 是固定驱动器。.
4:drivetype:=drives 是网络驱动器。.
5:drivetype:=drives 是CD-ROM驱动器。.
6:drivetype:=drives 是RAMDISK驱动器。.
else
drivetype:=drives 不是驱动器。.
END.
showmessage(drivetype).
end.
end.