dialmak
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: #include <WinAPIEx.au3>
Opt('MustDeclareVars', 1)
Global $Data, $TypeMedia, $Drive = 0, $CountDrive = 0
While $Drive < 20
$Data = _WinAPI_GetDriveGeometryEx($Drive)
If Not $Drive Then ConsoleWrite('-------------------------------' & @CR)
$Drive += 1
If @error Then ContinueLoop
$CountDrive += 1
Select
Case $Data[1] = 0
$TypeMedia = 'Unknown'
Case $Data[1] = 11
$TypeMedia = 'Removable'
Case $Data[1] = 12
$TypeMedia = 'Fixed'
Case Else
$TypeMedia = 'Floppy'
EndSelect
ConsoleWrite('Disk: ' & $Drive - 1 & @CR)
ConsoleWrite('Type of media: ' & $TypeMedia & @CR)
ConsoleWrite('Cylinders\Tracks\Sectors: ' & $Data[0] & '\' & $Data[2] & '\' & $Data[3] & @CR)
ConsoleWrite('Bytes per Sector: ' & $Data[4] & @CR)
ConsoleWrite('Total Space: ' & Round($Data[5] / 1073741824, 2) & ' Gbytes' & @CR)
ConsoleWrite('-------------------------------' & @CR)
WEnd
ConsoleWrite('Total Disks: ' & $CountDrive & @CR) |
|
Всего записей: 14007 | Зарегистр. 27-04-2013 | Отправлено: 23:00 21-06-2014 | Исправлено: dialmak, 23:03 21-06-2014 |
|
