学步园

//声明:
GetDriveType(
  lpRootPathName: PChar {磁盘根目录}
): UINT;

//返回值:
DRIVE_UNKNOWN     = 0; {未知}
DRIVE_NO_ROOT_DIR = 1; {可移动磁盘}
DRIVE_REMOVABLE   = 2; {软盘}
DRIVE_FIXED       = 3; {本地硬盘}
DRIVE_REMOTE      = 4; {网络磁盘}
DRIVE_CDROM       = 5; {CD-ROM}
DRIVE_RAMDISK     = 6; {RAM 磁盘}


//举例:
procedure TForm1.FormCreate(Sender: TObject);
var
  c: Cardinal;
begin
  c := GetDriveType('C:');
  ShowMessage(IntToStr(c)); {3; 说明是本地硬盘}
end;