home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MiTeC_ServerNT.int < prev    next >
Text File  |  2003-08-26  |  2KB  |  67 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       MiTeC System Information Component              }
  4. {             Windows NT Server Info                    }
  5. {           version 8.3 for Delphi 5,6,7                }
  6. {                                                       }
  7. {       Copyright ⌐ 1997,2003 Michal Mutl               }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. {$INCLUDE MITEC_DEF.INC}
  12.  
  13.  
  14.  
  15. unit MiTeC_ServerNT;
  16.  
  17. interface
  18.  
  19. uses Windows, Classes, SysUtils;
  20.  
  21. type
  22.   PServer = ^TServer;
  23.   TServer = record
  24.     Name: string;
  25.     Comment: string;
  26.     PlatformID: DWORD;
  27.     VersionMajor,
  28.     VersionMinor: DWORD;
  29.     ServerType: DWORD;
  30.   end;
  31.  
  32.   PNTServerTransRecord = ^TNTServerTransRecord;
  33.   TNTServerTransRecord = record
  34.     Name: string;
  35.     Address: Byte;
  36.     AddrLength: DWORD;
  37.     NetAddress: string;
  38.     Domain: string;
  39.     VCSCount: DWORD;
  40.   end;
  41.  
  42.   TNTServer = class(TPersistent)
  43.   private
  44.     FTrans: TStringList;
  45.     FMachine: string;
  46.     procedure RetrieveTrans(AMachine: string);
  47.     function GetTrans(Index: DWORD): PNTServerTransRecord;
  48.     function GetTransCount: DWORD;
  49.     procedure FreeTransList(var AList: TStringList);
  50.   public
  51.     constructor Create;
  52.     destructor Destroy; override;
  53.  
  54.     procedure RefreshTrans;
  55.  
  56.     property Machine: string read FMachine write FMachine;
  57.     property TransportCount: DWORD read GetTransCount;
  58.     property Transports[Index: DWORD]: PNTServerTransRecord read GetTrans;
  59.   end;
  60.  
  61. procedure FreeServerList(var AList: TStringList);
  62. procedure GetServerList(AServerType: DWORD; ADomain: string; var AList: TStringList);
  63. function GetServerTypeStr(AType: DWORD): string;
  64.  
  65. implementation
  66.  
  67.