Delphi以其优良的可视化编程,灵活的Windows API接口,丰富的底层操作越来越受到编程爱好者的青睐。
在Delphi中,通过调用Windows API,可以很方便地获取系统信息,这有助于我们编写出更好的Windows应用程序。以下程序在Delphi3.0 For Windows 9x下编译通过。
一、 用GetDriveType函数获取磁盘信息
Lbl_DriveType:Tlabel;
DriveType:WORD; //定义驱动器类型变量
//获得RootPathName所对应的磁盘驱动器信息
DriveType:=GetDriveType(RootPathName);
case DriveType of
DRIVE_REMOVABLE:Lbl_DriveType.Caption:= 软盘驱动器;
DRIVE_FIXED : Lbl_DriveType.Caption:= 硬盘驱动器;
DRIVE_REMOTE: Lbl_DriveType.Caption:= 网络驱动器;
DRIVE_...[ 查看全文 ]