X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fshared%2Futils.pas;h=e62cc1c3fccd98571e3e6680a0216e093c452e86;hp=21172272a8a01ca64132494ddeed01fb63b0d27c;hb=6a8baf759e33dfda3cf8d9062b6989cfd090a695;hpb=6f611376783122c46f1613ebd74586e3e746c191 diff --git a/src/shared/utils.pas b/src/shared/utils.pas index 2117227..e62cc1c 100644 --- a/src/shared/utils.pas +++ b/src/shared/utils.pas @@ -1159,7 +1159,7 @@ end; function openDiskFileRO (pathname: AnsiString): TStream; begin - if not findFileCI(pathname) then raise Exception.Create('can''t open file "'+pathname+'"'); + if not findFileCI(pathname) then raise EFileNotFoundException.Create('can''t open file "'+pathname+'"'); result := TFileStream.Create(pathname, fmOpenRead or {fmShareDenyWrite}fmShareDenyNone); end;