Increased the buffer size for QueryDosDevice in ImScsiOpenScsiAdapter()

Author: tmcdos

.gitignore

@@ -0,0 +1,5 @@
+*.exe
+*.dll
+*.dcu
+*.bkm
+*.drc

Definitions.pas

@@ -167,7 +167,7 @@   DRIVE_LAYOUT_INFORMATION = record
   PDriveLayoutInformation = ^TDriveLayoutInformation;
 
 const
-  MAX_DOS_NAMES = 20000; // enough room to handle all possible block and serial devices on an average PC, sometimes it might not be enough !!!
+  MAX_DOS_NAMES = 125000; // enough room to handle all possible block and serial devices on an average PC, sometimes it might not be enough !!!
   OBJ_CASE_INSENSITIVE = $00000040;
   FILE_NON_DIRECTORY_FILE = $00000040;
   FILE_SYNCHRONOUS_IO_NONALERT = $00000020;
@@ -381,7 +381,7 @@ procedure InitializeObjectAttributes(var InitializedAttributes: TObjectAttribute
   if len = 0 then
   begin
     tmp:=GetLastError;
-    raise Exception.Create(SysErrorMessage(tmp));
+    raise Exception.Create('ImScsiOpenScsiAdapter:QueryDosDevice = ' + SysErrorMessage(tmp));
   end;
   for i:=1 to len Do
     if dosDevs[i] = #0 then dosDevs[i]:= #13;
@@ -397,7 +397,16 @@ procedure InitializeObjectAttributes(var InitializedAttributes: TObjectAttribute
         portNum:=StrToInt(Copy(devices[i],5,Length(devices[i])-5));
         if portNum < 256 Then
         Begin
-          if QueryDosDevice(PAnsiChar(devices[i]), PAnsiChar(target), Length(target)) = 0 then RaiseLastOSError;
+          if QueryDosDevice(PAnsiChar(devices[i]), PAnsiChar(target), Length(target)) = 0 then
+          try
+            RaiseLastOSError;
+          except
+            on E:Exception do
+            Begin
+              E.Message:= 'ImScsiOpenScsiAdapter:QueryDosDevice[' + IntToStr(i) + '] = ' + E.Message;
+              raise E;
+            end;
+          end;
           if (Pos(scsiport_prefix, target) = 1) Or (Pos(storport_prefix, target) = 1) then
           Begin
             RtlInitUnicodeString(@devName, PWideChar(WideString(target)));

RamdiskUI.dof

@@ -110,12 +110,12 @@ ActiveLang=
 ProjectLang=
 RootDir=C:\Program Files (x86)\Borland\Delphi7\Bin\
 [Version Info]
-IncludeVerInfo=0
+IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=1
-MinorVer=0
-Release=0
-Build=0
+MinorVer=1
+Release=1
+Build=2
 Debug=0
 PreRelease=0
 Special=0
@@ -126,7 +126,7 @@ CodePage=1251
 [Version Info Keys]
 CompanyName=
 FileDescription=
-FileVersion=1.0.0.0
+FileVersion=1.1.1.2
 InternalName=
 LegalCopyright=
 LegalTrademarks=