jwalmserver.pas

比较全面的win32api开发包

  {$EXTERNALSYM _SERVER_INFO_1591}
  SERVER_INFO_1591 = _SERVER_INFO_1591;
  {$EXTERNALSYM SERVER_INFO_1591}
  TServerInfo1591 = SERVER_INFO_1591;
  PServerInfo1591 = PSERVER_INFO_1591;

  LPSERVER_INFO_1592 = ^SERVER_INFO_1592;
  {$EXTERNALSYM LPSERVER_INFO_1592}
  PSERVER_INFO_1592 = ^SERVER_INFO_1592;
  {$EXTERNALSYM PSERVER_INFO_1592}
  _SERVER_INFO_1592 = record
    sv1592_autosharewks: DWORD;
  end;
  {$EXTERNALSYM _SERVER_INFO_1592}
  SERVER_INFO_1592 = _SERVER_INFO_1592;
  {$EXTERNALSYM SERVER_INFO_1592}
  TServerInfo1592 = SERVER_INFO_1592;
  PServerInfo1592 = PSERVER_INFO_1592;

  LPSERVER_INFO_1593 = ^SERVER_INFO_1593;
  {$EXTERNALSYM LPSERVER_INFO_1593}
  PSERVER_INFO_1593 = ^SERVER_INFO_1593;
  {$EXTERNALSYM PSERVER_INFO_1593}
  _SERVER_INFO_1593 = record
    sv1593_enablesecuritysignature: DWORD;
  end;
  {$EXTERNALSYM _SERVER_INFO_1593}
  SERVER_INFO_1593 = _SERVER_INFO_1593;
  {$EXTERNALSYM SERVER_INFO_1593}
  TServerInfo1593 = SERVER_INFO_1593;
  PServerInfo1593 = PSERVER_INFO_1593;

  LPSERVER_INFO_1594 = ^SERVER_INFO_1594;
  {$EXTERNALSYM LPSERVER_INFO_1594}
  PSERVER_INFO_1594 = ^SERVER_INFO_1594;
  {$EXTERNALSYM PSERVER_INFO_1594}
  _SERVER_INFO_1594 = record
    sv1594_requiresecuritysignature: DWORD;
  end;
  {$EXTERNALSYM _SERVER_INFO_1594}
  SERVER_INFO_1594 = _SERVER_INFO_1594;
  {$EXTERNALSYM SERVER_INFO_1594}
  TServerInfo1594 = SERVER_INFO_1594;
  PServerInfo1594 = PSERVER_INFO_1594;

  LPSERVER_INFO_1595 = ^SERVER_INFO_1595;
  {$EXTERNALSYM LPSERVER_INFO_1595}
  PSERVER_INFO_1595 = ^SERVER_INFO_1595;
  {$EXTERNALSYM PSERVER_INFO_1595}
  _SERVER_INFO_1595 = record
    sv1595_minclientbuffersize: DWORD;
  end;
  {$EXTERNALSYM _SERVER_INFO_1595}
  SERVER_INFO_1595 = _SERVER_INFO_1595;
  {$EXTERNALSYM SERVER_INFO_1595}
  TServerInfo1595 = SERVER_INFO_1595;
  PServerInfo1595 = PSERVER_INFO_1595;

  LPSERVER_INFO_1596 = ^SERVER_INFO_1596;
  {$EXTERNALSYM LPSERVER_INFO_1596}
  PSERVER_INFO_1596 = ^SERVER_INFO_1596;
  {$EXTERNALSYM PSERVER_INFO_1596}
  _SERVER_INFO_1596 = record
    sv1596_ConnectionNoSessionsTimeout: DWORD;
  end;
  {$EXTERNALSYM _SERVER_INFO_1596}
  SERVER_INFO_1596 = _SERVER_INFO_1596;
  {$EXTERNALSYM SERVER_INFO_1596}
  TServerInfo1596 = SERVER_INFO_1596;
  PServerInfo1596 = PSERVER_INFO_1596;

  LPSERVER_INFO_1597 = ^SERVER_INFO_1597;
  {$EXTERNALSYM LPSERVER_INFO_1597}
  PSERVER_INFO_1597 = ^SERVER_INFO_1597;
  {$EXTERNALSYM PSERVER_INFO_1597}
  _SERVER_INFO_1597 = record
    sv1597_IdleThreadTimeOut: DWORD;
  end;
  {$EXTERNALSYM _SERVER_INFO_1597}
  SERVER_INFO_1597 = _SERVER_INFO_1597;
  {$EXTERNALSYM SERVER_INFO_1597}
  TServerInfo1597 = SERVER_INFO_1597;
  PServerInfo1597 = PSERVER_INFO_1597;

  LPSERVER_INFO_1598 = ^SERVER_INFO_1598;
  {$EXTERNALSYM LPSERVER_INFO_1598}
  PSERVER_INFO_1598 = ^SERVER_INFO_1598;
  {$EXTERNALSYM PSERVER_INFO_1598}
  _SERVER_INFO_1598 = record
    sv1598_enableW9xsecuritysignature: DWORD;
  end;
  {$EXTERNALSYM _SERVER_INFO_1598}
  SERVER_INFO_1598 = _SERVER_INFO_1598;
  {$EXTERNALSYM SERVER_INFO_1598}
  TServerInfo1598 = SERVER_INFO_1598;
  PServerInfo1598 = PSERVER_INFO_1598;

  LPSERVER_INFO_1599 = ^SERVER_INFO_1599;
  {$EXTERNALSYM LPSERVER_INFO_1599}
  PSERVER_INFO_1599 = ^SERVER_INFO_1599;
  {$EXTERNALSYM PSERVER_INFO_1599}
  _SERVER_INFO_1599 = record
    sv1598_enforcekerberosreauthentication: BOOLEAN;
  end;
  {$EXTERNALSYM _SERVER_INFO_1599}
  SERVER_INFO_1599 = _SERVER_INFO_1599;
  {$EXTERNALSYM SERVER_INFO_1599}
  TServerInfo1599 = SERVER_INFO_1599;
  PServerInfo1599 = PSERVER_INFO_1599;

  LPSERVER_INFO_1600 = ^SERVER_INFO_1600;
  {$EXTERNALSYM LPSERVER_INFO_1600}
  PSERVER_INFO_1600 = ^SERVER_INFO_1600;
  {$EXTERNALSYM PSERVER_INFO_1600}
  _SERVER_INFO_1600 = record
    sv1598_disabledos: BOOLEAN;
  end;
  {$EXTERNALSYM _SERVER_INFO_1600}
  SERVER_INFO_1600 = _SERVER_INFO_1600;
  {$EXTERNALSYM SERVER_INFO_1600}
  TServerInfo1600 = SERVER_INFO_1600;
  PServerInfo1600 = PSERVER_INFO_1600;

  LPSERVER_INFO_1601 = ^SERVER_INFO_1601;
  {$EXTERNALSYM LPSERVER_INFO_1601}
  PSERVER_INFO_1601 = ^SERVER_INFO_1601;
  {$EXTERNALSYM PSERVER_INFO_1601}
  _SERVER_INFO_1601 = record
    sv1598_lowdiskspaceminimum: DWORD;
  end;
  {$EXTERNALSYM _SERVER_INFO_1601}
  SERVER_INFO_1601 = _SERVER_INFO_1601;
  {$EXTERNALSYM SERVER_INFO_1601}
  TServerInfo1601 = SERVER_INFO_1601;
  PServerInfo1601 = PSERVER_INFO_1601;

  LPSERVER_INFO_1602 = ^SERVER_INFO_1602;
  {$EXTERNALSYM LPSERVER_INFO_1602}
  PSERVER_INFO_1602 = ^SERVER_INFO_1602;
  {$EXTERNALSYM PSERVER_INFO_1602}
  _SERVER_INFO_1602 = record
    sv_1598_disablestrictnamechecking: BOOL;
  end;
  {$EXTERNALSYM _SERVER_INFO_1602}
  SERVER_INFO_1602 = _SERVER_INFO_1602;
  {$EXTERNALSYM SERVER_INFO_1602}
  TServerInfo1602 = SERVER_INFO_1602;
  PServerInfo1602 = PSERVER_INFO_1602;

