当前位置: 源码素材网 » Delphi教程 » 详情页

Delphi判断并获取磁盘驱动器类型

  •   时间:2018-10-08
  • 概述:磁盘类型 驱动器

本实例演示使用Delphi编写代码动态获得当前计算机中的驱动器的类型。向窗体上添加一个TDriveComboBox组件和一个TLabel组件,其中TDriveComboBox组件用于显示系统中有效的驱动器列表,TLabel组件中显示选中驱动器的类型。
在程序运行过程中,如果用户在TDriveComboBox组件中选择了一个驱动器,就会激活下面所示的响应代码从而取得驱动器的类型信息:

procedure TForm1.DriveComboBox1Change(Sender: TObject);
var
driver:pchar;
begin
driver:=PChar(self.DriveComboBox1.Drive+':\');
case GetDriveType(driver) of
2: Label1.Caption := '该驱动器是可移动驱动器';
3: Label1.Caption := '该驱动器是固定驱动器';
4: Label1.Caption := '该驱动器是网络驱动器';
5: Label1.Caption := '该驱动器是CD-ROM驱动器';
6: Label1.Caption := '该驱动器是虚拟驱动器';
else Label1.Caption := '该驱动器无效';
end;
end;

TDriveComboBox组件的Drive属性中存储了代表选中驱动器的字符,通过判断函数GetDriveType的返回值来确定选中驱动器的类型,并且将驱动器的类型信息显示在窗体上的TLabel组件中。程序代码如下:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl;
type
TForm1 = class(TForm)
DriveComboBox1: TDriveComboBox;
Label1: TLabel;
procedure DriveComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.DriveComboBox1Change(Sender: TObject);
var
driver:pchar;
begin
driver:=PChar(self.DriveComboBox1.Drive+':\');
case GetDriveType(driver) of
2: Label1.Caption := '该驱动器是可移动驱动器';
3: Label1.Caption := '该驱动器是固定驱动器';
4: Label1.Caption := '该驱动器是网络驱动器';
5: Label1.Caption := '该驱动器是CD-ROM驱动器';
6: Label1.Caption := '该驱动器是虚拟驱动器';
else Label1.Caption := '该驱动器无效';
end;
end;
end.

    相关内容:

    相关声明:

      若“Delphi判断并获取磁盘驱动器类型”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。