fix #18, empty drive errors

src/ce_common.pas

@@ -636,20 +636,26 @@ procedure listDrives(aList: TStrings);
 var
   drv: char;
   ltr, nme: string;
+  OldMode : Word;
   {$ENDIF}
 begin
   {$IFDEF WINDOWS}
   setLength(nme, 255);
-  for drv := 'A' to 'Z' do
+  OldMode := SetErrorMode(SEM_FAILCRITICALERRORS);
-  begin
+  try
-    ltr := drv + ':\';
+    for drv := 'A' to 'Z' do
-    if not GetVolumeInformation(PChar(ltr), PChar(nme), 255, nil, nil, nil, nil, 0) then
+    begin
-      continue;
+      ltr := drv + ':\';
-    case GetDriveType(PChar(ltr)) of
+      if not GetVolumeInformation(PChar(ltr), PChar(nme), 255, nil, nil, nil, nil, 0) then
-       DRIVE_REMOVABLE,
+        continue;
-       DRIVE_FIXED,
+      case GetDriveType(PChar(ltr)) of
-       DRIVE_REMOTE: aList.Add(ltr);
+         DRIVE_REMOVABLE,
+         DRIVE_FIXED,
+         DRIVE_REMOTE: aList.Add(ltr);
+      end;
     end;
+  finally
+    SetErrorMode(OldMode);
   end;
   {$ELSE}
   aList.Add('//');