getdrivefrm.pas

关于利用DELPHI来进行企业级方案解决的著作的附书源码

unit GetDriveFrm;

interface

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

type
  TForm1 = class(TForm)
    DriveListView: TListView;
    DriveImageList: TImageList;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 DriveInfo,DriveName: String;
 I,DriveType,DriveImage: Integer;
 DriveItem: TListItem;
begin
 for I:=65 to 90 do
  begin
   DriveName:=chr(I)+':\';
   DriveType:=GetDriveType(pchar(DriveName));
   case DriveType of
    0:DriveInfo:= '无法确定驱动器'+DriveName+'的类型！';
    1:DriveInfo:= DriveName + '的根目录不存在！';
    DRIVE_REMOVABLE:
     begin
      DriveInfo:= DriveName+'移动存储设备';
      DriveImage:= 0;
     end;
    DRIVE_FIXED:
     begin
      DriveInfo:= DriveName+'固定存储设备';
      DriveImage:= 3;
     end;
    DRIVE_REMOTE:
     begin
      DriveInfo:= DriveName+'远程（网络映射）驱动器';
      DriveImage:= 2;
     end;
    DRIVE_CDROM:
     begin
      DriveInfo:= DriveName+'光盘驱动器';
      DriveImage:= 1;
     end;
    DRIVE_RAMDISK:
     begin
      DriveInfo:= DriveName+'RAM驱动器';
      DriveImage:= 4;
     end;
   end;
   if not ((DriveType=0) or (DriveType=1)) then
    begin
      DriveItem:=DriveListView.Items.Add;
      DriveItem.Caption:=DriveName;
      DriveItem.ImageIndex:=DriveImage;
    end;
  end;
end;

end.