{络磁盘} 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;
//举例:procedure TForm1.FormCreate(Sender: TObject);varc: Cardinal;beginc := GetDriveType('C:');ShowMessage(IntToStr(c)); {3; 说明是本地硬盘}end; WinAPI: GetDiskFreeSpace - 获取磁盘组织与容量信息 //声明: GetDiskFreeSpace( lpRootPathName: PChar; {磁盘根路径} var lpSectorsPerCluster: ...
#004 { #005 //获取C:目录的属性。 #006 std::wstring strTest(_T("C:\\WINDOWS\\")); #007 UINT nRes = ::GetDriveType(strTest.c_str()); #008 switch(nRes) #009 { #010 case DRIVE_UNKNOWN: #011 OutputDebugString(_T("DRIVE_UNKNOWN\r\n")); #012 break; #013 case DRIVE_NO_ROO...