自动获取电脑磁盘列表 DELPHI实例

主题：自动获取电脑磁盘列表实例    delphi教程
BY:lxsky   QQ:86717375
首发：怖客官方网站【http://www.bkhack.com】

首先，这节课的内容很简单。相信聪明的你一看就能掌握了.

很多软件中，都包含着获取磁盘列表的小功能。比如：选择软件的安装路径

该功能实现很简单，但也不可忽视，正是应为它简单开发大中小软件中用的地方都很多，且不鸡协，所以新手值得一看.

程序中使用到了getdrivetype函数.他用来判断磁盘的属性.更具该函数的返回值可以进行判断.

返回“0”或“1”可以直接忽略，那不存在，是浮云。呵呵.
“0”为无法检测！
“1”为不存在！

返回 drive_removable:可移动盘
返回 drive_fixed:电脑硬盘
返回 drive_remote:远程网络盘
返回 drive_cdrom:CD_ROM
返回 drive_ramdisk:RAN盘

设计：程序在运行后自动获取磁盘列表到下拉列表框（便于后面程序的设计，通用）

分析：把代码加入到Formcreate时间中，即可实现程序运行后的自动获取.更具getdrivetype的返回值，只要是非“0”或“1”，便表示存在该磁盘，加入列表中.
====================================================================
procedure TForm1.Formcreate(Sender: TObject);
var
 i:integer;
 n:integer;
begin
  for i:=65 to (65+25) do
   begin
     n:=getdrivetype(pchar(chr(i)+':\'));
     if n<>0 then
       if n<>1 then
        combobox1.ITEMS.add(chr(i)+':');
   end;
end;
====================================================================
QQ里有人问我上面的i是干什么的，我在这里就补充一下，上面的变量“i”从65到90，最后用chr(i)转换，分别对应25个字母。

这节课到此结束.