Subj : The code!
To   : All
From : Sean Dennis
Date : Thu Oct 15 2009 11:02 am

Hello, All.

Oops, forgot to implement Scott's recommendation in that...so here's what I
have now:

=== Cut ===
Program HideTheSysop;

Uses
 DOS, SysUtils;

{$I TELEGARD.INC}

Var
 NRec : NodesRec;
 NodeFile : File of NodesRec;
 NodeNum : Word;

Begin
 NodeNum := StrToInt(ParamStr(1));
 Assign (NodeFile, 'nodes.dat');
 {$I+}Reset(NodeFile);{$I-}
 Seek(NodeFile, NodeNum);
 Read(NodeFile, NRec);
 NRec.WhosOnFlags := NRec.WhosOnFlags + [ishidden];
 Write(NodeFile, NRec);
 Close(NodeFile);
End.
=== Cut ===

That should be more like it.

Later,
Sean

//[email protected] | http://nsbbs.info | ICQ: 19965647

... A book is like a garden carried in the pocket. - Arab proverb
--- GoldED/2 3.0.1
* Origin: Nocturnal State BBS - Johnson City, TN - bbs.nsbbs.info (1:18/200)

You are viewing proxied material from cvs.synchro.net. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.