//
// A special structure definition is required in order for this
// structure to work with RPC.  The problem is that having addresslength
// indicate the number of bytes in address means that RPC must know the
// link between the two.
//

  LPSERVER_TRANSPORT_INFO_0 = ^SERVER_TRANSPORT_INFO_0;
  {$EXTERNALSYM LPSERVER_TRANSPORT_INFO_0}
  PSERVER_TRANSPORT_INFO_0 = ^SERVER_TRANSPORT_INFO_0;
  {$EXTERNALSYM PSERVER_TRANSPORT_INFO_0}
  _SERVER_TRANSPORT_INFO_0 = record
    svti0_numberofvcs: DWORD;
    svti0_transportname: LMSTR;
    svti0_transportaddress: LPBYTE;
    svti0_transportaddresslength: DWORD;
    svti0_networkaddress: LMSTR;
  end;
  {$EXTERNALSYM _SERVER_TRANSPORT_INFO_0}
  SERVER_TRANSPORT_INFO_0 = _SERVER_TRANSPORT_INFO_0;
  {$EXTERNALSYM SERVER_TRANSPORT_INFO_0}
  TServerTransportInfo0 = SERVER_TRANSPORT_INFO_0;
  PServerTransportInfo0 = PSERVER_TRANSPORT_INFO_0;

  LPSERVER_TRANSPORT_INFO_1 = ^SERVER_TRANSPORT_INFO_1;
  {$EXTERNALSYM LPSERVER_TRANSPORT_INFO_1}
  PSERVER_TRANSPORT_INFO_1 = ^SERVER_TRANSPORT_INFO_1;
  {$EXTERNALSYM PSERVER_TRANSPORT_INFO_1}
  _SERVER_TRANSPORT_INFO_1 = record
    svti1_numberofvcs: DWORD;
    svti1_transportname: LMSTR;
    svti1_transportaddress: LPBYTE;
    svti1_transportaddresslength: DWORD;
    svti1_networkaddress: LMSTR;
    svti1_domain: LMSTR;
  end;
  {$EXTERNALSYM _SERVER_TRANSPORT_INFO_1}
  SERVER_TRANSPORT_INFO_1 = _SERVER_TRANSPORT_INFO_1;
  {$EXTERNALSYM SERVER_TRANSPORT_INFO_1}
  TServerTransportInfo1 = SERVER_TRANSPORT_INFO_1;
  PServerTransportInfo1 = PSERVER_TRANSPORT_INFO_1;

  LPSERVER_TRANSPORT_INFO_2 = ^SERVER_TRANSPORT_INFO_2;
  {$EXTERNALSYM LPSERVER_TRANSPORT_INFO_2}
  PSERVER_TRANSPORT_INFO_2 = ^SERVER_TRANSPORT_INFO_2;
  {$EXTERNALSYM PSERVER_TRANSPORT_INFO_2}
  _SERVER_TRANSPORT_INFO_2 = record
    svti2_numberofvcs: DWORD;
    svti2_transportname: LMSTR;
    svti2_transportaddress: LPBYTE;
    svti2_transportaddresslength: DWORD;
    svti2_networkaddress: LMSTR;
    svti2_domain: LMSTR;
    svti2_flags: ULONG;
  end;
  {$EXTERNALSYM _SERVER_TRANSPORT_INFO_2}
  SERVER_TRANSPORT_INFO_2 = _SERVER_TRANSPORT_INFO_2;
  {$EXTERNALSYM SERVER_TRANSPORT_INFO_2}
  TServerTransportInfo2 = SERVER_TRANSPORT_INFO_2;
  PServerTransportInfo2 = PSERVER_TRANSPORT_INFO_2;

  LPSERVER_TRANSPORT_INFO_3 = ^SERVER_TRANSPORT_INFO_3;
  {$EXTERNALSYM LPSERVER_TRANSPORT_INFO_3}
  PSERVER_TRANSPORT_INFO_3 = ^SERVER_TRANSPORT_INFO_3;
  {$EXTERNALSYM PSERVER_TRANSPORT_INFO_3}
  _SERVER_TRANSPORT_INFO_3 = record
    svti3_numberofvcs: DWORD;
    svti3_transportname: LMSTR;
    svti3_transportaddress: LPBYTE;
    svti3_transportaddresslength: DWORD;
    svti3_networkaddress: LMSTR;
    svti3_domain: LMSTR;
    svti3_flags: ULONG;
    svti3_passwordlength: DWORD;
    svti3_password: array [0..256 - 1] of BYTE;
  end;
  {$EXTERNALSYM _SERVER_TRANSPORT_INFO_3}
  SERVER_TRANSPORT_INFO_3 = _SERVER_TRANSPORT_INFO_3;
  {$EXTERNALSYM SERVER_TRANSPORT_INFO_3}
  TServerTransportInfo3 = SERVER_TRANSPORT_INFO_3;
  PServerTransportInfo3 = PSERVER_TRANSPORT_INFO_3;

