是一部详细介绍了DELPHI的经典著作

				查看驱动器的类型(也可以用来得到哪一个驱动器是光驱)
				编写button的单击事件
				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+'根目录不存在';
				  DRIVER_REMOVABLE:drivestring:=C+'这是一个可移动的驱动器';//必须大写
				  DRIVE_FIXED:drivestring:=c+'这是一个硬盘驱动器';
				  DRIVE_REMOTE:=C+'这是一个网络驱动器';
				  DRIVE_CDROM:=C+'这是光驱';
				  DRIVE_RAMDISK:=C+'这是一个虚拟硬盘';
				end;
				showmessage(drivestring);
				end;
				end;