home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / netz / netapi / nwwrkstn.pa1 < prev    next >
Encoding:
Text File  |  1994-01-14  |  5.1 KB  |  120 lines
  1. {#Z+}
  2. (*(10U&l12D(s4099T&k2S*)
  3. {***************************************************************************}
  4. {** Program : NWWRKSTN                                                    **}
  5. {***************************************************************************}
  6. {** Version : 1.4             ** Started : 11/11/91  ** Ended :   /  /    **}
  7. {***************************************************************************}
  8. {******************************** Description ******************************}
  9. {***************************************************************************}
  10. {** OOP library for Netware API                                           **}
  11. {**                                                                       **}
  12. {** This unit forms the second level object : WORKSTAT                    **}
  13. {** This object is a descandent of          : NETWARE                     **}
  14. {**                                                                       **}
  15. {**                                                                       **}
  16. {**                                                                       **}
  17. {**                                                                       **}
  18. {***************************************************************************}
  19. {******************************** Information ******************************}
  20. {***************************************************************************}
  21. {** Provides Netware Workstation Services                                 **}
  22. {**                                                                       **}
  23. {**                                                                       **}
  24. {**                                                                       **}
  25. {** This code is (c) 1991 - 1994 Antonio Covelli. ALL RIGHTS RESERVED.    **}
  26. {** Portions (c) Novell Inc,                                              **}
  27. {**                                                                       **}
  28. {**                                                                       **}
  29. {***************************************************************************}
  30.  
  31. {$I NETWARE.INC}
  32. {#Z-}
  33.  
  34. UNIT NWWRKSTN;
  35.  
  36. INTERFACE
  37.  
  38. USES
  39.  
  40.   nwvar,
  41.   netware;
  42.  
  43. TYPE
  44.  
  45.   PWorkStationOBJ = ^WorkStationOBJ;
  46.   WorkStationOBJ  = OBJECT (NetwareOBJ)
  47.  
  48.     { This object provides Netware Workstation Services API's. }
  49.  
  50.     PROCEDURE DeleteFakeRoot (DriveLetter : CHAR);
  51.     { Deletes a fake root while leaving the drive mapping intact. }
  52.  
  53.     PROCEDURE EndOfJob (Process : WORD);
  54.  
  55.     FUNCTION GetConnectionID (FileServerName : TObjectName;
  56.                               VAR ConnectionID : WORD) : WORD;
  57.     { Returns the connection ID of the specified file server. Under NETX
  58.       connection ID's can be 1 through to 8. }
  59.  
  60.     FUNCTION GetDefaultConnectionID : WORD;
  61.     { Returns the workstations default connection ID, normally the one where
  62.       the shell is currently sending packets to. The actual code for this
  63.       function is in NETWARE.PAS. }
  64.  
  65.     PROCEDURE GetFileServerName (ConnectionID : WORD;
  66.                                  VAR FileServerName : TObjectName);
  67.     { Returns the file server name of the specified connection ID. Under NETX
  68.       connection ID's can be 1 through to 8. }
  69.  
  70.     FUNCTION GetNetwareShellVersion (VAR MajorVersion, MinorVersion,
  71.                                      RevisionLevel, ShellType : BYTE) : WORD;
  72.     {The above function is in NETWARE.PAS}
  73.  
  74.     FUNCTION GetNumberOfLocalDrives : WORD;
  75.     { Returns the number of local drives on the current workstation. }
  76.  
  77.     FUNCTION GetPreferredConnectionID : WORD;
  78.     {The above function is in NETWARE.PAS}
  79.  
  80.     FUNCTION GetPrimaryConnectionID : WORD;
  81.     { Returns the workstation's primary connection ID. The primary connection ID
  82.       is normally the file server which was logged into. }
  83.  
  84.     FUNCTION GetRelativeDriveDepth (DriveLetter : CHAR) : WORD;
  85.  
  86.     FUNCTION GetTaskMode (VAR TaskMode : BYTE) : WORD;
  87.  
  88.     PROCEDURE GetWorkstationEnvironment (VAR OperatingSystemType,
  89.                                          OperatingSystemVersion,
  90.                                          HardwareType,
  91.                                          ShortHardwareType : TString40);
  92.  
  93.     FUNCTION IsConnectionIDInUse (ConnectionID : WORD) : WORD;
  94.     { Allows a client to determine if a connection ID is currently allocated to
  95.       a valid file server. }
  96.  
  97.     FUNCTION MapFakeRoot (DriveLetter : CHAR;
  98.                           DirectoryPath : TPathName) : WORD;
  99.     { Maps the specified drive to the path and makes it a fake root mapping. }
  100.  
  101.     FUNCTION SetEndOfJobStatus (EndOfJobFlag : BYTE) : BYTE;
  102.  
  103.     FUNCTION SetNetwareErrorMode (ErrorMode : BYTE) : BYTE;
  104.  
  105.     PROCEDURE SetPreferredConnectionID (ConnectionID : WORD);
  106.     {The above function is in NETWARE.PAS}
  107.  
  108.     PROCEDURE SetPrimaryConnectionID (ConnectionID : WORD);
  109.  
  110.     PROCEDURE SetTaskMode (TaskMode : BYTE);
  111.  
  112.     FUNCTION SetShowDots (ShowDots : BOOLEAN) : BOOLEAN;
  113.     { Turns on or off the directory identifiers in listings. Returns the
  114.       previous setting as true or false. }
  115.  
  116.     DESTRUCTOR  Done; VIRTUAL;
  117.  
  118.   END;
  119.  
  120.