开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaLmWkSta.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：35k
源码类别：

Windows编程

开发平台：

Delphi

JwaLmWkSta.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Lan Manager Workstation API interface Unit for Object Pascal                 }
  4. {                                                                       }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
  6. { Corporation. All Rights Reserved.                                            }
  7. {                 }
  8. { The original file is: lmwksta.h, released November 2001. The original Pascal }
  9. { code is: LmWkSta.pas, released Februari 2002. The initial developer of the   }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  16. {                }
  17. { You may retrieve the latest version of this file at the Project JEDI home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaLmWkSta;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "lmwksta.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaLmCons, JwaWinType;
  59. //
  60. // Function Prototypes
  61. //
  63. function NetWkstaGetInfo(servername: LMSTR; level: DWORD; var bufptr: LPBYTE): NET_API_STATUS; stdcall;
  64. {$EXTERNALSYM NetWkstaGetInfo}
  66. function NetWkstaSetInfo(servername: LMSTR; level: DWORD; buffer: LPBYTE; parm_err: LPDWORD): NET_API_STATUS; stdcall;
  67. {$EXTERNALSYM NetWkstaSetInfo}
  69. function NetWkstaUserGetInfo(reserved: LMSTR; level: DWORD; var bufptr: LPBYTE): NET_API_STATUS; stdcall;
  70. {$EXTERNALSYM NetWkstaUserGetInfo}
  72. function NetWkstaUserSetInfo(reserved: LMSTR; level: DWORD; buf: LPBYTE; parm_err: LPDWORD): NET_API_STATUS; stdcall;
  73. {$EXTERNALSYM NetWkstaUserSetInfo}
  75. function NetWkstaUserEnum(servername: LMSTR; level: DWORD; var bufptr: LPBYTE; prefmaxlen: DWORD; entriesread: LPDWORD; totalentries: LPDWORD; resumehandle: LPDWORD): NET_API_STATUS; stdcall;
  76. {$EXTERNALSYM NetWkstaUserEnum}
  78. function NetWkstaTransportAdd(servername: LMSTR; level: DWORD; buf: LPBYTE; parm_err: LPDWORD): NET_API_STATUS; stdcall;
  79. {$EXTERNALSYM NetWkstaTransportAdd}
  81. function NetWkstaTransportDel(servername: LMSTR; transportname: LMSTR; ucond: DWORD): NET_API_STATUS; stdcall;
  82. {$EXTERNALSYM NetWkstaTransportDel}
  84. function NetWkstaTransportEnum(servername: LMSTR; level: DWORD; var bufptr: LPBYTE; prefmaxlen: DWORD; entriesread: LPDWORD; totalentries: LPDWORD; resumehandle: LPDWORD): NET_API_STATUS; stdcall;
  85. {$EXTERNALSYM NetWkstaTransportEnum}
  87. //
  88. //  Data Structures
  89. //
  91. //
  92. // NetWkstaGetInfo and NetWkstaSetInfo
  93. //
  95. //
  96. // NetWkstaGetInfo only.  System information - guest access
  97. //
  99. type
  100.   LPWKSTA_INFO_100 = ^WKSTA_INFO_100;
  101.   {$EXTERNALSYM LPWKSTA_INFO_100}
  102.   PWKSTA_INFO_100 = ^WKSTA_INFO_100;
  103.   {$EXTERNALSYM PWKSTA_INFO_100}
  104.   _WKSTA_INFO_100 = record
  105.     wki100_platform_id: DWORD;
  106.     wki100_computername: LMSTR;
  107.     wki100_langroup: LMSTR;
  108.     wki100_ver_major: DWORD;
  109.     wki100_ver_minor: DWORD;
  110.   end;
  111.   {$EXTERNALSYM _WKSTA_INFO_100}
  112.   WKSTA_INFO_100 = _WKSTA_INFO_100;
  113.   {$EXTERNALSYM WKSTA_INFO_100}
  114.   TWkstaInfo100 = WKSTA_INFO_100;
  115.   PWkstaInfo100 = PWKSTA_INFO_100;
  117. //
  118. // NetWkstaGetInfo only.  System information - user access
  119. //
  121.   LPWKSTA_INFO_101 = ^WKSTA_INFO_101;
  122.   {$EXTERNALSYM LPWKSTA_INFO_101}
  123.   PWKSTA_INFO_101 = ^WKSTA_INFO_101;
  124.   {$EXTERNALSYM PWKSTA_INFO_101}
  125.   _WKSTA_INFO_101 = record
  126.     wki101_platform_id: DWORD;
  127.     wki101_computername: LMSTR;
  128.     wki101_langroup: LMSTR;
  129.     wki101_ver_major: DWORD;
  130.     wki101_ver_minor: DWORD;
  131.     wki101_lanroot: LMSTR;
  132.   end;
  133.   {$EXTERNALSYM _WKSTA_INFO_101}
  134.   WKSTA_INFO_101 = _WKSTA_INFO_101;
  135.   {$EXTERNALSYM WKSTA_INFO_101}
  136.   TWkstaInfo101 = WKSTA_INFO_101;
  137.   PWkstaInfo101 = PWKSTA_INFO_101;
  139. //
  140. // NetWkstaGetInfo only.  System information - admin or operator access
  141. //
  143.   LPWKSTA_INFO_102 = ^WKSTA_INFO_102;
  144.   {$EXTERNALSYM LPWKSTA_INFO_102}
  145.   PWKSTA_INFO_102 = ^WKSTA_INFO_102;
  146.   {$EXTERNALSYM PWKSTA_INFO_102}
  147.   _WKSTA_INFO_102 = record
  148.     wki102_platform_id: DWORD;
  149.     wki102_computername: LMSTR;
  150.     wki102_langroup: LMSTR;
  151.     wki102_ver_major: DWORD;
  152.     wki102_ver_minor: DWORD;
  153.     wki102_lanroot: LMSTR;
  154.     wki102_logged_on_users: DWORD;
  155.   end;
  156.   {$EXTERNALSYM _WKSTA_INFO_102}
  157.   WKSTA_INFO_102 = _WKSTA_INFO_102;
  158.   {$EXTERNALSYM WKSTA_INFO_102}
  159.   TWkstaInfo102 = WKSTA_INFO_102;
  160.   PWkstaInfo102 = PWKSTA_INFO_102;
  162. //
  163. // Down-level NetWkstaGetInfo and NetWkstaSetInfo.
  164. //
  165. // DOS specific workstation information -
  166. //    admin or domain operator access
  167. //
  169.   LPWKSTA_INFO_302 = ^WKSTA_INFO_302;
  170.   {$EXTERNALSYM LPWKSTA_INFO_302}
  171.   PWKSTA_INFO_302 = ^WKSTA_INFO_302;
  172.   {$EXTERNALSYM PWKSTA_INFO_302}
  173.   _WKSTA_INFO_302 = record
  174.     wki302_char_wait: DWORD;
  175.     wki302_collection_time: DWORD;
  176.     wki302_maximum_collection_count: DWORD;
  177.     wki302_keep_conn: DWORD;
  178.     wki302_keep_search: DWORD;
  179.     wki302_max_cmds: DWORD;
  180.     wki302_num_work_buf: DWORD;
  181.     wki302_siz_work_buf: DWORD;
  182.     wki302_max_wrk_cache: DWORD;
  183.     wki302_sess_timeout: DWORD;
  184.     wki302_siz_error: DWORD;
  185.     wki302_num_alerts: DWORD;
  186.     wki302_num_services: DWORD;
  187.     wki302_errlog_sz: DWORD;
  188.     wki302_print_buf_time: DWORD;
  189.     wki302_num_char_buf: DWORD;
  190.     wki302_siz_char_buf: DWORD;
  191.     wki302_wrk_heuristics: LMSTR;
  192.     wki302_mailslots: DWORD;
  193.     wki302_num_dgram_buf: DWORD;
  194.   end;
  195.   {$EXTERNALSYM _WKSTA_INFO_302}
  196.   WKSTA_INFO_302 = _WKSTA_INFO_302;
  197.   {$EXTERNALSYM WKSTA_INFO_302}
  198.   TWkstaInfo302 = WKSTA_INFO_302;
  199.   PWkstaInfo302 = PWKSTA_INFO_302;
  201. //
  202. // Down-level NetWkstaGetInfo and NetWkstaSetInfo
  203. //
  204. // OS/2 specific workstation information -
  205. //    admin or domain operator access
  206. //
  208.   LPWKSTA_INFO_402 = ^WKSTA_INFO_402;
  209.   {$EXTERNALSYM LPWKSTA_INFO_402}
  210.   PWKSTA_INFO_402 = ^WKSTA_INFO_402;
  211.   {$EXTERNALSYM PWKSTA_INFO_402}
  212.   _WKSTA_INFO_402 = record
  213.     wki402_char_wait: DWORD;
  214.     wki402_collection_time: DWORD;
  215.     wki402_maximum_collection_count: DWORD;
  216.     wki402_keep_conn: DWORD;
  217.     wki402_keep_search: DWORD;
  218.     wki402_max_cmds: DWORD;
  219.     wki402_num_work_buf: DWORD;
  220.     wki402_siz_work_buf: DWORD;
  221.     wki402_max_wrk_cache: DWORD;
  222.     wki402_sess_timeout: DWORD;
  223.     wki402_siz_error: DWORD;
  224.     wki402_num_alerts: DWORD;
  225.     wki402_num_services: DWORD;
  226.     wki402_errlog_sz: DWORD;
  227.     wki402_print_buf_time: DWORD;
  228.     wki402_num_char_buf: DWORD;
  229.     wki402_siz_char_buf: DWORD;
  230.     wki402_wrk_heuristics: LMSTR;
  231.     wki402_mailslots: DWORD;
  232.     wki402_num_dgram_buf: DWORD;
  233.     wki402_max_threads: DWORD;
  234.   end;
  235.   {$EXTERNALSYM _WKSTA_INFO_402}
  236.   WKSTA_INFO_402 = _WKSTA_INFO_402;
  237.   {$EXTERNALSYM WKSTA_INFO_402}
  238.   TWkstaInfo402 = WKSTA_INFO_402;
  239.   PWkstaInfo402 = PWKSTA_INFO_402;
  241. //
  242. // Same-level NetWkstaGetInfo and NetWkstaSetInfo.
  243. //
  244. // NT specific workstation information -
  245. //    admin or domain operator access
  246. //
  248.   LPWKSTA_INFO_502 = ^WKSTA_INFO_502;
  249.   {$EXTERNALSYM LPWKSTA_INFO_502}
  250.   PWKSTA_INFO_502 = ^WKSTA_INFO_502;
  251.   {$EXTERNALSYM PWKSTA_INFO_502}
  252.   _WKSTA_INFO_502 = record
  253.     wki502_char_wait: DWORD;
  254.     wki502_collection_time: DWORD;
  255.     wki502_maximum_collection_count: DWORD;
  256.     wki502_keep_conn: DWORD;
  257.     wki502_max_cmds: DWORD;
  258.     wki502_sess_timeout: DWORD;
  259.     wki502_siz_char_buf: DWORD;
  260.     wki502_max_threads: DWORD;
  261.     wki502_lock_quota: DWORD;
  262.     wki502_lock_increment: DWORD;
  263.     wki502_lock_maximum: DWORD;
  264.     wki502_pipe_increment: DWORD;
  265.     wki502_pipe_maximum: DWORD;
  266.     wki502_cache_file_timeout: DWORD;
  267.     wki502_dormant_file_limit: DWORD;
  268.     wki502_read_ahead_throughput: DWORD;
  269.     wki502_num_mailslot_buffers: DWORD;
  270.     wki502_num_srv_announce_buffers: DWORD;
  271.     wki502_max_illegal_datagram_events: DWORD;
  272.     wki502_illegal_datagram_event_reset_frequency: DWORD;
  273.     wki502_log_election_packets: BOOL;
  274.     wki502_use_opportunistic_locking: BOOL;
  275.     wki502_use_unlock_behind: BOOL;
  276.     wki502_use_close_behind: BOOL;
  277.     wki502_buf_named_pipes: BOOL;
  278.     wki502_use_lock_read_unlock: BOOL;
  279.     wki502_utilize_nt_caching: BOOL;
  280.     wki502_use_raw_read: BOOL;
  281.     wki502_use_raw_write: BOOL;
  282.     wki502_use_write_raw_data: BOOL;
  283.     wki502_use_encryption: BOOL;
  284.     wki502_buf_files_deny_write: BOOL;
  285.     wki502_buf_read_only_files: BOOL;
  286.     wki502_force_core_create_mode: BOOL;
  287.     wki502_use_512_byte_max_transfer: BOOL;
  288.   end;
  289.   {$EXTERNALSYM _WKSTA_INFO_502}
  290.   WKSTA_INFO_502 = _WKSTA_INFO_502;
  291.   {$EXTERNALSYM WKSTA_INFO_502}
  292.   TWkstaInfo502 = WKSTA_INFO_502;
  293.   PWkstaInfo502 = PWKSTA_INFO_502;
  296. //
  297. // The following info-levels are only valid for NetWkstaSetInfo
  298. //
  300. //
  301. // The following levels are supported on down-level systems (LAN Man 2.x)
  302. // as well as NT systems:
  303. //
  305.   LPWKSTA_INFO_1010 = ^WKSTA_INFO_1010;
  306.   {$EXTERNALSYM LPWKSTA_INFO_1010}
  307.   PWKSTA_INFO_1010 = ^WKSTA_INFO_1010;
  308.   {$EXTERNALSYM PWKSTA_INFO_1010}
  309.   _WKSTA_INFO_1010 = record
  310.     wki1010_char_wait: DWORD;
  311.   end;
  312.   {$EXTERNALSYM _WKSTA_INFO_1010}
  313.   WKSTA_INFO_1010 = _WKSTA_INFO_1010;
  314.   {$EXTERNALSYM WKSTA_INFO_1010}
  315.   TWkstaInfo1010 = WKSTA_INFO_1010;
  316.   PWkstaInfo1010 = PWKSTA_INFO_1010;
  318.   LPWKSTA_INFO_1011 = ^WKSTA_INFO_1011;
  319.   {$EXTERNALSYM LPWKSTA_INFO_1011}
  320.   PWKSTA_INFO_1011 = ^WKSTA_INFO_1011;
  321.   {$EXTERNALSYM PWKSTA_INFO_1011}
  322.   _WKSTA_INFO_1011 = record
  323.     wki1011_collection_time: DWORD;
  324.   end;
  325.   {$EXTERNALSYM _WKSTA_INFO_1011}
  326.   WKSTA_INFO_1011 = _WKSTA_INFO_1011;
  327.   {$EXTERNALSYM WKSTA_INFO_1011}
  328.   TWkstaInfo1011 = WKSTA_INFO_1011;
  329.   PWkstaInfo1011 = PWKSTA_INFO_1011;
  331.   LPWKSTA_INFO_1012 = ^WKSTA_INFO_1012;
  332.   {$EXTERNALSYM LPWKSTA_INFO_1012}
  333.   PWKSTA_INFO_1012 = ^WKSTA_INFO_1012;
  334.   {$EXTERNALSYM PWKSTA_INFO_1012}
  335.   _WKSTA_INFO_1012 = record
  336.     wki1012_maximum_collection_count: DWORD;
  337.   end;
  338.   {$EXTERNALSYM _WKSTA_INFO_1012}
  339.   WKSTA_INFO_1012 = _WKSTA_INFO_1012;
  340.   {$EXTERNALSYM WKSTA_INFO_1012}
  341.   TWkstaInfo1012 = WKSTA_INFO_1012;
  342.   PWkstaInfo1012 = PWKSTA_INFO_1012;
  344. //
  345. // The following level are supported on down-level systems (LAN Man 2.x)
  346. // only:
  347. //
  349.   LPWKSTA_INFO_1027 = ^WKSTA_INFO_1027;
  350.   {$EXTERNALSYM LPWKSTA_INFO_1027}
  351.   PWKSTA_INFO_1027 = ^WKSTA_INFO_1027;
  352.   {$EXTERNALSYM PWKSTA_INFO_1027}
  353.   _WKSTA_INFO_1027 = record
  354.     wki1027_errlog_sz: DWORD;
  355.   end;
  356.   {$EXTERNALSYM _WKSTA_INFO_1027}
  357.   WKSTA_INFO_1027 = _WKSTA_INFO_1027;
  358.   {$EXTERNALSYM WKSTA_INFO_1027}
  359.   TWkstaInfo1027 = WKSTA_INFO_1027;
  360.   PWkstaInfo1027 = PWKSTA_INFO_1027;
  362.   LPWKSTA_INFO_1028 = ^WKSTA_INFO_1028;
  363.   {$EXTERNALSYM LPWKSTA_INFO_1028}
  364.   PWKSTA_INFO_1028 = ^WKSTA_INFO_1028;
  365.   {$EXTERNALSYM PWKSTA_INFO_1028}
  366.   _WKSTA_INFO_1028 = record
  367.     wki1028_print_buf_time: DWORD;
  368.   end;
  369.   {$EXTERNALSYM _WKSTA_INFO_1028}
  370.   WKSTA_INFO_1028 = _WKSTA_INFO_1028;
  371.   {$EXTERNALSYM WKSTA_INFO_1028}
  372.   TWkstaInfo1028 = WKSTA_INFO_1028;
  373.   PWkstaInfo1028 = PWKSTA_INFO_1028;
  375.   LPWKSTA_INFO_1032 = ^WKSTA_INFO_1032;
  376.   {$EXTERNALSYM LPWKSTA_INFO_1032}
  377.   PWKSTA_INFO_1032 = ^WKSTA_INFO_1032;
  378.   {$EXTERNALSYM PWKSTA_INFO_1032}
  379.   _WKSTA_INFO_1032 = record
  380.     wki1032_wrk_heuristics: DWORD;
  381.   end;
  382.   {$EXTERNALSYM _WKSTA_INFO_1032}
  383.   WKSTA_INFO_1032 = _WKSTA_INFO_1032;
  384.   {$EXTERNALSYM WKSTA_INFO_1032}
  385.   TWkstaInfo1032 = WKSTA_INFO_1032;
  386.   PWkstaInfo1032 = PWKSTA_INFO_1032;
  388. //
  389. // The following levels are settable on NT systems, and have no
  390. // effect on down-level systems (i.e. LANMan 2.x) since these
  391. // fields cannot be set on them:
  392. //
  394.   LPWKSTA_INFO_1013 = ^WKSTA_INFO_1013;
  395.   {$EXTERNALSYM LPWKSTA_INFO_1013}
  396.   PWKSTA_INFO_1013 = ^WKSTA_INFO_1013;
  397.   {$EXTERNALSYM PWKSTA_INFO_1013}
  398.   _WKSTA_INFO_1013 = record
  399.     wki1013_keep_conn: DWORD;
  400.   end;
  401.   {$EXTERNALSYM _WKSTA_INFO_1013}
  402.   WKSTA_INFO_1013 = _WKSTA_INFO_1013;
  403.   {$EXTERNALSYM WKSTA_INFO_1013}
  404.   TWkstaInfo1013 = WKSTA_INFO_1013;
  405.   PWkstaInfo1013 = PWKSTA_INFO_1013;
  407.   LPWKSTA_INFO_1018 = ^WKSTA_INFO_1018;
  408.   {$EXTERNALSYM LPWKSTA_INFO_1018}
  409.   PWKSTA_INFO_1018 = ^WKSTA_INFO_1018;
  410.   {$EXTERNALSYM PWKSTA_INFO_1018}
  411.   _WKSTA_INFO_1018 = record
  412.     wki1018_sess_timeout: DWORD;
  413.   end;
  414.   {$EXTERNALSYM _WKSTA_INFO_1018}
  415.   WKSTA_INFO_1018 = _WKSTA_INFO_1018;
  416.   {$EXTERNALSYM WKSTA_INFO_1018}
  417.   TWkstaInfo1018 = WKSTA_INFO_1018;
  418.   PWkstaInfo1018 = PWKSTA_INFO_1018;
  420.   LPWKSTA_INFO_1023 = ^WKSTA_INFO_1023;
  421.   {$EXTERNALSYM LPWKSTA_INFO_1023}
  422.   PWKSTA_INFO_1023 = ^WKSTA_INFO_1023;
  423.   {$EXTERNALSYM PWKSTA_INFO_1023}
  424.   _WKSTA_INFO_1023 = record
  425.     wki1023_siz_char_buf: DWORD;
  426.   end;
  427.   {$EXTERNALSYM _WKSTA_INFO_1023}
  428.   WKSTA_INFO_1023 = _WKSTA_INFO_1023;
  429.   {$EXTERNALSYM WKSTA_INFO_1023}
  430.   TWkstaInfo1023 = WKSTA_INFO_1023;
  431.   PWkstaInfo1023 = PWKSTA_INFO_1023;
  433.   LPWKSTA_INFO_1033 = ^WKSTA_INFO_1033;
  434.   {$EXTERNALSYM LPWKSTA_INFO_1033}
  435.   PWKSTA_INFO_1033 = ^WKSTA_INFO_1033;
  436.   {$EXTERNALSYM PWKSTA_INFO_1033}
  437.   _WKSTA_INFO_1033 = record
  438.     wki1033_max_threads: DWORD;
  439.   end;
  440.   {$EXTERNALSYM _WKSTA_INFO_1033}
  441.   WKSTA_INFO_1033 = _WKSTA_INFO_1033;
  442.   {$EXTERNALSYM WKSTA_INFO_1033}
  443.   TWkstaInfo1033 = WKSTA_INFO_1033;
  444.   PWkstaInfo1033 = PWKSTA_INFO_1033;
  446. //
  447. // The following levels are only supported on NT systems:
  448. //
  450.   LPWKSTA_INFO_1041 = ^WKSTA_INFO_1041;
  451.   {$EXTERNALSYM LPWKSTA_INFO_1041}
  452.   PWKSTA_INFO_1041 = ^WKSTA_INFO_1041;
  453.   {$EXTERNALSYM PWKSTA_INFO_1041}
  454.   _WKSTA_INFO_1041 = record
  455.     wki1041_lock_quota: DWORD;
  456.   end;
  457.   {$EXTERNALSYM _WKSTA_INFO_1041}
  458.   WKSTA_INFO_1041 = _WKSTA_INFO_1041;
  459.   {$EXTERNALSYM WKSTA_INFO_1041}
  460.   TWkstaInfo1041 = WKSTA_INFO_1041;
  461.   PWkstaInfo1041 = PWKSTA_INFO_1041;
  463.   LPWKSTA_INFO_1042 = ^WKSTA_INFO_1042;
  464.   {$EXTERNALSYM LPWKSTA_INFO_1042}
  465.   PWKSTA_INFO_1042 = ^WKSTA_INFO_1042;
  466.   {$EXTERNALSYM PWKSTA_INFO_1042}
  467.   _WKSTA_INFO_1042 = record
  468.     wki1042_lock_increment: DWORD;
  469.   end;
  470.   {$EXTERNALSYM _WKSTA_INFO_1042}
  471.   WKSTA_INFO_1042 = _WKSTA_INFO_1042;
  472.   {$EXTERNALSYM WKSTA_INFO_1042}
  473.   TWkstaInfo1042 = WKSTA_INFO_1042;
  474.   PWkstaInfo1042 = PWKSTA_INFO_1042;
  476.   LPWKSTA_INFO_1043 = ^WKSTA_INFO_1043;
  477.   {$EXTERNALSYM LPWKSTA_INFO_1043}
  478.   PWKSTA_INFO_1043 = ^WKSTA_INFO_1043;
  479.   {$EXTERNALSYM PWKSTA_INFO_1043}
  480.   _WKSTA_INFO_1043 = record
  481.     wki1043_lock_maximum: DWORD;
  482.   end;
  483.   {$EXTERNALSYM _WKSTA_INFO_1043}
  484.   WKSTA_INFO_1043 = _WKSTA_INFO_1043;
  485.   {$EXTERNALSYM WKSTA_INFO_1043}
  486.   TWkstaInfo1043 = WKSTA_INFO_1043;
  487.   PWkstaInfo1043 = PWKSTA_INFO_1043;
  489.   LPWKSTA_INFO_1044 = ^WKSTA_INFO_1044;
  490.   {$EXTERNALSYM LPWKSTA_INFO_1044}
  491.   PWKSTA_INFO_1044 = ^WKSTA_INFO_1044;
  492.   {$EXTERNALSYM PWKSTA_INFO_1044}
  493.   _WKSTA_INFO_1044 = record
  494.     wki1044_pipe_increment: DWORD;
  495.   end;
  496.   {$EXTERNALSYM _WKSTA_INFO_1044}
  497.   WKSTA_INFO_1044 = _WKSTA_INFO_1044;
  498.   {$EXTERNALSYM WKSTA_INFO_1044}
  499.   TWkstaInfo1044 = WKSTA_INFO_1044;
  500.   PWkstaInfo1044 = PWKSTA_INFO_1044;
  502.   LPWKSTA_INFO_1045 = ^WKSTA_INFO_1045;
  503.   {$EXTERNALSYM LPWKSTA_INFO_1045}
  504.   PWKSTA_INFO_1045 = ^WKSTA_INFO_1045;
  505.   {$EXTERNALSYM PWKSTA_INFO_1045}
  506.   _WKSTA_INFO_1045 = record
  507.     wki1045_pipe_maximum: DWORD;
  508.   end;
  509.   {$EXTERNALSYM _WKSTA_INFO_1045}
  510.   WKSTA_INFO_1045 = _WKSTA_INFO_1045;
  511.   {$EXTERNALSYM WKSTA_INFO_1045}
  512.   TWkstaInfo1045 = WKSTA_INFO_1045;
  513.   PWkstaInfo1045 = PWKSTA_INFO_1045;
  515.   LPWKSTA_INFO_1046 = ^WKSTA_INFO_1046;
  516.   {$EXTERNALSYM LPWKSTA_INFO_1046}
  517.   PWKSTA_INFO_1046 = ^WKSTA_INFO_1046;
  518.   {$EXTERNALSYM PWKSTA_INFO_1046}
  519.   _WKSTA_INFO_1046 = record
  520.     wki1046_dormant_file_limit: DWORD;
  521.   end;
  522.   {$EXTERNALSYM _WKSTA_INFO_1046}
  523.   WKSTA_INFO_1046 = _WKSTA_INFO_1046;
  524.   {$EXTERNALSYM WKSTA_INFO_1046}
  525.   TWkstaInfo1046 = WKSTA_INFO_1046;
  526.   PWkstaInfo1046 = PWKSTA_INFO_1046;
  528.   LPWKSTA_INFO_1047 = ^WKSTA_INFO_1047;
  529.   {$EXTERNALSYM LPWKSTA_INFO_1047}
  530.   PWKSTA_INFO_1047 = ^WKSTA_INFO_1047;
  531.   {$EXTERNALSYM PWKSTA_INFO_1047}
  532.   _WKSTA_INFO_1047 = record
  533.     wki1047_cache_file_timeout: DWORD;
  534.   end;
  535.   {$EXTERNALSYM _WKSTA_INFO_1047}
  536.   WKSTA_INFO_1047 = _WKSTA_INFO_1047;
  537.   {$EXTERNALSYM WKSTA_INFO_1047}
  538.   TWkstaInfo1047 = WKSTA_INFO_1047;
  539.   PWkstaInfo1047 = PWKSTA_INFO_1047;
  541.   LPWKSTA_INFO_1048 = ^WKSTA_INFO_1048;
  542.   {$EXTERNALSYM LPWKSTA_INFO_1048}
  543.   PWKSTA_INFO_1048 = ^WKSTA_INFO_1048;
  544.   {$EXTERNALSYM PWKSTA_INFO_1048}
  545.   _WKSTA_INFO_1048 = record
  546.     wki1048_use_opportunistic_locking: BOOL;
  547.   end;
  548.   {$EXTERNALSYM _WKSTA_INFO_1048}
  549.   WKSTA_INFO_1048 = _WKSTA_INFO_1048;
  550.   {$EXTERNALSYM WKSTA_INFO_1048}
  551.   TWkstaInfo1048 = WKSTA_INFO_1048;
  552.   PWkstaInfo1048 = PWKSTA_INFO_1048;
  554.   LPWKSTA_INFO_1049 = ^WKSTA_INFO_1049;
  555.   {$EXTERNALSYM LPWKSTA_INFO_1049}
  556.   PWKSTA_INFO_1049 = ^WKSTA_INFO_1049;
  557.   {$EXTERNALSYM PWKSTA_INFO_1049}
  558.   _WKSTA_INFO_1049 = record
  559.     wki1049_use_unlock_behind: BOOL;
  560.   end;
  561.   {$EXTERNALSYM _WKSTA_INFO_1049}
  562.   WKSTA_INFO_1049 = _WKSTA_INFO_1049;
  563.   {$EXTERNALSYM WKSTA_INFO_1049}
  564.   TWkstaInfo1049 = WKSTA_INFO_1049;
  565.   PWkstaInfo1049 = PWKSTA_INFO_1049;
  567.   LPWKSTA_INFO_1050 = ^WKSTA_INFO_1050;
  568.   {$EXTERNALSYM LPWKSTA_INFO_1050}
  569.   PWKSTA_INFO_1050 = ^WKSTA_INFO_1050;
  570.   {$EXTERNALSYM PWKSTA_INFO_1050}
  571.   _WKSTA_INFO_1050 = record
  572.     wki1050_use_close_behind: BOOL;
  573.   end;
  574.   {$EXTERNALSYM _WKSTA_INFO_1050}
  575.   WKSTA_INFO_1050 = _WKSTA_INFO_1050;
  576.   {$EXTERNALSYM WKSTA_INFO_1050}
  577.   TWkstaInfo1050 = WKSTA_INFO_1050;
  578.   PWkstaInfo1050 = PWKSTA_INFO_1050;
  580.   LPWKSTA_INFO_1051 = ^WKSTA_INFO_1051;
  581.   {$EXTERNALSYM LPWKSTA_INFO_1051}
  582.   PWKSTA_INFO_1051 = ^WKSTA_INFO_1051;
  583.   {$EXTERNALSYM PWKSTA_INFO_1051}
  584.   _WKSTA_INFO_1051 = record
  585.     wki1051_buf_named_pipes: BOOL;
  586.   end;
  587.   {$EXTERNALSYM _WKSTA_INFO_1051}
  588.   WKSTA_INFO_1051 = _WKSTA_INFO_1051;
  589.   {$EXTERNALSYM WKSTA_INFO_1051}
  590.   TWkstaInfo1051 = WKSTA_INFO_1051;
  591.   PWkstaInfo1051 = PWKSTA_INFO_1051;
  593.   LPWKSTA_INFO_1052 = ^WKSTA_INFO_1052;
  594.   {$EXTERNALSYM LPWKSTA_INFO_1052}
  595.   PWKSTA_INFO_1052 = ^WKSTA_INFO_1052;
  596.   {$EXTERNALSYM PWKSTA_INFO_1052}
  597.   _WKSTA_INFO_1052 = record
  598.     wki1052_use_lock_read_unlock: BOOL;
  599.   end;
  600.   {$EXTERNALSYM _WKSTA_INFO_1052}
  601.   WKSTA_INFO_1052 = _WKSTA_INFO_1052;
  602.   {$EXTERNALSYM WKSTA_INFO_1052}
  603.   TWkstaInfo1052 = WKSTA_INFO_1052;
  604.   PWkstaInfo1052 = PWKSTA_INFO_1052;
  606.   LPWKSTA_INFO_1053 = ^WKSTA_INFO_1053;
  607.   {$EXTERNALSYM LPWKSTA_INFO_1053}
  608.   PWKSTA_INFO_1053 = ^WKSTA_INFO_1053;
  609.   {$EXTERNALSYM PWKSTA_INFO_1053}
  610.   _WKSTA_INFO_1053 = record
  611.     wki1053_utilize_nt_caching: BOOL;
  612.   end;
  613.   {$EXTERNALSYM _WKSTA_INFO_1053}
  614.   WKSTA_INFO_1053 = _WKSTA_INFO_1053;
  615.   {$EXTERNALSYM WKSTA_INFO_1053}
  616.   TWkstaInfo1053 = WKSTA_INFO_1053;
  617.   PWkstaInfo1053 = PWKSTA_INFO_1053;
  619.   LPWKSTA_INFO_1054 = ^WKSTA_INFO_1054;
  620.   {$EXTERNALSYM LPWKSTA_INFO_1054}
  621.   PWKSTA_INFO_1054 = ^WKSTA_INFO_1054;
  622.   {$EXTERNALSYM PWKSTA_INFO_1054}
  623.   _WKSTA_INFO_1054 = record
  624.     wki1054_use_raw_read: BOOL;
  625.   end;
  626.   {$EXTERNALSYM _WKSTA_INFO_1054}
  627.   WKSTA_INFO_1054 = _WKSTA_INFO_1054;
  628.   {$EXTERNALSYM WKSTA_INFO_1054}
  629.   TWkstaInfo1054 = WKSTA_INFO_1054;
  630.   PWkstaInfo1054 = PWKSTA_INFO_1054;
  632.   LPWKSTA_INFO_1055 = ^WKSTA_INFO_1055;
  633.   {$EXTERNALSYM LPWKSTA_INFO_1055}
  634.   PWKSTA_INFO_1055 = ^WKSTA_INFO_1055;
  635.   {$EXTERNALSYM PWKSTA_INFO_1055}
  636.   _WKSTA_INFO_1055 = record
  637.     wki1055_use_raw_write: BOOL;
  638.   end;
  639.   {$EXTERNALSYM _WKSTA_INFO_1055}
  640.   WKSTA_INFO_1055 = _WKSTA_INFO_1055;
  641.   {$EXTERNALSYM WKSTA_INFO_1055}
  642.   TWkstaInfo1055 = WKSTA_INFO_1055;
  643.   PWkstaInfo1055 = PWKSTA_INFO_1055;
  645.   LPWKSTA_INFO_1056 = ^WKSTA_INFO_1056;
  646.   {$EXTERNALSYM LPWKSTA_INFO_1056}
  647.   PWKSTA_INFO_1056 = ^WKSTA_INFO_1056;
  648.   {$EXTERNALSYM PWKSTA_INFO_1056}
  649.   _WKSTA_INFO_1056 = record
  650.     wki1056_use_write_raw_data: BOOL;
  651.   end;
  652.   {$EXTERNALSYM _WKSTA_INFO_1056}
  653.   WKSTA_INFO_1056 = _WKSTA_INFO_1056;
  654.   {$EXTERNALSYM WKSTA_INFO_1056}
  655.   TWkstaInfo1056 = WKSTA_INFO_1056;
  656.   PWkstaInfo1056 = PWKSTA_INFO_1056;
  658.   LPWKSTA_INFO_1057 = ^WKSTA_INFO_1057;
  659.   {$EXTERNALSYM LPWKSTA_INFO_1057}
  660.   PWKSTA_INFO_1057 = ^WKSTA_INFO_1057;
  661.   {$EXTERNALSYM PWKSTA_INFO_1057}
  662.   _WKSTA_INFO_1057 = record
  663.     wki1057_use_encryption: BOOL;
  664.   end;
  665.   {$EXTERNALSYM _WKSTA_INFO_1057}
  666.   WKSTA_INFO_1057 = _WKSTA_INFO_1057;
  667.   {$EXTERNALSYM WKSTA_INFO_1057}
  668.   TWkstaInfo1057 = WKSTA_INFO_1057;
  669.   PWkstaInfo1057 = PWKSTA_INFO_1057;
  671.   LPWKSTA_INFO_1058 = ^WKSTA_INFO_1058;
  672.   {$EXTERNALSYM LPWKSTA_INFO_1058}
  673.   PWKSTA_INFO_1058 = ^WKSTA_INFO_1058;
  674.   {$EXTERNALSYM PWKSTA_INFO_1058}
  675.   _WKSTA_INFO_1058 = record
  676.     wki1058_buf_files_deny_write: BOOL;
  677.   end;
  678.   {$EXTERNALSYM _WKSTA_INFO_1058}
  679.   WKSTA_INFO_1058 = _WKSTA_INFO_1058;
  680.   {$EXTERNALSYM WKSTA_INFO_1058}
  681.   TWkstaInfo1058 = WKSTA_INFO_1058;
  682.   PWkstaInfo1058 = PWKSTA_INFO_1058;
  684.   LPWKSTA_INFO_1059 = ^WKSTA_INFO_1059;
  685.   {$EXTERNALSYM LPWKSTA_INFO_1059}
  686.   PWKSTA_INFO_1059 = ^WKSTA_INFO_1059;
  687.   {$EXTERNALSYM PWKSTA_INFO_1059}
  688.   _WKSTA_INFO_1059 = record
  689.     wki1059_buf_read_only_files: BOOL;
  690.   end;
  691.   {$EXTERNALSYM _WKSTA_INFO_1059}
  692.   WKSTA_INFO_1059 = _WKSTA_INFO_1059;
  693.   {$EXTERNALSYM WKSTA_INFO_1059}
  694.   TWkstaInfo1059 = WKSTA_INFO_1059;
  695.   PWkstaInfo1059 = PWKSTA_INFO_1059;
  697.   LPWKSTA_INFO_1060 = ^WKSTA_INFO_1060;
  698.   {$EXTERNALSYM LPWKSTA_INFO_1060}
  699.   PWKSTA_INFO_1060 = ^WKSTA_INFO_1060;
  700.   {$EXTERNALSYM PWKSTA_INFO_1060}
  701.   _WKSTA_INFO_1060 = record
  702.     wki1060_force_core_create_mode: BOOL;
  703.   end;
  704.   {$EXTERNALSYM _WKSTA_INFO_1060}
  705.   WKSTA_INFO_1060 = _WKSTA_INFO_1060;
  706.   {$EXTERNALSYM WKSTA_INFO_1060}
  707.   TWkstaInfo1060 = WKSTA_INFO_1060;
  708.   PWkstaInfo1060 = PWKSTA_INFO_1060;
  710.   LPWKSTA_INFO_1061 = ^WKSTA_INFO_1061;
  711.   {$EXTERNALSYM LPWKSTA_INFO_1061}
  712.   PWKSTA_INFO_1061 = ^WKSTA_INFO_1061;
  713.   {$EXTERNALSYM PWKSTA_INFO_1061}
  714.   _WKSTA_INFO_1061 = record
  715.     wki1061_use_512_byte_max_transfer: BOOL;
  716.   end;
  717.   {$EXTERNALSYM _WKSTA_INFO_1061}
  718.   WKSTA_INFO_1061 = _WKSTA_INFO_1061;
  719.   {$EXTERNALSYM WKSTA_INFO_1061}
  720.   TWkstaInfo1061 = WKSTA_INFO_1061;
  721.   PWkstaInfo1061 = PWKSTA_INFO_1061;
  723.   LPWKSTA_INFO_1062 = ^WKSTA_INFO_1062;
  724.   {$EXTERNALSYM LPWKSTA_INFO_1062}
  725.   PWKSTA_INFO_1062 = ^WKSTA_INFO_1062;
  726.   {$EXTERNALSYM PWKSTA_INFO_1062}
  727.   _WKSTA_INFO_1062 = record
  728.     wki1062_read_ahead_throughput: DWORD;
  729.   end;
  730.   {$EXTERNALSYM _WKSTA_INFO_1062}
  731.   WKSTA_INFO_1062 = _WKSTA_INFO_1062;
  732.   {$EXTERNALSYM WKSTA_INFO_1062}
  733.   TWkstaInfo1062 = WKSTA_INFO_1062;
  734.   PWkstaInfo1062 = PWKSTA_INFO_1062;
  736. //
  737. // NetWkstaUserGetInfo (local only) and NetWkstaUserEnum -
  738. //     no access restrictions.
  739. //
  741.   LPWKSTA_USER_INFO_0 = ^WKSTA_USER_INFO_0;
  742.   {$EXTERNALSYM LPWKSTA_USER_INFO_0}
  743.   PWKSTA_USER_INFO_0 = ^WKSTA_USER_INFO_0;
  744.   {$EXTERNALSYM PWKSTA_USER_INFO_0}
  745.   _WKSTA_USER_INFO_0 = record
  746.     wkui0_username: LMSTR;
  747.   end;
  748.   {$EXTERNALSYM _WKSTA_USER_INFO_0}
  749.   WKSTA_USER_INFO_0 = _WKSTA_USER_INFO_0;
  750.   {$EXTERNALSYM WKSTA_USER_INFO_0}
  751.   TWkstaUserInfo0 = WKSTA_USER_INFO_0;
  752.   PWkstaUserInfo0 = PWKSTA_USER_INFO_0;
  754. //
  755. // NetWkstaUserGetInfo (local only) and NetWkstaUserEnum -
  756. //     no access restrictions.
  757. //
  759.   LPWKSTA_USER_INFO_1 = ^WKSTA_USER_INFO_1;
  760.   {$EXTERNALSYM LPWKSTA_USER_INFO_1}
  761.   PWKSTA_USER_INFO_1 = ^WKSTA_USER_INFO_1;
  762.   {$EXTERNALSYM PWKSTA_USER_INFO_1}
  763.   _WKSTA_USER_INFO_1 = record
  764.     wkui1_username: LMSTR;
  765.     wkui1_logon_domain: LMSTR;
  766.     wkui1_oth_domains: LMSTR;
  767.     wkui1_logon_server: LMSTR;
  768.   end;
  769.   {$EXTERNALSYM _WKSTA_USER_INFO_1}
  770.   WKSTA_USER_INFO_1 = _WKSTA_USER_INFO_1;
  771.   {$EXTERNALSYM WKSTA_USER_INFO_1}
  772.   TWkstaUserInfo1 = WKSTA_USER_INFO_1;
  773.   PWkstaUserInfo1 = PWKSTA_USER_INFO_1;
  775. //
  776. // NetWkstaUserSetInfo - local access.
  777. //
  779.   LPWKSTA_USER_INFO_1101 = ^WKSTA_USER_INFO_1101;
  780.   {$EXTERNALSYM LPWKSTA_USER_INFO_1101}
  781.   PWKSTA_USER_INFO_1101 = ^WKSTA_USER_INFO_1101;
  782.   {$EXTERNALSYM PWKSTA_USER_INFO_1101}
  783.   _WKSTA_USER_INFO_1101 = record
  784.     wkui1101_oth_domains: LMSTR;
  785.   end;
  786.   {$EXTERNALSYM _WKSTA_USER_INFO_1101}
  787.   WKSTA_USER_INFO_1101 = _WKSTA_USER_INFO_1101;
  788.   {$EXTERNALSYM WKSTA_USER_INFO_1101}
  789.   TWkstaUserInfo1101 = WKSTA_USER_INFO_1101;
  790.   PWkstaUserInfo1101 = PWKSTA_USER_INFO_1101;
  792. //
  793. // NetWkstaTransportAdd - admin access
  794. //
  796.   LPWKSTA_TRANSPORT_INFO_0 = ^WKSTA_TRANSPORT_INFO_0;
  797.   {$EXTERNALSYM LPWKSTA_TRANSPORT_INFO_0}
  798.   PWKSTA_TRANSPORT_INFO_0 = ^WKSTA_TRANSPORT_INFO_0;
  799.   {$EXTERNALSYM PWKSTA_TRANSPORT_INFO_0}
  800.   _WKSTA_TRANSPORT_INFO_0 = record
  801.     wkti0_quality_of_service: DWORD;
  802.     wkti0_number_of_vcs: DWORD;
  803.     wkti0_transport_name: LMSTR;
  804.     wkti0_transport_address: LMSTR;
  805.     wkti0_wan_ish: BOOL;
  806.   end;
  807.   {$EXTERNALSYM _WKSTA_TRANSPORT_INFO_0}
  808.   WKSTA_TRANSPORT_INFO_0 = _WKSTA_TRANSPORT_INFO_0;
  809.   {$EXTERNALSYM WKSTA_TRANSPORT_INFO_0}
  810.   TWkstaTransportInfo0 = WKSTA_TRANSPORT_INFO_0;
  811.   PWkstaTransportInfo0 = PWKSTA_TRANSPORT_INFO_0;
  813. //
  814. // Special Values and Constants
  815. //
  817. //
  818. //  Identifiers for use as NetWkstaSetInfo parmnum parameter
  819. //
  821. //
  822. // One of these values indicates the parameter within an information
  823. // structure that is invalid when ERROR_INVALID_PARAMETER is returned by
  824. // NetWkstaSetInfo.
  825. //
  827. const
  828.   WKSTA_PLATFORM_ID_PARMNUM     = 100;
  829.   {$EXTERNALSYM WKSTA_PLATFORM_ID_PARMNUM}
  830.   WKSTA_COMPUTERNAME_PARMNUM    = 1;
  831.   {$EXTERNALSYM WKSTA_COMPUTERNAME_PARMNUM}
  832.   WKSTA_LANGROUP_PARMNUM        = 2;
  833.   {$EXTERNALSYM WKSTA_LANGROUP_PARMNUM}
  834.   WKSTA_VER_MAJOR_PARMNUM       = 4;
  835.   {$EXTERNALSYM WKSTA_VER_MAJOR_PARMNUM}
  836.   WKSTA_VER_MINOR_PARMNUM       = 5;
  837.   {$EXTERNALSYM WKSTA_VER_MINOR_PARMNUM}
  838.   WKSTA_LOGGED_ON_USERS_PARMNUM = 6;
  839.   {$EXTERNALSYM WKSTA_LOGGED_ON_USERS_PARMNUM}
  840.   WKSTA_LANROOT_PARMNUM         = 7;
  841.   {$EXTERNALSYM WKSTA_LANROOT_PARMNUM}
  842.   WKSTA_LOGON_DOMAIN_PARMNUM    = 8;
  843.   {$EXTERNALSYM WKSTA_LOGON_DOMAIN_PARMNUM}
  844.   WKSTA_LOGON_SERVER_PARMNUM    = 9;
  845.   {$EXTERNALSYM WKSTA_LOGON_SERVER_PARMNUM}
  846.   WKSTA_CHARWAIT_PARMNUM        = 10; // Supported by down-level.
  847.   {$EXTERNALSYM WKSTA_CHARWAIT_PARMNUM}
  848.   WKSTA_CHARTIME_PARMNUM        = 11; // Supported by down-level.
  849.   {$EXTERNALSYM WKSTA_CHARTIME_PARMNUM}
  850.   WKSTA_CHARCOUNT_PARMNUM       = 12; // Supported by down-level.
  851.   {$EXTERNALSYM WKSTA_CHARCOUNT_PARMNUM}
  852.   WKSTA_KEEPCONN_PARMNUM        = 13;
  853.   {$EXTERNALSYM WKSTA_KEEPCONN_PARMNUM}
  854.   WKSTA_KEEPSEARCH_PARMNUM      = 14;
  855.   {$EXTERNALSYM WKSTA_KEEPSEARCH_PARMNUM}
  856.   WKSTA_MAXCMDS_PARMNUM         = 15;
  857.   {$EXTERNALSYM WKSTA_MAXCMDS_PARMNUM}
  858.   WKSTA_NUMWORKBUF_PARMNUM      = 16;
  859.   {$EXTERNALSYM WKSTA_NUMWORKBUF_PARMNUM}
  860.   WKSTA_MAXWRKCACHE_PARMNUM     = 17;
  861.   {$EXTERNALSYM WKSTA_MAXWRKCACHE_PARMNUM}
  862.   WKSTA_SESSTIMEOUT_PARMNUM     = 18;
  863.   {$EXTERNALSYM WKSTA_SESSTIMEOUT_PARMNUM}
  864.   WKSTA_SIZERROR_PARMNUM        = 19;
  865.   {$EXTERNALSYM WKSTA_SIZERROR_PARMNUM}
  866.   WKSTA_NUMALERTS_PARMNUM       = 20;
  867.   {$EXTERNALSYM WKSTA_NUMALERTS_PARMNUM}
  868.   WKSTA_NUMSERVICES_PARMNUM     = 21;
  869.   {$EXTERNALSYM WKSTA_NUMSERVICES_PARMNUM}
  870.   WKSTA_NUMCHARBUF_PARMNUM      = 22;
  871.   {$EXTERNALSYM WKSTA_NUMCHARBUF_PARMNUM}
  872.   WKSTA_SIZCHARBUF_PARMNUM      = 23;
  873.   {$EXTERNALSYM WKSTA_SIZCHARBUF_PARMNUM}
  874.   WKSTA_ERRLOGSZ_PARMNUM        = 27; // Supported by down-level.
  875.   {$EXTERNALSYM WKSTA_ERRLOGSZ_PARMNUM}
  876.   WKSTA_PRINTBUFTIME_PARMNUM    = 28; // Supported by down-level.
  877.   {$EXTERNALSYM WKSTA_PRINTBUFTIME_PARMNUM}
  878.   WKSTA_SIZWORKBUF_PARMNUM      = 29;
  879.   {$EXTERNALSYM WKSTA_SIZWORKBUF_PARMNUM}
  880.   WKSTA_MAILSLOTS_PARMNUM       = 30;
  881.   {$EXTERNALSYM WKSTA_MAILSLOTS_PARMNUM}
  882.   WKSTA_NUMDGRAMBUF_PARMNUM     = 31;
  883.   {$EXTERNALSYM WKSTA_NUMDGRAMBUF_PARMNUM}
  884.   WKSTA_WRKHEURISTICS_PARMNUM   = 32; // Supported by down-level.
  885.   {$EXTERNALSYM WKSTA_WRKHEURISTICS_PARMNUM}
  886.   WKSTA_MAXTHREADS_PARMNUM      = 33;
  887.   {$EXTERNALSYM WKSTA_MAXTHREADS_PARMNUM}
  889.   WKSTA_LOCKQUOTA_PARMNUM               = 41;
  890.   {$EXTERNALSYM WKSTA_LOCKQUOTA_PARMNUM}
  891.   WKSTA_LOCKINCREMENT_PARMNUM           = 42;
  892.   {$EXTERNALSYM WKSTA_LOCKINCREMENT_PARMNUM}
  893.   WKSTA_LOCKMAXIMUM_PARMNUM             = 43;
  894.   {$EXTERNALSYM WKSTA_LOCKMAXIMUM_PARMNUM}
  895.   WKSTA_PIPEINCREMENT_PARMNUM           = 44;
  896.   {$EXTERNALSYM WKSTA_PIPEINCREMENT_PARMNUM}
  897.   WKSTA_PIPEMAXIMUM_PARMNUM             = 45;
  898.   {$EXTERNALSYM WKSTA_PIPEMAXIMUM_PARMNUM}
  899.   WKSTA_DORMANTFILELIMIT_PARMNUM        = 46;
  900.   {$EXTERNALSYM WKSTA_DORMANTFILELIMIT_PARMNUM}
  901.   WKSTA_CACHEFILETIMEOUT_PARMNUM        = 47;
  902.   {$EXTERNALSYM WKSTA_CACHEFILETIMEOUT_PARMNUM}
  903.   WKSTA_USEOPPORTUNISTICLOCKING_PARMNUM = 48;
  904.   {$EXTERNALSYM WKSTA_USEOPPORTUNISTICLOCKING_PARMNUM}
  905.   WKSTA_USEUNLOCKBEHIND_PARMNUM         = 49;
  906.   {$EXTERNALSYM WKSTA_USEUNLOCKBEHIND_PARMNUM}
  907.   WKSTA_USECLOSEBEHIND_PARMNUM          = 50;
  908.   {$EXTERNALSYM WKSTA_USECLOSEBEHIND_PARMNUM}
  909.   WKSTA_BUFFERNAMEDPIPES_PARMNUM        = 51;
  910.   {$EXTERNALSYM WKSTA_BUFFERNAMEDPIPES_PARMNUM}
  911.   WKSTA_USELOCKANDREADANDUNLOCK_PARMNUM = 52;
  912.   {$EXTERNALSYM WKSTA_USELOCKANDREADANDUNLOCK_PARMNUM}
  913.   WKSTA_UTILIZENTCACHING_PARMNUM        = 53;
  914.   {$EXTERNALSYM WKSTA_UTILIZENTCACHING_PARMNUM}
  915.   WKSTA_USERAWREAD_PARMNUM              = 54;
  916.   {$EXTERNALSYM WKSTA_USERAWREAD_PARMNUM}
  917.   WKSTA_USERAWWRITE_PARMNUM             = 55;
  918.   {$EXTERNALSYM WKSTA_USERAWWRITE_PARMNUM}
  919.   WKSTA_USEWRITERAWWITHDATA_PARMNUM     = 56;
  920.   {$EXTERNALSYM WKSTA_USEWRITERAWWITHDATA_PARMNUM}
  921.   WKSTA_USEENCRYPTION_PARMNUM           = 57;
  922.   {$EXTERNALSYM WKSTA_USEENCRYPTION_PARMNUM}
  923.   WKSTA_BUFFILESWITHDENYWRITE_PARMNUM   = 58;
  924.   {$EXTERNALSYM WKSTA_BUFFILESWITHDENYWRITE_PARMNUM}
  925.   WKSTA_BUFFERREADONLYFILES_PARMNUM     = 59;
  926.   {$EXTERNALSYM WKSTA_BUFFERREADONLYFILES_PARMNUM}
  927.   WKSTA_FORCECORECREATEMODE_PARMNUM     = 60;
  928.   {$EXTERNALSYM WKSTA_FORCECORECREATEMODE_PARMNUM}
  929.   WKSTA_USE512BYTESMAXTRANSFER_PARMNUM  = 61;
  930.   {$EXTERNALSYM WKSTA_USE512BYTESMAXTRANSFER_PARMNUM}
  931.   WKSTA_READAHEADTHRUPUT_PARMNUM        = 62;
  932.   {$EXTERNALSYM WKSTA_READAHEADTHRUPUT_PARMNUM}
  934. //
  935. // One of these values indicates the parameter within an information
  936. // structure that is invalid when ERROR_INVALID_PARAMETER is returned by
  937. // NetWkstaUserSetInfo.
  938. //
  940.   WKSTA_OTH_DOMAINS_PARMNUM = 101;
  941.   {$EXTERNALSYM WKSTA_OTH_DOMAINS_PARMNUM}
  943. //
  944. // One of these values indicates the parameter within an information
  945. // structure that is invalid when ERROR_INVALID_PARAMETER is returned by
  946. // NetWkstaTransportAdd.
  947. //
  949.   TRANSPORT_QUALITYOFSERVICE_PARMNUM = 201;
  950.   {$EXTERNALSYM TRANSPORT_QUALITYOFSERVICE_PARMNUM}
  951.   TRANSPORT_NAME_PARMNUM             = 202;
  952.   {$EXTERNALSYM TRANSPORT_NAME_PARMNUM}
  954. implementation
  957. {$IFDEF DYNAMIC_LINK}
  958. var
  959.   _NetWkstaGetInfo: Pointer;
  961. function NetWkstaGetInfo;
  962. begin
  963.   GetProcedureAddress(_NetWkstaGetInfo, netapi32, 'NetWkstaGetInfo');
  964.   asm
  965.     mov esp, ebp
  966.     pop ebp
  967.     jmp [_NetWkstaGetInfo]
  968.   end;
  969. end;
  970. {$ELSE}
  971. function NetWkstaGetInfo; external netapi32 name 'NetWkstaGetInfo';
  972. {$ENDIF DYNAMIC_LINK}
  974. {$IFDEF DYNAMIC_LINK}
  975. var
  976.   _NetWkstaSetInfo: Pointer;
  978. function NetWkstaSetInfo;
  979. begin
  980.   GetProcedureAddress(_NetWkstaSetInfo, netapi32, 'NetWkstaSetInfo');
  981.   asm
  982.     mov esp, ebp
  983.     pop ebp
  984.     jmp [_NetWkstaSetInfo]
  985.   end;
  986. end;
  987. {$ELSE}
  988. function NetWkstaSetInfo; external netapi32 name 'NetWkstaSetInfo';
  989. {$ENDIF DYNAMIC_LINK}
  991. {$IFDEF DYNAMIC_LINK}
  992. var
  993.   _NetWkstaUserGetInfo: Pointer;
  995. function NetWkstaUserGetInfo;
  996. begin
  997.   GetProcedureAddress(_NetWkstaUserGetInfo, netapi32, 'NetWkstaUserGetInfo');
  998.   asm
  999.     mov esp, ebp
  1000.     pop ebp
  1001.     jmp [_NetWkstaUserGetInfo]
  1002.   end;
  1003. end;
  1004. {$ELSE}
  1005. function NetWkstaUserGetInfo; external netapi32 name 'NetWkstaUserGetInfo';
  1006. {$ENDIF DYNAMIC_LINK}
  1008. {$IFDEF DYNAMIC_LINK}
  1009. var
  1010.   _NetWkstaUserSetInfo: Pointer;
  1012. function NetWkstaUserSetInfo;
  1013. begin
  1014.   GetProcedureAddress(_NetWkstaUserSetInfo, netapi32, 'NetWkstaUserSetInfo');
  1015.   asm
  1016.     mov esp, ebp
  1017.     pop ebp
  1018.     jmp [_NetWkstaUserSetInfo]
  1019.   end;
  1020. end;
  1021. {$ELSE}
  1022. function NetWkstaUserSetInfo; external netapi32 name 'NetWkstaUserSetInfo';
  1023. {$ENDIF DYNAMIC_LINK}
  1025. {$IFDEF DYNAMIC_LINK}
  1026. var
  1027.   _NetWkstaUserEnum: Pointer;
  1029. function NetWkstaUserEnum;
  1030. begin
  1031.   GetProcedureAddress(_NetWkstaUserEnum, netapi32, 'NetWkstaUserEnum');
  1032.   asm
  1033.     mov esp, ebp
  1034.     pop ebp
  1035.     jmp [_NetWkstaUserEnum]
  1036.   end;
  1037. end;
  1038. {$ELSE}
  1039. function NetWkstaUserEnum; external netapi32 name 'NetWkstaUserEnum';
  1040. {$ENDIF DYNAMIC_LINK}
  1042. {$IFDEF DYNAMIC_LINK}
  1043. var
  1044.   _NetWkstaTransportAdd: Pointer;
  1046. function NetWkstaTransportAdd;
  1047. begin
  1048.   GetProcedureAddress(_NetWkstaTransportAdd, netapi32, 'NetWkstaTransportAdd');
  1049.   asm
  1050.     mov esp, ebp
  1051.     pop ebp
  1052.     jmp [_NetWkstaTransportAdd]
  1053.   end;
  1054. end;
  1055. {$ELSE}
  1056. function NetWkstaTransportAdd; external netapi32 name 'NetWkstaTransportAdd';
  1057. {$ENDIF DYNAMIC_LINK}
  1059. {$IFDEF DYNAMIC_LINK}
  1060. var
  1061.   _NetWkstaTransportDel: Pointer;
  1063. function NetWkstaTransportDel;
  1064. begin
  1065.   GetProcedureAddress(_NetWkstaTransportDel, netapi32, 'NetWkstaTransportDel');
  1066.   asm
  1067.     mov esp, ebp
  1068.     pop ebp
  1069.     jmp [_NetWkstaTransportDel]
  1070.   end;
  1071. end;
  1072. {$ELSE}
  1073. function NetWkstaTransportDel; external netapi32 name 'NetWkstaTransportDel';
  1074. {$ENDIF DYNAMIC_LINK}
  1076. {$IFDEF DYNAMIC_LINK}
  1077. var
  1078.   _NetWkstaTransportEnum: Pointer;
  1080. function NetWkstaTransportEnum;
  1081. begin
  1082.   GetProcedureAddress(_NetWkstaTransportEnum, netapi32, 'NetWkstaTransportEnum');
  1083.   asm
  1084.     mov esp, ebp
  1085.     pop ebp
  1086.     jmp [_NetWkstaTransportEnum]
  1087.   end;
  1088. end;
  1089. {$ELSE}
  1090. function NetWkstaTransportEnum; external netapi32 name 'NetWkstaTransportEnum';
  1091. {$ENDIF DYNAMIC_LINK}
  1093. end.