//
// Defines - SERVER
//

//
// The platform ID indicates the levels to use for platform-specific
// information.
//

const
  SV_PLATFORM_ID_OS2 = 400;
  {$EXTERNALSYM SV_PLATFORM_ID_OS2}
  SV_PLATFORM_ID_NT  = 500;
  {$EXTERNALSYM SV_PLATFORM_ID_NT}

//
//      Mask to be applied to svX_version_major in order to obtain
//      the major version number.
//

  MAJOR_VERSION_MASK = $0F;
  {$EXTERNALSYM MAJOR_VERSION_MASK}

//
//      Bit-mapped values for svX_type fields. X = 1, 2 or 3.
//

  SV_TYPE_WORKSTATION       = $00000001;
  {$EXTERNALSYM SV_TYPE_WORKSTATION}
  SV_TYPE_SERVER            = $00000002;
  {$EXTERNALSYM SV_TYPE_SERVER}
  SV_TYPE_SQLSERVER         = $00000004;
  {$EXTERNALSYM SV_TYPE_SQLSERVER}
  SV_TYPE_DOMAIN_CTRL       = $00000008;
  {$EXTERNALSYM SV_TYPE_DOMAIN_CTRL}
  SV_TYPE_DOMAIN_BAKCTRL    = $00000010;
  {$EXTERNALSYM SV_TYPE_DOMAIN_BAKCTRL}
  SV_TYPE_TIME_SOURCE       = $00000020;
  {$EXTERNALSYM SV_TYPE_TIME_SOURCE}
  SV_TYPE_AFP               = $00000040;
  {$EXTERNALSYM SV_TYPE_AFP}
  SV_TYPE_NOVELL            = $00000080;
  {$EXTERNALSYM SV_TYPE_NOVELL}
  SV_TYPE_DOMAIN_MEMBER     = $00000100;
  {$EXTERNALSYM SV_TYPE_DOMAIN_MEMBER}
  SV_TYPE_PRINTQ_SERVER     = $00000200;
  {$EXTERNALSYM SV_TYPE_PRINTQ_SERVER}
  SV_TYPE_DIALIN_SERVER     = $00000400;
  {$EXTERNALSYM SV_TYPE_DIALIN_SERVER}
  SV_TYPE_XENIX_SERVER      = $00000800;
  {$EXTERNALSYM SV_TYPE_XENIX_SERVER}
  SV_TYPE_SERVER_UNIX       = SV_TYPE_XENIX_SERVER;
  {$EXTERNALSYM SV_TYPE_SERVER_UNIX}
  SV_TYPE_NT                = $00001000;
  {$EXTERNALSYM SV_TYPE_NT}
  SV_TYPE_WFW               = $00002000;
  {$EXTERNALSYM SV_TYPE_WFW}
  SV_TYPE_SERVER_MFPN       = $00004000;
  {$EXTERNALSYM SV_TYPE_SERVER_MFPN}
  SV_TYPE_SERVER_NT         = $00008000;
  {$EXTERNALSYM SV_TYPE_SERVER_NT}
  SV_TYPE_POTENTIAL_BROWSER = $00010000;
  {$EXTERNALSYM SV_TYPE_POTENTIAL_BROWSER}
  SV_TYPE_BACKUP_BROWSER    = $00020000;
  {$EXTERNALSYM SV_TYPE_BACKUP_BROWSER}
  SV_TYPE_MASTER_BROWSER    = $00040000;
  {$EXTERNALSYM SV_TYPE_MASTER_BROWSER}
  SV_TYPE_DOMAIN_MASTER     = $00080000;
  {$EXTERNALSYM SV_TYPE_DOMAIN_MASTER}
  SV_TYPE_SERVER_OSF        = $00100000;
  {$EXTERNALSYM SV_TYPE_SERVER_OSF}
  SV_TYPE_SERVER_VMS        = $00200000;
  {$EXTERNALSYM SV_TYPE_SERVER_VMS}
  SV_TYPE_WINDOWS           = $00400000; // Windows95 and above
  {$EXTERNALSYM SV_TYPE_WINDOWS}
  SV_TYPE_DFS               = $00800000; // Root of a DFS tree
  {$EXTERNALSYM SV_TYPE_DFS}
  SV_TYPE_CLUSTER_NT        = $01000000; // NT Cluster
  {$EXTERNALSYM SV_TYPE_CLUSTER_NT}
  SV_TYPE_TERMINALSERVER    = $02000000; // Terminal Server(Hydra)
  {$EXTERNALSYM SV_TYPE_TERMINALSERVER}
  SV_TYPE_CLUSTER_VS_NT     = $04000000; // NT Cluster Virtual Server Name
  {$EXTERNALSYM SV_TYPE_CLUSTER_VS_NT}
  SV_TYPE_DCE               = $10000000; // IBM DSS (Directory and Security Services) or equivalent
  {$EXTERNALSYM SV_TYPE_DCE}
  SV_TYPE_ALTERNATE_XPORT   = $20000000; // return list for alternate transport
  {$EXTERNALSYM SV_TYPE_ALTERNATE_XPORT}
  SV_TYPE_LOCAL_LIST_ONLY   = $40000000; // Return local list only
  {$EXTERNALSYM SV_TYPE_LOCAL_LIST_ONLY}
  SV_TYPE_DOMAIN_ENUM       = DWORD($80000000);
  {$EXTERNALSYM SV_TYPE_DOMAIN_ENUM}
  SV_TYPE_ALL               = DWORD($FFFFFFFF); // handy for NetServerEnum2
  {$EXTERNALSYM SV_TYPE_ALL}

