Subj : file modes
To   : Chris Hoppman
From : mark lewis
Date : Wed Jul 07 2004 01:56 am

 CH> How would you go about setting file modes in tp?

 CH> Like
 CH> fm_deny_read_write;
 CH> fm_allow_read_write;
 CH> filemode := ??

i generally do it like this...

Const
  fmReadOnly  =   0;          {FileMode constants}
  fmWriteOnly =   1;
  fmReadWrite =   2;
  fmDenyAll   =  16;
  fmDenyWrite =  32;
  fmDenyRead  =  48;
  fmDenyNone  =  64;
  fmNoInherit = 128;


then in the code, i do this...

  oldmode := filemode;      {save current filemode}
  filemode := fmreadonly + fmdenynone;  {set desired filemode}
  {assign, open and work with the file}
  filemode := oldmode;      {restore original filemode}

)\/(ark

 
* Origin: (1:3634/12)

.