Changeset 16 for trunk/UPhysDrive.pas

Timestamp:

Apr 2, 2016, 8:18:30 PM (8 years ago)

Author:

chronos

Message:

• Added: Ability to add and remove scan operation.
• Modified: XMLConfig moved from TMainForm to TCore as more proper place for general object.

File:

• trunk/UPhysDrive.pas (modified) (3 diffs)

trunk/UPhysDrive.pas

@@ -9 +9 @@
 
 type
+  TDriveKind = (dkPhysical, dkFile);
 
   { TDriveInfo }
 
   TDriveInfo = class
+    Kind: TDriveKind;
     Model: string;
     Size: Int64;
@@ -97 +99 @@
     if FileExists(List[I] + '/device') then begin
       NewDriveInfo := TDriveInfo.Create;
+      NewDriveInfo.Kind := dkPhysical;
       NewDriveInfo.Model := Trim(LoadFileToStr(List[I] + '/device/model'));
       NewDriveInfo.SectorSize := StrToInt(Trim(LoadFileToStr(List[I] + '/queue/physical_block_size')));
@@ -106 +109 @@
   end;
   {$ENDIF}
+{  NewDriveInfo := TDriveInfo.Create;
+  NewDriveInfo.Kind := dkFile;
+  NewDriveInfo.Model := 'File';
+  NewDriveInfo.SectorSize := 4096;
+  NewDriveInfo.SectorCount := 0;
+  NewDriveInfo.Size := 0;
+  NewDriveInfo.Path := '';
+  Add(NewDriveInfo);
+  }
 end;