Just a sample of the Echomail archive
Cooperative anarchy at its finest, still active today. Darkrealms is the Zone 1 Hub.
|    BBBS.ENGLISH    |    The International BBBS Support Echo    |    2,762 messages    |
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
|    Message 179 of 2,762    |
|    mark lewis to Robert Wolfe    |
|    BBBS Utility    |
|    23 May 12 11:19:48    |
   
    RW> I have the file opened for SHAREing, but that doesn't seem to fix   
    RW> this problem any. If anyone is running BBBS/NT and would like to   
    RW> test this new util out for me, please let me know.   
      
   you are also opening it for READ only, right? no WRITE at all... plus SHARE of   
   course...   
      
   i don't "do" BASIC since i found ASM and pascal so long ago but in pascal, i   
   have the following i use as part of my standard inclusions...   
      
   Const   
    fmReadOnly = 0; {FileMode constants}   
    fmWriteOnly = 1;   
    fmReadWrite = 2;   
    fmDenyAll = 16;   
    fmDenyWrite = 32;   
    fmDenyRead = 48;   
    fmDenyNone = 64;   
    fmNoInherit = 128;   
      
      
   so... i add together those i want to use for accessing a file... in your case,   
   we want fmReadOnly and fmDenyNone... i would write that something like so...   
      
      
    OldFileMode := FileMode;   
    FileMode := fmReadOnly + fmDenyNone;   
    If Not shReset(TF^.BufferFile,1) Then   
    DisplayError('Cannot open file!')   
    Else   
    DoMyThing;   
    FileMode := OldFileMode;   
      
      
      
   helps??   
      
      
   )\/(ark   
      
    * Origin: (1:3634/12)   
|
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
(c) 1994, bbs@darkrealms.ca