Subj : The code
To : Scott Little
From : Sean Dennis
Date : Tue Oct 13 2009 08:56 pm
Hello, Scott.
Here's what I've come up with:
=== Cut ===
Program SetHidden;
Uses
DOS, CRT;
{$I TELEGARD.INC}
Var
URec : UserRec;
UF : Userflags; { Total of 8 flags }
UserFile : File of UserRec;
Begin
Assign (UserFile, 'users.dat');
{$I+}Reset(UserFile);{$I-}
Seek(UserFile, 0);
Read(UserFile, URec);
UF := UF + [Hiddenlog, Hiddenlist];
Seek(UserFile, 0);
Write(UserFile, URec);
Close(UserFile);
End.
=== Cut ===
Does that look right? I'll test it later on after I back up my user data file.
Later,
Sean
//
[email protected] |
http://nsbbs.info | ICQ: 19965647
... When women go wrong men go right after them.
--- GoldED/2 3.0.1
* Origin: Nocturnal State BBS - Johnson City, TN - bbs.nsbbs.info (1:18/200)
