Disk haqidagi ma'lumotlarni VBS script orqali olish delphi html yordamida ishlatsangiz bo'ladi
http://dump.uz/5b8647eb451bd834a2839f830105f9c3
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each objDisk in colDisks
Wscript.Echo "DeviceID: " & objDisk.DeviceID
Wscript.Echo "Disk Size: " & objDisk.Size
Next