Changeset 12 for trunk/UDriveScan.pas

Timestamp:

Apr 2, 2016, 11:08:30 AM (8 years ago)

Author:

chronos

Message:

• Added: Available block drives detection under Linux.

File:

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

trunk/UDriveScan.pas

@@ -49 +49 @@
     SectorEnd: Integer;
     function GetElapsedTime: TDateTime;
-    procedure CheckDrive;
     procedure Reset;
     procedure Start;
@@ -137 +136 @@
   if TimeEnd <> 0 then Result := TimeEnd - TimeStart
     else Result := Now - TimeStart;
-end;
-
-procedure TDriveScan.CheckDrive;
-var
-  F: TFileStream;
-begin
-  if FileExists(DriveName) then begin
-    F := TFileStream.Create(DriveName, fmOpenRead);
-    try
-      BlockMap.SectorCount := F.Size div SectorSize;
-    finally
-      F.Free;
-    end;
-  end else BlockMap.SectorCount := 0;
 end;
 
@@ -227 +212 @@
   if FDriveName = AValue then Exit;
   FDriveName := AValue;
-  CheckDrive;
 end;