diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..f4a6fc4 --- /dev/null +++ b/.gitignore @@ -0,0 +1,5 @@ +*.exe +*.dll +*.dcu +*.bkm +*.drc diff --git a/Definitions.pas b/Definitions.pas index 23420c7..a19a511 100644 --- a/Definitions.pas +++ b/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))); diff --git a/RamdiskUI.dof b/RamdiskUI.dof index 7ceb7f2..8cffd28 100644 --- a/RamdiskUI.dof +++ b/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= diff --git a/RamdiskUI.res b/RamdiskUI.res index 80b045b..b06375a 100644 Binary files a/RamdiskUI.res and b/RamdiskUI.res differ