获取驱动器类型信息 GetDriveType

UINT GetDriveType(

LPCTSTR  lpRootPathName  //根目录的路径名

);

参数lpRootPathName为一个包含需要测试的驱动器根目录的名称,如果为NULL，返回当前目录的根目录进行操作

返回值的含义：

0　　　　　　　　　　　　　　无法检测驱动器的类型

1　　　　　　　　　　　　　　根目录无效

DRIVE_REMOVEABLE　　　　可移动驱动器

DRIVE_FIXED　　　　　　　不可移动驱动器

DRIVE_REMOTE　　　　　　网络驱动器

DRIVE_CDROM　　　　　　　光驱

DRIVE_RAMDISK　　　　　　虚拟驱动器　　　　　

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
result:integer;
driver:pchar;

begin

 result:=getdrivetype(pchar(trim(edit1.text)));

 case result of
 drive_removable:edit1.Text:='可移动驱动器';
 drive_fixed: edit1.text:='不可移动驱动器';
 drive_remote:  edit1.Text:='网络驱动器';
 drive_cdrom:   edit1.text:='cd-rom驱动器';
 drive_ramdisk: edit1.Text:='虚拟驱动器';
 else
 edit1.Text:='无效的驱动器符号';
 end;
end;

end.