home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MiTeC_SvrAPI.int < prev    next >
Text File  |  2003-08-26  |  5KB  |  166 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       MiTeC System Information Component              }
  4. {                Windows 9x SVR API                     }
  5. {           version 7.0 for Delphi 5,6                  }
  6. {                                                       }
  7. {       Copyright ⌐ 1997,2002 Michal Mutl               }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. {$INCLUDE MITEC_DEF.INC}
  12.  
  13. unit MiTeC_SvrAPI;
  14.  
  15. interface
  16.  
  17. uses Windows, SysUtils;
  18.  
  19. const
  20.   LM20_NNLEN = 12;
  21.   SHPWLEN = 8;
  22.  
  23.   STYPE_DISKTREE = 0;
  24.   STYPE_PRINTQ   = 1;
  25.   STYPE_DEVICE   = 2;
  26.   STYPE_IPC      = 3;
  27.  
  28.   STYPE_SPECIAL  = $80000000;
  29.  
  30. type
  31.   _share_info_50 = record
  32.     shi50_netname: array [0..LM20_NNLEN] of char;
  33.     shi50_type: BYTE;
  34.     shi50_flags: WORD;
  35.     shi50_remark: PChar;
  36.     shi50_path: PChar;
  37.     shi50_rw_password: array[0..SHPWLEN] of char;
  38.     shi50_ro_password: array[0..SHPWLEN] of char;
  39.   end;
  40.  
  41.   pshare_info_50 = ^share_info_50;
  42.   share_info_50 = _share_info_50;
  43.  
  44.   _session_info_50 = record
  45.     sesi50_cname: Pchar;
  46.     sesi50_username: PChar;
  47.     sesi50_key: DWORD;
  48.     sesi50_num_conns: WORD;
  49.     sesi50_num_opens: WORD;
  50.     sesi50_time: DWORD;
  51.     sesi50_idle_time: DWORD;
  52.     sesi50_protocol: PChar;
  53.     pad1: PChar;
  54.   end;
  55.  
  56.   psession_info_50 = ^session_info_50;
  57.   session_info_50 = _session_info_50;
  58.  
  59.   _file_info_50 = record
  60.     fi50_id: DWORD;
  61.     fi50_permissions: WORD;
  62.     fi50_num_locks: WORD;
  63.     fi50_pathname: PChar;
  64.     fi50_username: PChar;
  65.     fi50_sharename: PChar;
  66.   end;
  67.  
  68.   pfile_info_50 = ^file_info_50;
  69.   file_info_50 = _file_info_50;
  70.  
  71.   _connection_info_1 = record
  72.     coni1_id: word;
  73.     coni1_type: word;
  74.     coni1_num_opens: word;
  75.     coni1_num_users: word;
  76.     coni1_time: dword;
  77.     coni1_username: PChar;
  78.     coni1_netname: PChar;
  79.   end;
  80.  
  81.   pconnection_info_1 = ^connection_info_1;
  82.   connection_info_1 = _connection_info_1;
  83.  
  84.  
  85.   _connection_info_50 = record
  86.     coni50_type: Word;
  87.     coni50_num_opens: Word;
  88.     coni50_time: dword;
  89.     coni50_netname: PChar;
  90.     coni50_username: PChar;
  91.   end;
  92.  
  93.   pconnection_info_50 = ^connection_info_50;
  94.   connection_info_50 = _connection_info_50;
  95.  
  96.  
  97. function InitSvrAPI: Boolean;
  98. function FreeSvrAPI: Boolean;
  99.  
  100. function NetFileEnum(const pszServer: PChar;
  101.                      const pszBasePath: PChar;
  102.                      sLevel: short;
  103.                      var pbBuffer: PChar;
  104.                      cbBuffer: Word;
  105.                      var pcEntriesRead: Word;
  106.                      var pcTotalAvail: WORD): DWORD; stdcall;
  107.  
  108. function NetSessionEnum(const pszServer: PChar;
  109.                         sLevel: short;
  110.                         var pbBuffer: PChar;
  111.                         cbBuffer: Word;
  112.                         var pcEntriesRead: Word;
  113.                         var pcTotalAvail: WORD): DWORD; stdcall;
  114.  
  115. function NetShareEnum(const pszServer: PChar;
  116.                       sLevel: short;
  117.                       var pbBuffer: PChar;
  118.                       cbBuffer: Word;
  119.                       var pcEntriesRead: Word;
  120.                       var pcTotalAvail: WORD): DWORD; stdcall;
  121.  
  122. function NetConnectionEnum(const pszServer: PChar;
  123.                            const pszQualifier: PChar;
  124.                            sLevel: short;
  125.                            var pbBuffer: PChar;
  126.                            cbBuffer: Word;
  127.                            var pcEntriesRead: Word;
  128.                            var pcTotalAvail: Word): DWORD; stdcall;
  129.  
  130. type
  131.   TNetFileEnum = function(const pszServer: PChar;
  132.                      const pszBasePath: PChar;
  133.                      sLevel: short;
  134.                      var pbBuffer: PChar;
  135.                      cbBuffer: Word;
  136.                      var pcEntriesRead: Word;
  137.                      var pcTotalAvail: WORD): DWORD; stdcall;
  138.  
  139.   TNetSessionEnum = function(const pszServer: PChar;
  140.                         sLevel: short;
  141.                         var pbBuffer: PChar;
  142.                         cbBuffer: Word;
  143.                         var pcEntriesRead: Word;
  144.                         var pcTotalAvail: WORD): DWORD; stdcall;
  145.  
  146.   TNetShareEnum = function(const pszServer: PChar;
  147.                       sLevel: short;
  148.                       var pbBuffer: PChar;
  149.                       cbBuffer: Word;
  150.                       var pcEntriesRead: Word;
  151.                       var pcTotalAvail: WORD): DWORD; stdcall;
  152.  
  153.   TNetConnectionEnum = function(const pszServer: PChar;
  154.                            const pszQualifier: PChar;
  155.                            sLevel: short;
  156.                            var pbBuffer: PChar;
  157.                            cbBuffer: Word;
  158.                            var pcEntriesRead: Word;
  159.                            var pcTotalAvail: Word): DWORD; stdcall;
  160.  
  161. var
  162.   SVRAPILoaded: Boolean;
  163.  
  164. implementation
  165.  
  166.