//
//      Special value for sv102_disc that specifies infinite disconnect
//      time.
//

  SV_NODISC = DWORD(-1); // No autodisconnect timeout enforced
  {$EXTERNALSYM SV_NODISC}

//
//      Values of svX_security field. X = 2 or 3.
//

  SV_USERSECURITY  = 1;
  {$EXTERNALSYM SV_USERSECURITY}
  SV_SHARESECURITY = 0;
  {$EXTERNALSYM SV_SHARESECURITY}

//
//      Values of svX_hidden field. X = 2 or 3.
//

  SV_HIDDEN  = 1;
  {$EXTERNALSYM SV_HIDDEN}
  SV_VISIBLE = 0;
  {$EXTERNALSYM SV_VISIBLE}

//
//      Values for ParmError parameter to NetServerSetInfo.
//

  SV_PLATFORM_ID_PARMNUM   = 101;
  {$EXTERNALSYM SV_PLATFORM_ID_PARMNUM}
  SV_NAME_PARMNUM          = 102;
  {$EXTERNALSYM SV_NAME_PARMNUM}
  SV_VERSION_MAJOR_PARMNUM = 103;
  {$EXTERNALSYM SV_VERSION_MAJOR_PARMNUM}
  SV_VERSION_MINOR_PARMNUM = 104;
  {$EXTERNALSYM SV_VERSION_MINOR_PARMNUM}
  SV_TYPE_PARMNUM          = 105;
  {$EXTERNALSYM SV_TYPE_PARMNUM}
  SV_COMMENT_PARMNUM       = 5;
  {$EXTERNALSYM SV_COMMENT_PARMNUM}
  SV_USERS_PARMNUM         = 107;
  {$EXTERNALSYM SV_USERS_PARMNUM}
  SV_DISC_PARMNUM          = 10;
  {$EXTERNALSYM SV_DISC_PARMNUM}
  SV_HIDDEN_PARMNUM        = 16;
  {$EXTERNALSYM SV_HIDDEN_PARMNUM}
  SV_ANNOUNCE_PARMNUM      = 17;
  {$EXTERNALSYM SV_ANNOUNCE_PARMNUM}
  SV_ANNDELTA_PARMNUM      = 18;
  {$EXTERNALSYM SV_ANNDELTA_PARMNUM}
  SV_USERPATH_PARMNUM      = 112;
  {$EXTERNALSYM SV_USERPATH_PARMNUM}

  SV_ULIST_MTIME_PARMNUM   = 401;
  {$EXTERNALSYM SV_ULIST_MTIME_PARMNUM}
  SV_GLIST_MTIME_PARM