Delphi学习笔记(2) 获取磁盘信息 应用程序

继上一个程序之后再接再励，先写一个1.0的版本，往后再添加别的功能。

1，新建一个Application，在Form上拖拽两个控件：Button 和ListBox，这两个控件分别命名为btn1和lst1。

2，双击按钮，生成一个TForm1.btn1Click(Sender: TObject)事件。在代码处添加如下代码：

procedure TForm1.btn1Click(Sender: TObject);
var
  i: Integer;
  c: string;
  DType: Integer;
  DriveString: string;
begin
  for i := 65 to 90 do
  begin
    {chr 函数  返回ASCII值所对应的字符}
    c := chr(i) + ':\';
    {PChar 函数 将字符串转化为char；GetDriveType 函数 获取磁盘信息}
    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 + '该驱动器为CD-ROM驱动器';
      DRIVE_RAMDISK: DriveString := c + '该驱动器为RAM磁盘';
    end;
    if not ((DType = 0) or (DType = 1)) then
      lst1.Items.AddObject(DriveString, Pointer(i));
  end;

end;

3，按F9编译运行之后，点击Button就会出现你当前电脑的磁盘信息了。

注：在上面的代码中，已经将用到的函数分别做了注释，其中DType是GetDriverType函数的返回值，代表磁盘驱动器的相应状态。然后利用AddObject方面将获取的信息添加到ListBox中。