Changeset 8 for trunk/UDriveScan.pas

Timestamp:

Apr 1, 2016, 12:04:16 AM (8 years ago)

Author:

chronos

Message:

• Added: Reopen last openned project file.

File:

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

trunk/UDriveScan.pas

@@ -222 +222 @@
     WriteInteger(Node, 'WritePattern', WritePattern);
     WriteString(Node, 'DriveName', Drive);
+    WriteDateTime(Node, 'TimeStart', TimeStart);
+    WriteDateTime(Node, 'TimeEnd', TimeEnd);
 
     NewNode := OwnerDocument.CreateElement('SectorMap');
@@ -237 +239 @@
     WritePattern := ReadInteger(Node, 'WritePattern', 0);
     Drive := ReadString(Node, 'DriveName', '');
+    TimeStart := ReadDateTime(Node, 'TimeStart', 0);
+    TimeEnd := ReadDateTime(Node, 'TimeEnd', 0);
 
     NewNode := FindNode('SectorMap');