用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);
结束;
结束;
0条评论