X-Git-Url: https://deadsoftware.ru/gitweb?p=d2df-editor.git;a=blobdiff_plain;f=src%2Feditor%2Ff_addresource.pas;h=913f19f30d7331e3a2894c6c236f1aee3fcdb75c;hp=a0bebb99bd2912ada915778f7aef692159bd35d9;hb=233712fffbff81a4df04b7b026014e1e9981e9c1;hpb=4cd27745126226e5e57a02f4c2a44ccbab16bbac

diff --git a/src/editor/f_addresource.pas b/src/editor/f_addresource.pas
index a0bebb9..913f19f 100644
--- a/src/editor/f_addresource.pas
+++ b/src/editor/f_addresource.pas
@@ -65,7 +65,7 @@ begin
   FFullResourceName := '';
   FResourceSelected := False;
 
-  if FindFirst(WadsDir + DirectorySeparator + '*.*', faAnyFile, SR) = 0 then
+  if FindFirst(WadsDir + DirectorySeparator + '*.*', faReadOnly, SR) = 0 then
   repeat
     cbWADList.Items.Add(SR.Name);
   until FindNext(SR) <> 0;