home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 13 / CDA13.ISO / cdactual / demobin / share / program / Pascal / 10TLST.ZIP / UNLOG.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1990-09-21  |  874 b   |  39 lines
  1. Program Unlog;
  2. Uses DOS,CRT,TenTools;
  3.  
  4. TYPE
  5.   Charset = 'A'..'Z';
  6.   RDRTable = Array[1..200] of Char;
  7.  
  8. VAR
  9.   LocalTable : DriveArray;
  10.   LoginList : LogArray;
  11.   I,J : Integer;
  12.   L,U : Word;
  13.   C : Charset;
  14.   SR : SearchRec;
  15.   SA : Word;
  16.   RDR : ^RDRTAble;
  17.  
  18. Begin
  19.    ClrScr;
  20.    TextColor(LightCyan);
  21.    I:=13;
  22. {   If ((Mountlist(LocalTable,I)=0)and (I>0))
  23.    then for C:='D' to Char(I+64) do if LocalTable[C].ServerID<>''
  24.    then
  25.     begin
  26.        Writeln('Unmounting ',C,'=',LocalTable[C].RPath,',',LocalTable[C].ServerID,'...');
  27.        U:=Unmount(C);
  28.        Writeln('Logging off ',LocalTable[C].ServerID,'!');
  29.        L:=Logoff(LocalTable[C].ServerID);
  30.     end;
  31. }   If ((LogList(LoginList,I)=0) and (I>0))
  32.    then
  33.     for J:=0 to I-1 do
  34.     begin
  35.        Writeln('Logging off ',LoginList[J]);
  36.        L:=Logoff(LoginList[J]);
  37.     end;
  38. End.
  39.