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)