jwalmwksta.pas 34 KB

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