FIX: Update drive mount state

This commit is contained in:
Alexander Koblov 2014-05-11 17:44:45 +00:00
commit 6b988c1179

View file

@ -769,6 +769,11 @@ begin
begin
if not UDisksDevice.DevicePresentationHide then
begin
if (IsUDisksAvailable = False) and (I = 2) then
begin
UDisksDevice.DeviceIsMounted:= True;
AddString(UDisksDevice.DeviceMountPaths, MountPoint);
end;
UDisksDeviceToDrive(UDisksDevices, UDisksDevice, Drive);
Drive^.Path := MountPoint;
Drive^.DisplayName := UDisksDevice.DevicePresentationName;