From ff576c985f368fdf6f6daec5ca5e8258765ef455 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sat, 4 Jul 2015 06:48:44 +0200
Subject: [PATCH] try to skip empty drives (#18)

---
 src/ce_common.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/ce_common.pas b/src/ce_common.pas
index e527f377..b4896c28 100644
--- a/src/ce_common.pas
+++ b/src/ce_common.pas
@@ -635,13 +635,16 @@ procedure listDrives(aList: TStrings);
 {$IFDEF WINDOWS}
 var
   drv: char;
-  ltr: string;
+  ltr, nme: string;
   {$ENDIF}
 begin
   {$IFDEF WINDOWS}
+  setLength(nme, 255);
   for drv := 'A' to 'Z' do
   begin
     ltr := drv + ':\';
+    if not GetVolumeInformation(PChar(ltr), PChar(nme), 255, nil, nil, nil, nil, 0) then
+      continue;
     case GetDriveType(PChar(ltr)) of
        DRIVE_REMOVABLE,
        DRIVE_FIXED,