index a0bebb99bd2912ada915778f7aef692159bd35d9..913f19f30d7331e3a2894c6c236f1aee3fcdb75c 100644 (file)
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;