unit1.pas

Delphi实效编程百例的随书源代码 这是其中的磁盘文件部分

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var 
  i: Integer; 
  C: String; 
  DType: Integer; 
  DriveString: String; 
begin
  //通过循环依次判断各盘符的类型
  for i := 65 to 90 do 
  begin
    C := chr(i)+':\'; 
    DType := GetDriveType(PChar(C));
    case DType of
      0: DriveString := C+' 不能判断的驱动器类型.';
      1: DriveString := C+' 根目录不存在.';
      DRIVE_REMOVABLE: DriveString := 
         C+' 这是一个可移动驱动器';
      DRIVE_FIXED: DriveString :=
         C+' 这是硬盘驱动器.';
      DRIVE_REMOTE: DriveString := 
         C+' 这是一个网络驱动器.';
      DRIVE_CDROM: DriveString := C+' 这是一个光盘驱动器.';
      DRIVE_RAMDISK: DriveString := C+' 这是一个虚拟硬盘.';
    end;
    showmessage(DriveString);
  end;
end; 


end.