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

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

Windows编程

开发平台：

Delphi

JwaLmShare.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Lan Manager Shares 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: lmshare.h, released November 2001. The original Pascal }
  9. { code is: LmShare.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 JwaLmShare;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "lmshare.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaLmCons, JwaWinNT, JwaWinType;
  59. //
  60. // Function Prototypes - Share
  61. //
  63. function NetShareAdd(servername: LMSTR; level: DWORD; buf: LPBYTE; parm_err: LPDWORD): NET_API_STATUS; stdcall;
  64. {$EXTERNALSYM NetShareAdd}
  66. function NetShareEnum(servername: LMSTR; level: DWORD; var bufptr: LPBYTE; prefmaxlen: DWORD; entriesread, totalentries, resume_handle: LPDWORD): NET_API_STATUS; stdcall;
  67. {$EXTERNALSYM NetShareEnum}
  69. function NetShareEnumSticky(servername: LMSTR; level: DWORD; var bufptr: LPBYTE; prefmaxlen: DWORD; entriesread, totalentries, resume_handle: LPDWORD): NET_API_STATUS; stdcall;
  70. {$EXTERNALSYM NetShareEnumSticky}
  72. function NetShareGetInfo(servername, netname: LMSTR; level: DWORD; var bufptr: LPBYTE): NET_API_STATUS; stdcall;
  73. {$EXTERNALSYM NetShareGetInfo}
  75. function NetShareSetInfo(servername, netname: LMSTR; level: DWORD; buf: LPBYTE; parm_err: LPDWORD): NET_API_STATUS; stdcall;
  76. {$EXTERNALSYM NetShareSetInfo}
  78. function NetShareDel(servername, netname: LMSTR; reserved: DWORD): NET_API_STATUS; stdcall;
  79. {$EXTERNALSYM NetShareDel}
  81. function NetShareDelSticky(servername, netname: LMSTR; reserved: DWORD): NET_API_STATUS; stdcall;
  82. {$EXTERNALSYM NetShareDelSticky}
  84. function NetShareCheck(servername, device: LMSTR; type_: LPDWORD): NET_API_STATUS; stdcall;
  85. {$EXTERNALSYM NetShareCheck}
  87. //
  88. // Data Structures - Share
  89. //
  91. type
  92.   LPSHARE_INFO_0 = ^SHARE_INFO_0;
  93.   {$EXTERNALSYM LPSHARE_INFO_0}
  94.   PSHARE_INFO_0 = ^SHARE_INFO_0;
  95.   {$EXTERNALSYM PSHARE_INFO_0}
  96.   _SHARE_INFO_0 = record
  97.     shi0_netname: LMSTR;
  98.   end;
  99.   {$EXTERNALSYM _SHARE_INFO_0}
  100.   SHARE_INFO_0 = _SHARE_INFO_0;
  101.   {$EXTERNALSYM SHARE_INFO_0}
  102.   TShareInfo0 = SHARE_INFO_0;
  103.   PShareInfo0 = PSHARE_INFO_0;
  105.   LPSHARE_INFO_1 = ^SHARE_INFO_1;
  106.   {$EXTERNALSYM LPSHARE_INFO_1}
  107.   PSHARE_INFO_1 = ^SHARE_INFO_1;
  108.   {$EXTERNALSYM PSHARE_INFO_1}
  109.   _SHARE_INFO_1 = record
  110.     shi1_netname: LMSTR;
  111.     shi1_type: DWORD;
  112.     shi1_remark: LMSTR;
  113.   end;
  114.   {$EXTERNALSYM _SHARE_INFO_1}
  115.   SHARE_INFO_1 = _SHARE_INFO_1;
  116.   {$EXTERNALSYM SHARE_INFO_1}
  117.   TShareInfo1 = SHARE_INFO_1;
  118.   PShareInfo1 = PSHARE_INFO_1;
  120.   LPSHARE_INFO_2 = ^SHARE_INFO_2;
  121.   {$EXTERNALSYM LPSHARE_INFO_2}
  122.   PSHARE_INFO_2 = ^SHARE_INFO_2;
  123.   {$EXTERNALSYM PSHARE_INFO_2}
  124.   _SHARE_INFO_2 = record
  125.     shi2_netname: LMSTR;
  126.     shi2_type: DWORD;
  127.     shi2_remark: LMSTR;
  128.     shi2_permissions: DWORD;
  129.     shi2_max_uses: DWORD;
  130.     shi2_current_uses: DWORD;
  131.     shi2_path: LMSTR;
  132.     shi2_passwd: LMSTR;
  133.   end;
  134.   {$EXTERNALSYM _SHARE_INFO_2}
  135.   SHARE_INFO_2 = _SHARE_INFO_2;
  136.   {$EXTERNALSYM SHARE_INFO_2}
  137.   TShareInfo2 = SHARE_INFO_2;
  138.   PShareInfo2 = PSHARE_INFO_2;
  140.   LPSHARE_INFO_501 = ^SHARE_INFO_501;
  141.   {$EXTERNALSYM LPSHARE_INFO_501}
  142.   PSHARE_INFO_501 = ^SHARE_INFO_501;
  143.   {$EXTERNALSYM PSHARE_INFO_501}
  144.   _SHARE_INFO_501 = record
  145.     shi501_netname: LMSTR;
  146.     shi501_type: DWORD;
  147.     shi501_remark: LMSTR;
  148.     shi501_flags: DWORD;
  149.   end;
  150.   {$EXTERNALSYM _SHARE_INFO_501}
  151.   SHARE_INFO_501 = _SHARE_INFO_501;
  152.   {$EXTERNALSYM SHARE_INFO_501}
  153.   TShareInfo501 = SHARE_INFO_501;
  154.   PShareInfo501 = PSHARE_INFO_501;
  156.   LPSHARE_INFO_502 = ^SHARE_INFO_502;
  157.   {$EXTERNALSYM LPSHARE_INFO_502}
  158.   PSHARE_INFO_502 = ^SHARE_INFO_502;
  159.   {$EXTERNALSYM PSHARE_INFO_502}
  160.   _SHARE_INFO_502 = record
  161.     shi502_netname: LMSTR;
  162.     shi502_type: DWORD;
  163.     shi502_remark: LMSTR;
  164.     shi502_permissions: DWORD;
  165.     shi502_max_uses: DWORD;
  166.     shi502_current_uses: DWORD;
  167.     shi502_path: LMSTR;
  168.     shi502_passwd: LMSTR;
  169.     shi502_reserved: DWORD;
  170.     shi502_security_descriptor: PSECURITY_DESCRIPTOR;
  171.   end;
  172.   {$EXTERNALSYM _SHARE_INFO_502}
  173.   SHARE_INFO_502 = _SHARE_INFO_502;
  174.   {$EXTERNALSYM SHARE_INFO_502}
  175.   TShareInfo502 = SHARE_INFO_502;
  176.   PShareInfo502 = PSHARE_INFO_502;
  178.   LPSHARE_INFO_1004 = ^SHARE_INFO_1004;
  179.   {$EXTERNALSYM LPSHARE_INFO_1004}
  180.   PSHARE_INFO_1004 = ^SHARE_INFO_1004;
  181.   {$EXTERNALSYM PSHARE_INFO_1004}
  182.   _SHARE_INFO_1004 = record
  183.     shi1004_remark: LMSTR;
  184.   end;
  185.   {$EXTERNALSYM _SHARE_INFO_1004}
  186.   SHARE_INFO_1004 = _SHARE_INFO_1004;
  187.   {$EXTERNALSYM SHARE_INFO_1004}
  188.   TShareInfo1004 = SHARE_INFO_1004;
  189.   PShareInfo1004 = PSHARE_INFO_1004;
  191.   LPSHARE_INFO_1005 = ^SHARE_INFO_1005;
  192.   {$EXTERNALSYM LPSHARE_INFO_1005}
  193.   PSHARE_INFO_1005 = ^SHARE_INFO_1005;
  194.   {$EXTERNALSYM PSHARE_INFO_1005}
  195.   _SHARE_INFO_1005 = record
  196.     shi1005_flags: DWORD;
  197.   end;
  198.   {$EXTERNALSYM _SHARE_INFO_1005}
  199.   SHARE_INFO_1005 = _SHARE_INFO_1005;
  200.   {$EXTERNALSYM SHARE_INFO_1005}
  201.   TShareInfo1005 = SHARE_INFO_1005;
  202.   PShareInfo1005 = PSHARE_INFO_1005;
  204.   LPSHARE_INFO_1006 = ^SHARE_INFO_1006;
  205.   {$EXTERNALSYM LPSHARE_INFO_1006}
  206.   PSHARE_INFO_1006 = ^SHARE_INFO_1006;
  207.   {$EXTERNALSYM PSHARE_INFO_1006}
  208.   _SHARE_INFO_1006 = record
  209.     shi1006_max_uses: DWORD;
  210.   end;
  211.   {$EXTERNALSYM _SHARE_INFO_1006}
  212.   SHARE_INFO_1006 = _SHARE_INFO_1006;
  213.   {$EXTERNALSYM SHARE_INFO_1006}
  214.   TShareInfo1006 = SHARE_INFO_1006;
  215.   PShareInfo1006 = PSHARE_INFO_1006;
  217.   LPSHARE_INFO_1501 = ^SHARE_INFO_1501;
  218.   {$EXTERNALSYM LPSHARE_INFO_1501}
  219.   PSHARE_INFO_1501 = ^SHARE_INFO_1501;
  220.   {$EXTERNALSYM PSHARE_INFO_1501}
  221.   _SHARE_INFO_1501 = record
  222.     shi1501_reserved: DWORD;
  223.     shi1501_security_descriptor: PSECURITY_DESCRIPTOR;
  224.   end;
  225.   {$EXTERNALSYM _SHARE_INFO_1501}
  226.   SHARE_INFO_1501 = _SHARE_INFO_1501;
  227.   {$EXTERNALSYM SHARE_INFO_1501}
  228.   TShareInfo1501 = SHARE_INFO_1501;
  229.   PShareInfo1501 = PSHARE_INFO_1501;
  231. //
  232. // Special Values and Constants - Share
  233. //
  235. //
  236. // Values for parm_err parameter.
  237. //
  239. const
  240.   SHARE_NETNAME_PARMNUM      = 1;
  241.   {$EXTERNALSYM SHARE_NETNAME_PARMNUM}
  242.   SHARE_TYPE_PARMNUM         = 3;
  243.   {$EXTERNALSYM SHARE_TYPE_PARMNUM}
  244.   SHARE_REMARK_PARMNUM       = 4;
  245.   {$EXTERNALSYM SHARE_REMARK_PARMNUM}
  246.   SHARE_PERMISSIONS_PARMNUM  = 5;
  247.   {$EXTERNALSYM SHARE_PERMISSIONS_PARMNUM}
  248.   SHARE_MAX_USES_PARMNUM     = 6;
  249.   {$EXTERNALSYM SHARE_MAX_USES_PARMNUM}
  250.   SHARE_CURRENT_USES_PARMNUM = 7;
  251.   {$EXTERNALSYM SHARE_CURRENT_USES_PARMNUM}
  252.   SHARE_PATH_PARMNUM         = 8;
  253.   {$EXTERNALSYM SHARE_PATH_PARMNUM}
  254.   SHARE_PASSWD_PARMNUM       = 9;
  255.   {$EXTERNALSYM SHARE_PASSWD_PARMNUM}
  256.   SHARE_FILE_SD_PARMNUM      = 501;
  257.   {$EXTERNALSYM SHARE_FILE_SD_PARMNUM}
  259. //
  260. // Single-field infolevels for NetShareSetInfo.
  261. //
  263.   SHARE_REMARK_INFOLEVEL   = (PARMNUM_BASE_INFOLEVEL + SHARE_REMARK_PARMNUM);
  264.   {$EXTERNALSYM SHARE_REMARK_INFOLEVEL}
  265.   SHARE_MAX_USES_INFOLEVEL = (PARMNUM_BASE_INFOLEVEL + SHARE_MAX_USES_PARMNUM);
  266.   {$EXTERNALSYM SHARE_MAX_USES_INFOLEVEL}
  267.   SHARE_FILE_SD_INFOLEVEL  = (PARMNUM_BASE_INFOLEVEL + SHARE_FILE_SD_PARMNUM);
  268.   {$EXTERNALSYM SHARE_FILE_SD_INFOLEVEL}
  270.   SHI1_NUM_ELEMENTS = 4;
  271.   {$EXTERNALSYM SHI1_NUM_ELEMENTS}
  272.   SHI2_NUM_ELEMENTS = 10;
  273.   {$EXTERNALSYM SHI2_NUM_ELEMENTS}
  275. //
  276. // Share types (shi1_type and shi2_type fields).
  277. //
  279.   STYPE_DISKTREE = 0;
  280.   {$EXTERNALSYM STYPE_DISKTREE}
  281.   STYPE_PRINTQ   = 1;
  282.   {$EXTERNALSYM STYPE_PRINTQ}
  283.   STYPE_DEVICE   = 2;
  284.   {$EXTERNALSYM STYPE_DEVICE}
  285.   STYPE_IPC      = 3;
  286.   {$EXTERNALSYM STYPE_IPC}
  288.   STYPE_TEMPORARY = $40000000;
  289.   {$EXTERNALSYM STYPE_TEMPORARY}
  290.   STYPE_SPECIAL   = DWORD($80000000);
  291.   {$EXTERNALSYM STYPE_SPECIAL}
  293.   SHI_USES_UNLIMITED = DWORD(-1);
  294.   {$EXTERNALSYM SHI_USES_UNLIMITED}
  296. //
  297. // Flags values for the 501 and 1005 levels
  298. //
  300.   SHI1005_FLAGS_DFS      = $01; // Share is in the DFS
  301.   {$EXTERNALSYM SHI1005_FLAGS_DFS}
  302.   SHI1005_FLAGS_DFS_ROOT = $02; // Share is root of DFS
  303.   {$EXTERNALSYM SHI1005_FLAGS_DFS_ROOT}
  305.   CSC_MASK               = $30; // Used to mask off the following states
  306.   {$EXTERNALSYM CSC_MASK}
  308.   CSC_CACHE_MANUAL_REINT = $00; // No automatic file by file reintegration
  309.   {$EXTERNALSYM CSC_CACHE_MANUAL_REINT}
  310.   CSC_CACHE_AUTO_REINT   = $10; // File by file reintegration is OK
  311.   {$EXTERNALSYM CSC_CACHE_AUTO_REINT}
  312.   CSC_CACHE_VDO          = $20; // no need to flow opens
  313.   {$EXTERNALSYM CSC_CACHE_VDO}
  314.   CSC_CACHE_NONE         = $30; // no CSC for this share
  315.   {$EXTERNALSYM CSC_CACHE_NONE}
  317.   SHI1005_FLAGS_RESTRICT_EXCLUSIVE_OPENS = $0100;          // Used to disallow read-deny read behavior
  318.   {$EXTERNALSYM SHI1005_FLAGS_RESTRICT_EXCLUSIVE_OPENS}
  320. //
  321. // The subset of 1005 infolevel flags that can be set via the API
  322. //
  324.   SHI1005_VALID_FLAGS_SET = (CSC_MASK or SHI1005_FLAGS_RESTRICT_EXCLUSIVE_OPENS);
  325.   {$EXTERNALSYM SHI1005_VALID_FLAGS_SET}
  327. //
  328. // SESSION API
  329. //
  331. //
  332. // Function Prototypes Session
  333. //
  335. function NetSessionEnum(servername, UncClientName, username: LMSTR; level: DWORD; var bufptr: LPBYTE; prefmaxlen: DWORD; entriesread, totalentries, resume_handle: LPDWORD): NET_API_STATUS; stdcall;
  336. {$EXTERNALSYM NetSessionEnum}
  338. function NetSessionDel(servername, UncClientName, username: LMSTR): NET_API_STATUS; stdcall;
  339. {$EXTERNALSYM NetSessionDel}
  341. function NetSessionGetInfo(servername, UncClientName, username: LMSTR; level: DWORD; var bufptr: LPBYTE): NET_API_STATUS; stdcall;
  342. {$EXTERNALSYM NetSessionGetInfo}
  344. //
  345. // Data Structures - Session
  346. //
  348. type
  349.   LPSESSION_INFO_0 = ^SESSION_INFO_0;
  350.   {$EXTERNALSYM LPSESSION_INFO_0}
  351.   PSESSION_INFO_0 = ^SESSION_INFO_0;
  352.   {$EXTERNALSYM PSESSION_INFO_0}
  353.   _SESSION_INFO_0 = record
  354.     sesi0_cname: LMSTR; // client name (no backslashes)
  355.   end;
  356.   {$EXTERNALSYM _SESSION_INFO_0}
  357.   SESSION_INFO_0 = _SESSION_INFO_0;
  358.   {$EXTERNALSYM SESSION_INFO_0}
  359.   TSessionInfo0 = SESSION_INFO_0;
  360.   PSessionInfo0 = PSESSION_INFO_0;
  362.   LPSESSION_INFO_1 = ^SESSION_INFO_1;
  363.   {$EXTERNALSYM LPSESSION_INFO_1}
  364.   PSESSION_INFO_1 = ^SESSION_INFO_1;
  365.   {$EXTERNALSYM PSESSION_INFO_1}
  366.   _SESSION_INFO_1 = record
  367.     sesi1_cname: LMSTR; // client name (no backslashes)
  368.     sesi1_username: LMSTR;
  369.     sesi1_num_opens: DWORD;
  370.     sesi1_time: DWORD;
  371.     sesi1_idle_time: DWORD;
  372.     sesi1_user_flags: DWORD;
  373.   end;
  374.   {$EXTERNALSYM _SESSION_INFO_1}
  375.   SESSION_INFO_1 = _SESSION_INFO_1;
  376.   {$EXTERNALSYM SESSION_INFO_1}
  377.   TSessionInfo1 = SESSION_INFO_1;
  378.   PSessionInfo1 = PSESSION_INFO_1;
  380.   LPSESSION_INFO_2 = ^SESSION_INFO_2;
  381.   {$EXTERNALSYM LPSESSION_INFO_2}
  382.   PSESSION_INFO_2 = ^SESSION_INFO_2;
  383.   {$EXTERNALSYM PSESSION_INFO_2}
  384.   _SESSION_INFO_2 = record
  385.     sesi2_cname: LMSTR; // client name (no backslashes)
  386.     sesi2_username: LMSTR;
  387.     sesi2_num_opens: DWORD;
  388.     sesi2_time: DWORD;
  389.     sesi2_idle_time: DWORD;
  390.     sesi2_user_flags: DWORD;
  391.     sesi2_cltype_name: LMSTR;
  392.   end;
  393.   {$EXTERNALSYM _SESSION_INFO_2}
  394.   SESSION_INFO_2 = _SESSION_INFO_2;
  395.   {$EXTERNALSYM SESSION_INFO_2}
  396.   TSessionInfo2 = SESSION_INFO_2;
  397.   PSessionInfo2 = PSESSION_INFO_2;
  399.   LPSESSION_INFO_10 = ^SESSION_INFO_10;
  400.   {$EXTERNALSYM LPSESSION_INFO_10}
  401.   PSESSION_INFO_10 = ^SESSION_INFO_10;
  402.   {$EXTERNALSYM PSESSION_INFO_10}
  403.   _SESSION_INFO_10 = record
  404.     sesi10_cname: LMSTR; // client name (no backslashes)
  405.     sesi10_username: LMSTR;
  406.     sesi10_time: DWORD;
  407.     sesi10_idle_time: DWORD;
  408.   end;
  409.   {$EXTERNALSYM _SESSION_INFO_10}
  410.   SESSION_INFO_10 = _SESSION_INFO_10;
  411.   {$EXTERNALSYM SESSION_INFO_10}
  412.   TSessionInfo10 = SESSION_INFO_10;
  413.   PSessionInfo10 = PSESSION_INFO_10;
  415.   LPSESSION_INFO_502 = ^SESSION_INFO_502;
  416.   {$EXTERNALSYM LPSESSION_INFO_502}
  417.   PSESSION_INFO_502 = ^SESSION_INFO_502;
  418.   {$EXTERNALSYM PSESSION_INFO_502}
  419.   _SESSION_INFO_502 = record
  420.     sesi502_cname: LMSTR; // client name (no backslashes)
  421.     sesi502_username: LMSTR;
  422.     sesi502_num_opens: DWORD;
  423.     sesi502_time: DWORD;
  424.     sesi502_idle_time: DWORD;
  425.     sesi502_user_flags: DWORD;
  426.     sesi502_cltype_name: LMSTR;
  427.     sesi502_transport: LMSTR;
  428.   end;
  429.   {$EXTERNALSYM _SESSION_INFO_502}
  430.   SESSION_INFO_502 = _SESSION_INFO_502;
  431.   {$EXTERNALSYM SESSION_INFO_502}
  432.   TSessionInfo502 = SESSION_INFO_502;
  433.   PSessionInfo502 = PSESSION_INFO_502;
  435. //
  436. // Special Values and Constants - Session
  437. //
  440. //
  441. // Bits defined in sesi1_user_flags.
  442. //
  444. const
  445.   SESS_GUEST        = $00000001; // session is logged on as a guest
  446.   {$EXTERNALSYM SESS_GUEST}
  447.   SESS_NOENCRYPTION = $00000002; // session is not using encryption
  448.   {$EXTERNALSYM SESS_NOENCRYPTION}
  450.   SESI1_NUM_ELEMENTS = 8;
  451.   {$EXTERNALSYM SESI1_NUM_ELEMENTS}
  452.   SESI2_NUM_ELEMENTS = 9;
  453.   {$EXTERNALSYM SESI2_NUM_ELEMENTS}
  455. //
  456. // CONNECTION API
  457. //
  459. //
  460. // Function Prototypes - CONNECTION
  461. //
  463. function NetConnectionEnum(servername, qualifier: LMSTR; level: DWORD; var bufptr: LPBYTE; prefmaxlen: DWORD; entriesread, totalentries, resume_handle: LPDWORD): NET_API_STATUS; stdcall;
  464. {$EXTERNALSYM NetConnectionEnum}
  466. //
  467. // Data Structures - CONNECTION
  468. //
  470. type
  471.   LPCONNECTION_INFO_0 = ^CONNECTION_INFO_0;
  472.   {$EXTERNALSYM LPCONNECTION_INFO_0}
  473.   PCONNECTION_INFO_0 = ^CONNECTION_INFO_0;
  474.   {$EXTERNALSYM PCONNECTION_INFO_0}
  475.   _CONNECTION_INFO_0 = record
  476.     coni0_id: DWORD;
  477.   end;
  478.   {$EXTERNALSYM _CONNECTION_INFO_0}
  479.   CONNECTION_INFO_0 = _CONNECTION_INFO_0;
  480.   {$EXTERNALSYM CONNECTION_INFO_0}
  481.   TConnectionInfo0 = CONNECTION_INFO_0;
  482.   PConnectionInfo0 = PCONNECTION_INFO_0;
  484.   LPCONNECTION_INFO_1 = ^CONNECTION_INFO_1;
  485.   {$EXTERNALSYM LPCONNECTION_INFO_1}
  486.   PCONNECTION_INFO_1 = ^CONNECTION_INFO_1;
  487.   {$EXTERNALSYM PCONNECTION_INFO_1}
  488.   _CONNECTION_INFO_1 = record
  489.     coni1_id: DWORD;
  490.     coni1_type: DWORD;
  491.     coni1_num_opens: DWORD;
  492.     coni1_num_users: DWORD;
  493.     coni1_time: DWORD;
  494.     coni1_username: LMSTR;
  495.     coni1_netname: LMSTR;
  496.   end;
  497.   {$EXTERNALSYM _CONNECTION_INFO_1}
  498.   CONNECTION_INFO_1 = _CONNECTION_INFO_1;
  499.   {$EXTERNALSYM CONNECTION_INFO_1}
  500.   TConnectionInfo1 = CONNECTION_INFO_1;
  501.   PConnectionInfo1 = PCONNECTION_INFO_1;
  503. //
  504. // FILE API
  505. //
  507. //
  508. // Function Prototypes - FILE
  509. //
  511. function NetFileClose(servername: LMSTR; fileid: DWORD): NET_API_STATUS; stdcall;
  512. {$EXTERNALSYM NetFileClose}
  514. function NetFileEnum(servername, basepath, username: LMSTR; level: DWORD; var bufptr: LPBYTE; prefmaxlen: DWORD; entriesread, totalentries, resume_handle: PDWORD_PTR): NET_API_STATUS; stdcall;
  515. {$EXTERNALSYM NetFileEnum}
  517. function NetFileGetInfo(servername: LMSTR; fileid, level: DWORD; var bufptr: LPBYTE): NET_API_STATUS; stdcall;
  518. {$EXTERNALSYM NetFileGetInfo}
  520. //
  521. // Data Structures - File
  522. //
  524. //  File APIs are available at information levels 2 & 3 only. Levels 0 &
  525. //  1 are not supported.
  526. //
  528. type
  529.   LPFILE_INFO_2 = ^FILE_INFO_2;
  530.   {$EXTERNALSYM LPFILE_INFO_2}
  531.   PFILE_INFO_2 = ^FILE_INFO_2;
  532.   {$EXTERNALSYM PFILE_INFO_2}
  533.   _FILE_INFO_2 = record
  534.     fi2_id: DWORD;
  535.   end;
  536.   {$EXTERNALSYM _FILE_INFO_2}
  537.   FILE_INFO_2 = _FILE_INFO_2;
  538.   {$EXTERNALSYM FILE_INFO_2}
  539.   TFileInfo2 = FILE_INFO_2;
  540.   PFileInfo2 = PFILE_INFO_2;
  542.   LPFILE_INFO_3 = ^FILE_INFO_3;
  543.   {$EXTERNALSYM LPFILE_INFO_3}
  544.   PFILE_INFO_3 = ^FILE_INFO_3;
  545.   {$EXTERNALSYM PFILE_INFO_3}
  546.   _FILE_INFO_3 = record
  547.     fi3_id: DWORD;
  548.     fi3_permissions: DWORD;
  549.     fi3_num_locks: DWORD;
  550.     fi3_pathname: LMSTR;
  551.     fi3_username: LMSTR;
  552.   end;
  553.   {$EXTERNALSYM _FILE_INFO_3}
  554.   FILE_INFO_3 = _FILE_INFO_3;
  555.   {$EXTERNALSYM FILE_INFO_3}
  556.   TFileInfo3 = FILE_INFO_3;
  557.   PFileInfo3 = PFILE_INFO_3;
  559. //
  560. // Special Values and Constants - File
  561. //
  563. //
  564. // bit values for permissions
  565. //
  567. const
  568.   PERM_FILE_READ   = $1; // user has read access
  569.   {$EXTERNALSYM PERM_FILE_READ}
  570.   PERM_FILE_WRITE  = $2; // user has write access
  571.   {$EXTERNALSYM PERM_FILE_WRITE}
  572.   PERM_FILE_CREATE = $4; // user has create access
  573.   {$EXTERNALSYM PERM_FILE_CREATE}
  575. implementation
  578. {$IFDEF DYNAMIC_LINK}
  579. var
  580.   _NetShareAdd: Pointer;
  582. function NetShareAdd;
  583. begin
  584.   GetProcedureAddress(_NetShareAdd, netapi32, 'NetShareAdd');
  585.   asm
  586.     mov esp, ebp
  587.     pop ebp
  588.     jmp [_NetShareAdd]
  589.   end;
  590. end;
  591. {$ELSE}
  592. function NetShareAdd; external netapi32 name 'NetShareAdd';
  593. {$ENDIF DYNAMIC_LINK}
  595. {$IFDEF DYNAMIC_LINK}
  596. var
  597.   _NetShareEnum: Pointer;
  599. function NetShareEnum;
  600. begin
  601.   GetProcedureAddress(_NetShareEnum, netapi32, 'NetShareEnum');
  602.   asm
  603.     mov esp, ebp
  604.     pop ebp
  605.     jmp [_NetShareEnum]
  606.   end;
  607. end;
  608. {$ELSE}
  609. function NetShareEnum; external netapi32 name 'NetShareEnum';
  610. {$ENDIF DYNAMIC_LINK}
  612. {$IFDEF DYNAMIC_LINK}
  613. var
  614.   _NetShareEnumSticky: Pointer;
  616. function NetShareEnumSticky;
  617. begin
  618.   GetProcedureAddress(_NetShareEnumSticky, netapi32, 'NetShareEnumSticky');
  619.   asm
  620.     mov esp, ebp
  621.     pop ebp
  622.     jmp [_NetShareEnumSticky]
  623.   end;
  624. end;
  625. {$ELSE}
  626. function NetShareEnumSticky; external netapi32 name 'NetShareEnumSticky';
  627. {$ENDIF DYNAMIC_LINK}
  629. {$IFDEF DYNAMIC_LINK}
  630. var
  631.   _NetShareGetInfo: Pointer;
  633. function NetShareGetInfo;
  634. begin
  635.   GetProcedureAddress(_NetShareGetInfo, netapi32, 'NetShareGetInfo');
  636.   asm
  637.     mov esp, ebp
  638.     pop ebp
  639.     jmp [_NetShareGetInfo]
  640.   end;
  641. end;
  642. {$ELSE}
  643. function NetShareGetInfo; external netapi32 name 'NetShareGetInfo';
  644. {$ENDIF DYNAMIC_LINK}
  646. {$IFDEF DYNAMIC_LINK}
  647. var
  648.   _NetShareSetInfo: Pointer;
  650. function NetShareSetInfo;
  651. begin
  652.   GetProcedureAddress(_NetShareSetInfo, netapi32, 'NetShareSetInfo');
  653.   asm
  654.     mov esp, ebp
  655.     pop ebp
  656.     jmp [_NetShareSetInfo]
  657.   end;
  658. end;
  659. {$ELSE}
  660. function NetShareSetInfo; external netapi32 name 'NetShareSetInfo';
  661. {$ENDIF DYNAMIC_LINK}
  663. {$IFDEF DYNAMIC_LINK}
  664. var
  665.   _NetShareDel: Pointer;
  667. function NetShareDel;
  668. begin
  669.   GetProcedureAddress(_NetShareDel, netapi32, 'NetShareDel');
  670.   asm
  671.     mov esp, ebp
  672.     pop ebp
  673.     jmp [_NetShareDel]
  674.   end;
  675. end;
  676. {$ELSE}
  677. function NetShareDel; external netapi32 name 'NetShareDel';
  678. {$ENDIF DYNAMIC_LINK}
  680. {$IFDEF DYNAMIC_LINK}
  681. var
  682.   _NetShareDelSticky: Pointer;
  684. function NetShareDelSticky;
  685. begin
  686.   GetProcedureAddress(_NetShareDelSticky, netapi32, 'NetShareDelSticky');
  687.   asm
  688.     mov esp, ebp
  689.     pop ebp
  690.     jmp [_NetShareDelSticky]
  691.   end;
  692. end;
  693. {$ELSE}
  694. function NetShareDelSticky; external netapi32 name 'NetShareDelSticky';
  695. {$ENDIF DYNAMIC_LINK}
  697. {$IFDEF DYNAMIC_LINK}
  698. var
  699.   _NetShareCheck: Pointer;
  701. function NetShareCheck;
  702. begin
  703.   GetProcedureAddress(_NetShareCheck, netapi32, 'NetShareCheck');
  704.   asm
  705.     mov esp, ebp
  706.     pop ebp
  707.     jmp [_NetShareCheck]
  708.   end;
  709. end;
  710. {$ELSE}
  711. function NetShareCheck; external netapi32 name 'NetShareCheck';
  712. {$ENDIF DYNAMIC_LINK}
  715. {$IFDEF DYNAMIC_LINK}
  716. var
  717.   _NetSessionEnum: Pointer;
  719. function NetSessionEnum;
  720. begin
  721.   GetProcedureAddress(_NetSessionEnum, netapi32, 'NetSessionEnum');
  722.   asm
  723.     mov esp, ebp
  724.     pop ebp
  725.     jmp [_NetSessionEnum]
  726.   end;
  727. end;
  728. {$ELSE}
  729. function NetSessionEnum; external netapi32 name 'NetSessionEnum';
  730. {$ENDIF DYNAMIC_LINK}
  732. {$IFDEF DYNAMIC_LINK}
  733. var
  734.   _NetSessionDel: Pointer;
  736. function NetSessionDel;
  737. begin
  738.   GetProcedureAddress(_NetSessionDel, netapi32, 'NetSessionDel');
  739.   asm
  740.     mov esp, ebp
  741.     pop ebp
  742.     jmp [_NetSessionDel]
  743.   end;
  744. end;
  745. {$ELSE}
  746. function NetSessionDel; external netapi32 name 'NetSessionDel';
  747. {$ENDIF DYNAMIC_LINK}
  749. {$IFDEF DYNAMIC_LINK}
  750. var
  751.   _NetSessionGetInfo: Pointer;
  753. function NetSessionGetInfo;
  754. begin
  755.   GetProcedureAddress(_NetSessionGetInfo, netapi32, 'NetSessionGetInfo');
  756.   asm
  757.     mov esp, ebp
  758.     pop ebp
  759.     jmp [_NetSessionGetInfo]
  760.   end;
  761. end;
  762. {$ELSE}
  763. function NetSessionGetInfo; external netapi32 name 'NetSessionGetInfo';
  764. {$ENDIF DYNAMIC_LINK}
  767. {$IFDEF DYNAMIC_LINK}
  768. var
  769.   _NetConnectionEnum: Pointer;
  771. function NetConnectionEnum;
  772. begin
  773.   GetProcedureAddress(_NetConnectionEnum, netapi32, 'NetConnectionEnum');
  774.   asm
  775.     mov esp, ebp
  776.     pop ebp
  777.     jmp [_NetConnectionEnum]
  778.   end;
  779. end;
  780. {$ELSE}
  781. function NetConnectionEnum; external netapi32 name 'NetConnectionEnum';
  782. {$ENDIF DYNAMIC_LINK}
  785. {$IFDEF DYNAMIC_LINK}
  786. var
  787.   _NetFileClose: Pointer;
  789. function NetFileClose;
  790. begin
  791.   GetProcedureAddress(_NetFileClose, netapi32, 'NetFileClose');
  792.   asm
  793.     mov esp, ebp
  794.     pop ebp
  795.     jmp [_NetFileClose]
  796.   end;
  797. end;
  798. {$ELSE}
  799. function NetFileClose; external netapi32 name 'NetFileClose';
  800. {$ENDIF DYNAMIC_LINK}
  802. {$IFDEF DYNAMIC_LINK}
  803. var
  804.   _NetFileEnum: Pointer;
  806. function NetFileEnum;
  807. begin
  808.   GetProcedureAddress(_NetFileEnum, netapi32, 'NetFileEnum');
  809.   asm
  810.     mov esp, ebp
  811.     pop ebp
  812.     jmp [_NetFileEnum]
  813.   end;
  814. end;
  815. {$ELSE}
  816. function NetFileEnum; external netapi32 name 'NetFileEnum';
  817. {$ENDIF DYNAMIC_LINK}
  819. {$IFDEF DYNAMIC_LINK}
  820. var
  821.   _NetFileGetInfo: Pointer;
  823. function NetFileGetInfo;
  824. begin
  825.   GetProcedureAddress(_NetFileGetInfo, netapi32, 'NetFileGetInfo');
  826.   asm
  827.     mov esp, ebp
  828.     pop ebp
  829.     jmp [_NetFileGetInfo]
  830.   end;
  831. end;
  832. {$ELSE}
  833. function NetFileGetInfo; external netapi32 name 'NetFileGetInfo';
  834. {$ENDIF DYNAMIC_LINK}
  836. end.