home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPHIDE.ZIP / HIDE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-01-04  |  803 b   |  33 lines
  1. program HideIt ;
  2.  
  3. { Utility program to hide files and directories;
  4.     by Mike Davenport, Neil Rubenking, and Andy Moore }
  5.  
  6. uses Dos ;
  7.  
  8. var
  9.     F : file ;
  10.     ATT : word ;
  11.  
  12. begin
  13.     if ParamCount = 0 then
  14.         begin
  15.             writeln('Enter the file/directory name to hide on the command line') ;
  16.             Halt(1) ;
  17.         end ;
  18.     Assign(F, ParamStr(1)) ;
  19.     GetFAttr(F,ATT) ;
  20.     ATT := ATT and $E7 ;   { Mask off DIRECTORY and VOLUMEID bits }
  21.     SetFAttr(F,ATT + HIDDEN) ;
  22.     case DosError of
  23.         0 : writeln(ParamStr(1), ' successfully hidden') ;
  24.         1 : writeln('Invalid Function') ;
  25.         2 : writeln('File Not Found') ;
  26.         3 : writeln('Path Not Found or File Does Not Exist') ;
  27.         5 : writeln('Access Denied - Attribute Cannot Be Changed') ;
  28.         else
  29.             writeln('Unanticipated DOS Error = ',DosError) ;
  30.       end ;
  31. end.
  32.  
  33.