| Вопрос: Банально... | Добавлено: 27.12.05 21:19 |
Автор вопроса:  yxaxa
|
| Что то не найду как получить размер винта. Помажите)) |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  «UL.eXe» ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #1 | Добавлено: 27.12.05 22:49 |
|
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Declare Function GetDriveType& Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long ' Определение типа дисковода driveName = GetDrive("C:\" 
' Определение метки тома, серийного номера диска и файловой системы GetVolume pathName, drvVolumeName, drvSerialNo, drvFileSystem ' Определение размера диска GetSize pathName, free, total |
||
Страница: 1 |