--- Merging r29694 into '.':

U    rtl/amicommon/dos.pp
U    rtl/amicommon/sysutils.pp

# revisions: 29694

git-svn-id: branches/fixes_3_0@29718 -

rtl/amicommon/dos.pp

@@ -606,6 +606,7 @@ begin
         AddDisk(Str);
     end;
   until List = nil;
+  UnLockDosList(LDF_DEVICES or LDF_READ);
   RefreshDeviceList := NumDevices;
 end;
 
@@ -674,7 +675,7 @@ begin
   DiskFree := -1;
   if (Drive < 0) or (Drive >= NumDevices) then
     Exit;
-  DiskFree := DiskSize(DeviceList[Drive]);
+  DiskFree := DiskFree(DeviceList[Drive]);
 end;
 
 procedure FindFirst(const Path: PathStr; Attr: Word; Var f: SearchRec);

rtl/amicommon/sysutils.pp

@@ -615,6 +615,7 @@ begin
         AddDisk(Str);
     end;
   until List = nil;
+  UnLockDosList(LDF_DEVICES or LDF_READ);
   RefreshDeviceList := NumDevices;
 end;
 
@@ -683,7 +684,7 @@ begin
   DiskFree := -1;
   if (Drive < 0) or (Drive >= NumDevices) then
     Exit;
-  DiskFree := DiskSize(DeviceList[Drive]);
+  DiskFree := DiskFree(DeviceList[Drive]);
 end;
 
 function DirectoryExists(const Directory: RawByteString): Boolean;