Changeset 37 for trunk/UPhysDrive.pas

Timestamp:

Dec 10, 2016, 10:36:38 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Wrong color in About form.
• Fixed: Range check error in registry HKEY assignment.
• Added: Windows 32-bit and 64-bit build profiles.

File:

• trunk/UPhysDrive.pas (modified) (1 diff)

trunk/UPhysDrive.pas

@@ -193 +193 @@
     NewDriveInfo.Size := FWbemObject.Properties_.Item('Size').Value;
     NewDriveInfo.SectorSize := 4096;
-    NewDriveInfo.SectorCount := NewDriveInfo.Size div NewDriveInfo.SectorSize;
     NewDriveInfo.Path := FWbemObject.Properties_.Item('DeviceID').Value;
     Add(NewDriveInfo);