用DEPHI、VFP自动检测计算机设备

硬盘
电脑设备有很多，光驱，声卡，键盘，鼠标。如何在计算机应用中自动控制这些设备的使用，会给你的工作带来很大的便利。作者用DEPHI和VFP编写了两套自动检测光驱和声卡的应用实例。

1.用DEPHI和VFP自动检测光驱的方法；

1.检测的关键:调用WINDOWS的API函数GetDriveType。即在微机上用可能的盘符(A ~ Z)的对应值(0 ~ 25)调用这个函数，作为这个函数的入口参数，然后检查它的返回值。如果返回值为4，则表示检测到光驱或网络驱动器，否则不检测。

2.WINDOWS API函数GetDriveType，其语法格式如下:

将函数GetDriveType Lib“Kernel”(ByVal drive number为整数)声明为整数

条目DriveNumber的值为0、1、2、3等。，其中驱动器A为0；b驱动器b是1；c是2；诸如此类。函数返回值为0，表示没有检测到驱动器；2是软驱；3是硬盘；4光盘驱动器或网络驱动器。

3.应用示例:

例1:用DEPHI 4.0自动检测光驱。

FORM1使用DEPHI 4.0自动检测CD-ROM驱动器

程序TForm1。FormCreate(发件人:to object)；

var drives，drive type:string；

drvs:pchar；

x，I:整数；

开始

对于i:=0到25 do

开始

drives:= chr(65+I)+:\；

strpcype(drv、驱动器)；

x:= get drive type(drvs)；

案例十

2:drivetype:=drives+是可移动驱动器。；

3:drivetype:=drives+是固定驱动器。；

4:drivetype:=drives+是网络驱动器。；

5:drivetype:=drives+是一个CD-ROM驱动器。；

6:drivetype:=drives+是内存磁盘驱动器。；

其他

Drivetype:=drives+不是驱动器。；

结束；

show message(drive type)；

结束；

结束；