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

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

Windows编程

开发平台：

Delphi

JwaWinNetWk.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Windows Networking 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: winnetwk.h, released June 2000. The original Pascal    }
  9. { code is: WinNetWk.pas, released December 2000. 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 JwaWinNetWk;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "WinNetWk.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaWinError, JwaWinType;
  59. //
  60. // Network types
  61. //
  63. const
  64.   WNNC_NET_MSNET       = $00010000;
  65.   {$EXTERNALSYM WNNC_NET_MSNET}
  66.   WNNC_NET_LANMAN      = $00020000;
  67.   {$EXTERNALSYM WNNC_NET_LANMAN}
  68.   WNNC_NET_NETWARE     = $00030000;
  69.   {$EXTERNALSYM WNNC_NET_NETWARE}
  70.   WNNC_NET_VINES       = $00040000;
  71.   {$EXTERNALSYM WNNC_NET_VINES}
  72.   WNNC_NET_10NET       = $00050000;
  73.   {$EXTERNALSYM WNNC_NET_10NET}
  74.   WNNC_NET_LOCUS       = $00060000;
  75.   {$EXTERNALSYM WNNC_NET_LOCUS}
  76.   WNNC_NET_SUN_PC_NFS  = $00070000;
  77.   {$EXTERNALSYM WNNC_NET_SUN_PC_NFS}
  78.   WNNC_NET_LANSTEP     = $00080000;
  79.   {$EXTERNALSYM WNNC_NET_LANSTEP}
  80.   WNNC_NET_9TILES      = $00090000;
  81.   {$EXTERNALSYM WNNC_NET_9TILES}
  82.   WNNC_NET_LANTASTIC   = $000A0000;
  83.   {$EXTERNALSYM WNNC_NET_LANTASTIC}
  84.   WNNC_NET_AS400       = $000B0000;
  85.   {$EXTERNALSYM WNNC_NET_AS400}
  86.   WNNC_NET_FTP_NFS     = $000C0000;
  87.   {$EXTERNALSYM WNNC_NET_FTP_NFS}
  88.   WNNC_NET_PATHWORKS   = $000D0000;
  89.   {$EXTERNALSYM WNNC_NET_PATHWORKS}
  90.   WNNC_NET_LIFENET     = $000E0000;
  91.   {$EXTERNALSYM WNNC_NET_LIFENET}
  92.   WNNC_NET_POWERLAN    = $000F0000;
  93.   {$EXTERNALSYM WNNC_NET_POWERLAN}
  94.   WNNC_NET_BWNFS       = $00100000;
  95.   {$EXTERNALSYM WNNC_NET_BWNFS}
  96.   WNNC_NET_COGENT      = $00110000;
  97.   {$EXTERNALSYM WNNC_NET_COGENT}
  98.   WNNC_NET_FARALLON    = $00120000;
  99.   {$EXTERNALSYM WNNC_NET_FARALLON}
  100.   WNNC_NET_APPLETALK   = $00130000;
  101.   {$EXTERNALSYM WNNC_NET_APPLETALK}
  102.   WNNC_NET_INTERGRAPH  = $00140000;
  103.   {$EXTERNALSYM WNNC_NET_INTERGRAPH}
  104.   WNNC_NET_SYMFONET    = $00150000;
  105.   {$EXTERNALSYM WNNC_NET_SYMFONET}
  106.   WNNC_NET_CLEARCASE   = $00160000;
  107.   {$EXTERNALSYM WNNC_NET_CLEARCASE}
  108.   WNNC_NET_FRONTIER    = $00170000;
  109.   {$EXTERNALSYM WNNC_NET_FRONTIER}
  110.   WNNC_NET_BMC         = $00180000;
  111.   {$EXTERNALSYM WNNC_NET_BMC}
  112.   WNNC_NET_DCE         = $00190000;
  113.   {$EXTERNALSYM WNNC_NET_DCE}
  114.   WNNC_NET_AVID        = $001A0000;
  115.   {$EXTERNALSYM WNNC_NET_AVID}
  116.   WNNC_NET_DOCUSPACE   = $001B0000;
  117.   {$EXTERNALSYM WNNC_NET_DOCUSPACE}
  118.   WNNC_NET_MANGOSOFT   = $001C0000;
  119.   {$EXTERNALSYM WNNC_NET_MANGOSOFT}
  120.   WNNC_NET_SERNET      = $001D0000;
  121.   {$EXTERNALSYM WNNC_NET_SERNET}
  122.   WNNC_NET_RIVERFRONT1 = $001E0000;
  123.   {$EXTERNALSYM WNNC_NET_RIVERFRONT1}
  124.   WNNC_NET_RIVERFRONT2 = $001F0000;
  125.   {$EXTERNALSYM WNNC_NET_RIVERFRONT2}
  126.   WNNC_NET_DECORB      = $00200000;
  127.   {$EXTERNALSYM WNNC_NET_DECORB}
  128.   WNNC_NET_PROTSTOR    = $00210000;
  129.   {$EXTERNALSYM WNNC_NET_PROTSTOR}
  130.   WNNC_NET_FJ_REDIR    = $00220000;
  131.   {$EXTERNALSYM WNNC_NET_FJ_REDIR}
  132.   WNNC_NET_DISTINCT    = $00230000;
  133.   {$EXTERNALSYM WNNC_NET_DISTINCT}
  134.   WNNC_NET_TWINS       = $00240000;
  135.   {$EXTERNALSYM WNNC_NET_TWINS}
  136.   WNNC_NET_RDR2SAMPLE  = $00250000;
  137.   {$EXTERNALSYM WNNC_NET_RDR2SAMPLE}
  138.   WNNC_NET_CSC         = $00260000;
  139.   {$EXTERNALSYM WNNC_NET_CSC}
  140.   WNNC_NET_3IN1        = $00270000;
  141.   {$EXTERNALSYM WNNC_NET_3IN1}
  142.   WNNC_NET_EXTENDNET   = $00290000;
  143.   {$EXTERNALSYM WNNC_NET_EXTENDNET}
  144.   WNNC_NET_STAC        = $002A0000;
  145.   {$EXTERNALSYM WNNC_NET_STAC}
  146.   WNNC_NET_FOXBAT      = $002B0000;
  147.   {$EXTERNALSYM WNNC_NET_FOXBAT}
  148.   WNNC_NET_YAHOO       = $002C0000;
  149.   {$EXTERNALSYM WNNC_NET_YAHOO}
  150.   WNNC_NET_EXIFS       = $002D0000;
  151.   {$EXTERNALSYM WNNC_NET_EXIFS}
  152.   WNNC_NET_DAV         = $002E0000;
  153.   {$EXTERNALSYM WNNC_NET_DAV}
  154.   WNNC_NET_KNOWARE     = $002F0000;
  155.   {$EXTERNALSYM WNNC_NET_KNOWARE}
  156.   WNNC_NET_OBJECT_DIRE = $00300000;
  157.   {$EXTERNALSYM WNNC_NET_OBJECT_DIRE}
  158.   WNNC_NET_MASFAX      = $00310000;
  159.   {$EXTERNALSYM WNNC_NET_MASFAX}
  160.   WNNC_NET_HOB_NFS     = $00320000;
  161.   {$EXTERNALSYM WNNC_NET_HOB_NFS}
  162.   WNNC_NET_SHIVA       = $00330000;
  163.   {$EXTERNALSYM WNNC_NET_SHIVA}
  164.   WNNC_NET_IBMAL       = $00340000;
  165.   {$EXTERNALSYM WNNC_NET_IBMAL}
  166.   WNNC_NET_LOCK        = $00350000;
  167.   {$EXTERNALSYM WNNC_NET_LOCK}
  168.   WNNC_NET_TERMSRV     = $00360000;
  169.   {$EXTERNALSYM WNNC_NET_TERMSRV}
  170.   WNNC_NET_SRT         = $00370000;
  171.   {$EXTERNALSYM WNNC_NET_SRT}
  173.   WNNC_CRED_MANAGER = DWORD($FFFF0000);
  174.   {$EXTERNALSYM WNNC_CRED_MANAGER}
  176. //
  177. //  Network Resources.
  178. //
  180.   RESOURCE_CONNECTED  = $00000001;
  181.   {$EXTERNALSYM RESOURCE_CONNECTED}
  182.   RESOURCE_GLOBALNET  = $00000002;
  183.   {$EXTERNALSYM RESOURCE_GLOBALNET}
  184.   RESOURCE_REMEMBERED = $00000003;
  185.   {$EXTERNALSYM RESOURCE_REMEMBERED}
  186.   RESOURCE_RECENT     = $00000004;
  187.   {$EXTERNALSYM RESOURCE_RECENT}
  188.   RESOURCE_CONTEXT    = $00000005;
  189.   {$EXTERNALSYM RESOURCE_CONTEXT}
  191.   RESOURCETYPE_ANY      = $00000000;
  192.   {$EXTERNALSYM RESOURCETYPE_ANY}
  193.   RESOURCETYPE_DISK     = $00000001;
  194.   {$EXTERNALSYM RESOURCETYPE_DISK}
  195.   RESOURCETYPE_PRINT    = $00000002;
  196.   {$EXTERNALSYM RESOURCETYPE_PRINT}
  197.   RESOURCETYPE_RESERVED = $00000008;
  198.   {$EXTERNALSYM RESOURCETYPE_RESERVED}
  199.   RESOURCETYPE_UNKNOWN  = DWORD($FFFFFFFF);
  200.   {$EXTERNALSYM RESOURCETYPE_UNKNOWN}
  202.   RESOURCEUSAGE_CONNECTABLE   = $00000001;
  203.   {$EXTERNALSYM RESOURCEUSAGE_CONNECTABLE}
  204.   RESOURCEUSAGE_CONTAINER     = $00000002;
  205.   {$EXTERNALSYM RESOURCEUSAGE_CONTAINER}
  206.   RESOURCEUSAGE_NOLOCALDEVICE = $00000004;
  207.   {$EXTERNALSYM RESOURCEUSAGE_NOLOCALDEVICE}
  208.   RESOURCEUSAGE_SIBLING       = $00000008;
  209.   {$EXTERNALSYM RESOURCEUSAGE_SIBLING}
  210.   RESOURCEUSAGE_ATTACHED      = $00000010;
  211.   {$EXTERNALSYM RESOURCEUSAGE_ATTACHED}
  212.   RESOURCEUSAGE_ALL           = (RESOURCEUSAGE_CONNECTABLE or
  213.     RESOURCEUSAGE_CONTAINER or RESOURCEUSAGE_ATTACHED);
  214.   {$EXTERNALSYM RESOURCEUSAGE_ALL}
  215.   RESOURCEUSAGE_RESERVED      = DWORD($80000000);
  216.   {$EXTERNALSYM RESOURCEUSAGE_RESERVED}
  218.   RESOURCEDISPLAYTYPE_GENERIC      = $00000000;
  219.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_GENERIC}
  220.   RESOURCEDISPLAYTYPE_DOMAIN       = $00000001;
  221.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_DOMAIN}
  222.   RESOURCEDISPLAYTYPE_SERVER       = $00000002;
  223.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_SERVER}
  224.   RESOURCEDISPLAYTYPE_SHARE        = $00000003;
  225.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_SHARE}
  226.   RESOURCEDISPLAYTYPE_FILE         = $00000004;
  227.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_FILE}
  228.   RESOURCEDISPLAYTYPE_GROUP        = $00000005;
  229.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_GROUP}
  230.   RESOURCEDISPLAYTYPE_NETWORK      = $00000006;
  231.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_NETWORK}
  232.   RESOURCEDISPLAYTYPE_ROOT         = $00000007;
  233.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_ROOT}
  234.   RESOURCEDISPLAYTYPE_SHAREADMIN   = $00000008;
  235.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_SHAREADMIN}
  236.   RESOURCEDISPLAYTYPE_DIRECTORY    = $00000009;
  237.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_DIRECTORY}
  238.   RESOURCEDISPLAYTYPE_TREE         = $0000000A;
  239.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_TREE}
  240.   RESOURCEDISPLAYTYPE_NDSCONTAINER = $0000000B;
  241.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_NDSCONTAINER}
  243. type
  244.   LPNETRESOURCEA = ^NETRESOURCEA;
  245.   {$EXTERNALSYM LPNETRESOURCEA}
  246.   _NETRESOURCEA = record
  247.     dwScope: DWORD;
  248.     dwType: DWORD;
  249.     dwDisplayType: DWORD;
  250.     dwUsage: DWORD;
  251.     lpLocalName: LPSTR;
  252.     lpRemoteName: LPSTR;
  253.     lpComment: LPSTR;
  254.     lpProvider: LPSTR;
  255.   end;
  256.   {$EXTERNALSYM _NETRESOURCEA}
  257.   NETRESOURCEA = _NETRESOURCEA;
  258.   {$EXTERNALSYM NETRESOURCEA}
  259.   TNetResourceA = NETRESOURCEA;
  260.   PNetResourceA = LPNETRESOURCEA;
  262.   LPNETRESOURCEW = ^NETRESOURCEW;
  263.   {$EXTERNALSYM LPNETRESOURCEW}
  264.   _NETRESOURCEW = record
  265.     dwScope: DWORD;
  266.     dwType: DWORD;
  267.     dwDisplayType: DWORD;
  268.     dwUsage: DWORD;
  269.     lpLocalName: LPWSTR;
  270.     lpRemoteName: LPWSTR;
  271.     lpComment: LPWSTR;
  272.     lpProvider: LPWSTR;
  273.   end;
  274.   {$EXTERNALSYM _NETRESOURCEW}
  275.   NETRESOURCEW = _NETRESOURCEW;
  276.   {$EXTERNALSYM NETRESOURCEW}
  277.   TNetResourceW = NETRESOURCEW;
  278.   PNetResourceW = LPNETRESOURCEW;
  280. {$IFDEF UNICODE}
  281.   NETRESOURCE = NETRESOURCEW;
  282.   {$EXTERNALSYM NETRESOURCE}
  283.   LPNETRESOURCE = LPNETRESOURCEW;
  284.   {$EXTERNALSYM LPNETRESOURCE}
  285.   TNetResource = TNetResourceW;
  286.   PNetResource = PNetResourceW;
  287. {$ELSE}
  288.   NETRESOURCE = NETRESOURCEA;
  289.   {$EXTERNALSYM NETRESOURCE}
  290.   LPNETRESOURCE = LPNETRESOURCEA;
  291.   {$EXTERNALSYM LPNETRESOURCE}
  292.   TNetResource = TNetResourceA;
  293.   PNetResource = PNetResourceA;
  294. {$ENDIF}
  296. //
  297. //  Network Connections.
  298. //
  300. const
  301.   NETPROPERTY_PERSISTENT = 1;
  302.   {$EXTERNALSYM NETPROPERTY_PERSISTENT}
  304.   CONNECT_UPDATE_PROFILE = $00000001;
  305.   {$EXTERNALSYM CONNECT_UPDATE_PROFILE}
  306.   CONNECT_UPDATE_RECENT  = $00000002;
  307.   {$EXTERNALSYM CONNECT_UPDATE_RECENT}
  308.   CONNECT_TEMPORARY      = $00000004;
  309.   {$EXTERNALSYM CONNECT_TEMPORARY}
  310.   CONNECT_INTERACTIVE    = $00000008;
  311.   {$EXTERNALSYM CONNECT_INTERACTIVE}
  312.   CONNECT_PROMPT         = $00000010;
  313.   {$EXTERNALSYM CONNECT_PROMPT}
  314.   CONNECT_NEED_DRIVE     = $00000020;
  315.   {$EXTERNALSYM CONNECT_NEED_DRIVE}
  316.   CONNECT_REFCOUNT       = $00000040;
  317.   {$EXTERNALSYM CONNECT_REFCOUNT}
  318.   CONNECT_REDIRECT       = $00000080;
  319.   {$EXTERNALSYM CONNECT_REDIRECT}
  320.   CONNECT_LOCALDRIVE     = $00000100;
  321.   {$EXTERNALSYM CONNECT_LOCALDRIVE}
  322.   CONNECT_CURRENT_MEDIA  = $00000200;
  323.   {$EXTERNALSYM CONNECT_CURRENT_MEDIA}
  324.   CONNECT_DEFERRED       = $00000400;
  325.   {$EXTERNALSYM CONNECT_DEFERRED}
  326.   CONNECT_RESERVED       = DWORD($FF000000);
  327.   {$EXTERNALSYM CONNECT_RESERVED}
  328.   CONNECT_COMMANDLINE    = $00000800;
  329.   {$EXTERNALSYM CONNECT_COMMANDLINE}
  330.   CONNECT_CMD_SAVECRED   = $00001000;
  331.   {$EXTERNALSYM CONNECT_CMD_SAVECRED}
  333. function WNetAddConnectionA(lpRemoteName, lpPassword, lpLocalName: LPCSTR): DWORD; stdcall;
  334. {$EXTERNALSYM WNetAddConnectionA}
  335. function WNetAddConnectionW(lpRemoteName, lpPassword, lpLocalName: LPCWSTR): DWORD; stdcall;
  336. {$EXTERNALSYM WNetAddConnectionW}
  338. {$IFDEF UNICODE}
  339. function WNetAddConnection(lpRemoteName, lpPassword, lpLocalName: LPCWSTR): DWORD; stdcall;
  340. {$EXTERNALSYM WNetAddConnection}
  341. {$ELSE}
  342. function WNetAddConnection(lpRemoteName, lpPassword, lpLocalName: LPCSTR): DWORD; stdcall;
  343. {$EXTERNALSYM WNetAddConnection}
  344. {$ENDIF}
  346. function WNetAddConnection2A(const lpNetResource: NETRESOURCEA; lpPassword: LPCSTR;
  347.   lpUserName: LPCSTR; dwFlags: DWORD): DWORD; stdcall;
  348. {$EXTERNALSYM WNetAddConnection2A}
  349. function WNetAddConnection2W(const lpNetResource: NETRESOURCEW; lpPassword: LPCWSTR;
  350.   lpUserName: LPCWSTR; dwFlags: DWORD): DWORD; stdcall;
  351. {$EXTERNALSYM WNetAddConnection2W}
  353. {$IFDEF UNICODE}
  354. function WNetAddConnection2(const lpNetResource: NETRESOURCEW; lpPassword: LPCWSTR;
  355.   lpUserName: LPCWSTR; dwFlags: DWORD): DWORD; stdcall;
  356. {$EXTERNALSYM WNetAddConnection2}
  357. {$ELSE}
  358. function WNetAddConnection2(const lpNetResource: NETRESOURCEA; lpPassword: LPCSTR;
  359.   lpUserName: LPCSTR; dwFlags: DWORD): DWORD; stdcall;
  360. {$EXTERNALSYM WNetAddConnection2}
  361. {$ENDIF}
  363. function WNetAddConnection3A(hwndOwner: HWND; const lpNetResource: NETRESOURCEA;
  364.   lpPassword: LPCSTR; lpUserName: LPCSTR; dwFlags: DWORD): DWORD; stdcall;
  365. {$EXTERNALSYM WNetAddConnection3A}
  366. function WNetAddConnection3W(hwndOwner: HWND; const lpNetResource: NETRESOURCEW;
  367.   lpPassword: LPCWSTR; lpUserName: LPCWSTR; dwFlags: DWORD): DWORD; stdcall;
  368. {$EXTERNALSYM WNetAddConnection3W}
  370. {$IFDEF UNICODE}
  371. function WNetAddConnection3(hwndOwner: HWND; const lpNetResource: LPNETRESOURCEW;
  372.   lpPassword: LPCWSTR; lpUserName: LPCWSTR; dwFlags: DWORD): DWORD; stdcall;
  373. {$EXTERNALSYM WNetAddConnection3}
  374. {$ELSE}
  375. function WNetAddConnection3(hwndOwner: HWND; const lpNetResource: NETRESOURCEA;
  376.   lpPassword: LPCSTR; lpUserName: LPCSTR; dwFlags: DWORD): DWORD; stdcall;
  377. {$EXTERNALSYM WNetAddConnection3}
  378. {$ENDIF}
  380. function WNetCancelConnectionA(lpName: LPCSTR; fForce: BOOL): DWORD; stdcall;
  381. {$EXTERNALSYM WNetCancelConnectionA}
  382. function WNetCancelConnectionW(lpName: LPCWSTR; fForce: BOOL): DWORD; stdcall;
  383. {$EXTERNALSYM WNetCancelConnectionW}
  385. {$IFDEF UNICODE}
  386. function WNetCancelConnection(lpName: LPCWSTR; fForce: BOOL): DWORD; stdcall;
  387. {$EXTERNALSYM WNetCancelConnection}
  388. {$ELSE}
  389. function WNetCancelConnection(lpName: LPCSTR; fForce: BOOL): DWORD; stdcall;
  390. {$EXTERNALSYM WNetCancelConnection}
  391. {$ENDIF}
  393. function WNetCancelConnection2A(lpName: LPCSTR; dwFlags: DWORD; fForce: BOOL): DWORD; stdcall;
  394. {$EXTERNALSYM WNetCancelConnection2A}
  395. function WNetCancelConnection2W(lpName: LPCWSTR; dwFlags: DWORD; fForce: BOOL): DWORD; stdcall;
  396. {$EXTERNALSYM WNetCancelConnection2W}
  398. {$IFDEF UNICODE}
  399. function WNetCancelConnection2(lpName: LPCWSTR; dwFlags: DWORD; fForce: BOOL): DWORD; stdcall;
  400. {$EXTERNALSYM WNetCancelConnection2}
  401. {$ELSE}
  402. function WNetCancelConnection2(lpName: LPCSTR; dwFlags: DWORD; fForce: BOOL): DWORD; stdcall;
  403. {$EXTERNALSYM WNetCancelConnection2}
  404. {$ENDIF}
  406. function WNetGetConnectionA(lpLocalName, lpRemoteName: LPSTR; var lpnLength: DWORD): DWORD; stdcall;
  407. {$EXTERNALSYM WNetGetConnectionA}
  408. function WNetGetConnectionW(lpLocalName, lpRemoteName: LPWSTR; var lpnLength: DWORD): DWORD; stdcall;
  409. {$EXTERNALSYM WNetGetConnectionW}
  411. {$IFDEF UNICODE}
  412. function WNetGetConnection(lpLocalName, lpRemoteName: LPWSTR; var lpnLength: DWORD): DWORD; stdcall;
  413. {$EXTERNALSYM WNetGetConnection}
  414. {$ELSE}
  415. function WNetGetConnection(lpLocalName, lpRemoteName: LPSTR; var lpnLength: DWORD): DWORD; stdcall;
  416. {$EXTERNALSYM WNetGetConnection}
  417. {$ENDIF}
  419. function WNetUseConnectionA(hwndOwner: HWND; const lpNetResource: NETRESOURCEA;
  420.   lpPassword, lpUserID: LPCSTR; dwFlags: DWORD; lpAccessName: LPSTR;
  421.   var lpBufferSize, lpResult: DWORD): DWORD; stdcall;
  422. {$EXTERNALSYM WNetUseConnectionA}
  423. function WNetUseConnectionW(hwndOwner: HWND; const lpNetResource: NETRESOURCEW;
  424.   lpPassword, lpUserID: LPCWSTR; dwFlags: DWORD; lpAccessName: LPWSTR;
  425.   var lpBufferSize, lpResult: DWORD): DWORD; stdcall;
  426. {$EXTERNALSYM WNetUseConnectionW}
  428. {$IFDEF UNICODE}
  429. function WNetUseConnection(hwndOwner: HWND; const lpNetResource: NETRESOURCEW;
  430.   lpPassword, lpUserID: LPCWSTR; dwFlags: DWORD; lpAccessName: LPWSTR;
  431.   var lpBufferSize, lpResult: DWORD): DWORD; stdcall;
  432. {$EXTERNALSYM WNetUseConnection}
  433. {$ELSE}
  434. function WNetUseConnection(hwndOwner: HWND; const lpNetResource: NETRESOURCEA;
  435.   lpPassword, lpUserID: LPCSTR; dwFlags: DWORD; lpAccessName: LPSTR;
  436.   var lpBufferSize, lpResult: DWORD): DWORD; stdcall;
  437. {$EXTERNALSYM WNetUseConnection}
  438. {$ENDIF}
  440. //
  441. //  Network Connection Dialogs.
  442. //
  444. function WNetConnectionDialog(hwnd: HWND; dwType: DWORD): DWORD; stdcall;
  445. {$EXTERNALSYM WNetConnectionDialog}
  447. function WNetDisconnectDialog(hwnd: HWND; dwType: DWORD): DWORD; stdcall;
  448. {$EXTERNALSYM WNetDisconnectDialog}
  450. type
  451.   LPCONNECTDLGSTRUCTA = ^CONNECTDLGSTRUCTA;
  452.   {$EXTERNALSYM LPCONNECTDLGSTRUCTA}
  453.   _CONNECTDLGSTRUCTA = record
  454.     cbStructure: DWORD; // size of this structure in bytes
  455.     hwndOwner: HWND; // owner window for the dialog
  456.     lpConnRes: LPNETRESOURCEA; // Requested Resource info
  457.     dwFlags: DWORD; // flags (see below)
  458.     dwDevNum: DWORD; // number of devices connected to
  459.   end;
  460.   {$EXTERNALSYM _CONNECTDLGSTRUCTA}
  461.   CONNECTDLGSTRUCTA = _CONNECTDLGSTRUCTA;
  462.   {$EXTERNALSYM CONNECTDLGSTRUCTA}
  463.   TConnectDlgStructA = CONNECTDLGSTRUCTA;
  464.   PConnectDlgStructA = LPCONNECTDLGSTRUCTA;
  466.   LPCONNECTDLGSTRUCTW = ^CONNECTDLGSTRUCTW;
  467.   {$EXTERNALSYM LPCONNECTDLGSTRUCTW}
  468.   _CONNECTDLGSTRUCTW = record
  469.     cbStructure: DWORD; // size of this structure in bytes
  470.     hwndOwner: HWND; // owner window for the dialog
  471.     lpConnRes: LPNETRESOURCEW; // Requested Resource info
  472.     dwFlags: DWORD; // flags (see below)
  473.     dwDevNum: DWORD; // number of devices connected to
  474.   end;
  475.   {$EXTERNALSYM _CONNECTDLGSTRUCTW}
  476.   CONNECTDLGSTRUCTW = _CONNECTDLGSTRUCTW;
  477.   {$EXTERNALSYM CONNECTDLGSTRUCTW}
  478.   TConnectDlgStructW = CONNECTDLGSTRUCTW;
  479.   PConnectDlgStructW = LPCONNECTDLGSTRUCTW;
  481. {$IFDEF UNICODE}
  482.   CONNECTDLGSTRUCT = CONNECTDLGSTRUCTW;
  483.   {$EXTERNALSYM CONNECTDLGSTRUCT}
  484.   LPCONNECTDLGSTRUCT = LPCONNECTDLGSTRUCTW;
  485.   {$EXTERNALSYM LPCONNECTDLGSTRUCT}
  486.   TConnectDlgStruct = TConnectDlgStructW;
  487.   PConnectDlgStruct = PConnectDlgStructW;
  488. {$ELSE}
  489.   CONNECTDLGSTRUCT = CONNECTDLGSTRUCTA;
  490.   {$EXTERNALSYM CONNECTDLGSTRUCT}
  491.   LPCONNECTDLGSTRUCT = LPCONNECTDLGSTRUCTA;
  492.   {$EXTERNALSYM LPCONNECTDLGSTRUCT}
  493.   TConnectDlgStruct = TConnectDlgStructA;
  494.   PConnectDlgStruct = PConnectDlgStructA;
  495. {$ENDIF}
  497. const
  498.   CONNDLG_RO_PATH    = $00000001; // Resource path should be read-only
  499.   {$EXTERNALSYM CONNDLG_RO_PATH}
  500.   CONNDLG_CONN_POINT = $00000002; // Netware -style movable connection point enabled
  501.   {$EXTERNALSYM CONNDLG_CONN_POINT}
  502.   CONNDLG_USE_MRU    = $00000004; // Use MRU combobox
  503.   {$EXTERNALSYM CONNDLG_USE_MRU}
  504.   CONNDLG_HIDE_BOX   = $00000008; // Hide persistent connect checkbox
  505.   {$EXTERNALSYM CONNDLG_HIDE_BOX}
  507. //
  508. // NOTE:  Set at most ONE of the below flags.  If neither flag is set,
  509. //        then the persistence is set to whatever the user chose during
  510. //        a previous connection
  511. //
  513.   CONNDLG_PERSIST     = $00000010; // Force persistent connection
  514.   {$EXTERNALSYM CONNDLG_PERSIST}
  515.   CONNDLG_NOT_PERSIST = $00000020; // Force connection NOT persistent
  516.   {$EXTERNALSYM CONNDLG_NOT_PERSIST}
  518. function WNetConnectionDialog1A(var lpConnDlgStruct: CONNECTDLGSTRUCTA): DWORD; stdcall;
  519. {$EXTERNALSYM WNetConnectionDialog1A}
  520. function WNetConnectionDialog1W(var lpConnDlgStruct: CONNECTDLGSTRUCTW): DWORD; stdcall;
  521. {$EXTERNALSYM WNetConnectionDialog1W}
  523. {$IFDEF UNICODE}
  524. function WNetConnectionDialog1(var lpConnDlgStruct: CONNECTDLGSTRUCTW): DWORD; stdcall;
  525. {$EXTERNALSYM WNetConnectionDialog1}
  526. {$ELSE}
  527. function WNetConnectionDialog1(var lpConnDlgStruct: CONNECTDLGSTRUCTA): DWORD; stdcall;
  528. {$EXTERNALSYM WNetConnectionDialog1}
  529. {$ENDIF}
  531. type
  532.   LPDISCDLGSTRUCTA = ^DISCDLGSTRUCTA;
  533.   {$EXTERNALSYM LPDISCDLGSTRUCTA}
  534.   _DISCDLGSTRUCTA = record
  535.     cbStructure: DWORD; // size of this structure in bytes
  536.     hwndOwner: HWND; // owner window for the dialog
  537.     lpLocalName: LPSTR; // local device name
  538.     lpRemoteName: LPSTR; // network resource name
  539.     dwFlags: DWORD; // flags
  540.   end;
  541.   {$EXTERNALSYM _DISCDLGSTRUCTA}
  542.   DISCDLGSTRUCTA = _DISCDLGSTRUCTA;
  543.   {$EXTERNALSYM DISCDLGSTRUCTA}
  544.   TDiscDlgStructA = DISCDLGSTRUCTA;
  545.   PDiscDlgStructA = LPDISCDLGSTRUCTA;
  547.   LPDISCDLGSTRUCTW = ^DISCDLGSTRUCTW;
  548.   {$EXTERNALSYM LPDISCDLGSTRUCTW}
  549.   _DISCDLGSTRUCTW = record
  550.     cbStructure: DWORD; // size of this structure in bytes
  551.     hwndOwner: HWND; // owner window for the dialog
  552.     lpLocalName: LPWSTR; // local device name
  553.     lpRemoteName: LPWSTR; // network resource name
  554.     dwFlags: DWORD; // flags
  555.   end;
  556.   {$EXTERNALSYM _DISCDLGSTRUCTW}
  557.   DISCDLGSTRUCTW = _DISCDLGSTRUCTW;
  558.   {$EXTERNALSYM DISCDLGSTRUCTW}
  559.   TDiscDlgStructW = DISCDLGSTRUCTW;
  560.   PDiscDlgStructW = LPDISCDLGSTRUCTW;
  562. {$IFDEF UNICODE}
  563.   DISCDLGSTRUCT = DISCDLGSTRUCTW;
  564.   {$EXTERNALSYM DISCDLGSTRUCT}
  565.   LPDISCDLGSTRUCT = LPDISCDLGSTRUCTW;
  566.   {$EXTERNALSYM LPDISCDLGSTRUCT}
  567.   TDiscDlgStruct = TDiscDlgStructW;
  568.   PDiscDlgStruct = PDiscDlgStructW;
  569. {$ELSE}
  570.   DISCDLGSTRUCT = DISCDLGSTRUCTA;
  571.   {$EXTERNALSYM DISCDLGSTRUCT}
  572.   LPDISCDLGSTRUCT = LPDISCDLGSTRUCTA;
  573.   {$EXTERNALSYM LPDISCDLGSTRUCT}
  574.   TDiscDlgStruct = TDiscDlgStructA;
  575.   PDiscDlgStruct = PDiscDlgStructA;
  576. {$ENDIF}
  578. const
  579.   DISC_UPDATE_PROFILE = $00000001;
  580.   {$EXTERNALSYM DISC_UPDATE_PROFILE}
  581.   DISC_NO_FORCE       = $00000040;
  582.   {$EXTERNALSYM DISC_NO_FORCE}
  584. function WNetDisconnectDialog1A(const lpConnDlgStruct: DISCDLGSTRUCTA): DWORD; stdcall;
  585. {$EXTERNALSYM WNetDisconnectDialog1A}
  586. function WNetDisconnectDialog1W(const lpConnDlgStruct: DISCDLGSTRUCTW): DWORD; stdcall;
  587. {$EXTERNALSYM WNetDisconnectDialog1W}
  589. {$IFDEF UNICODE}
  590. function WNetDisconnectDialog1(const lpConnDlgStruct: DISCDLGSTRUCTW): DWORD; stdcall;
  591. {$EXTERNALSYM WNetDisconnectDialog1}
  592. {$ELSE}
  593. function WNetDisconnectDialog1(const lpConnDlgStruct: DISCDLGSTRUCTA): DWORD; stdcall;
  594. {$EXTERNALSYM WNetDisconnectDialog1}
  595. {$ENDIF}
  597. //
  598. //  Network Browsing.
  599. //
  601. function WNetOpenEnumA(dwScope, dwType, dwUsage: DWORD; lpNetResource: LPNETRESOURCEA;
  602.   var lphEnum: HANDLE): DWORD; stdcall;
  603. {$EXTERNALSYM WNetOpenEnumA}
  604. function WNetOpenEnumW(dwScope, dwType, dwUsage: DWORD; lpNetResource: LPNETRESOURCEW;
  605.   var lphEnum: HANDLE): DWORD; stdcall;
  606. {$EXTERNALSYM WNetOpenEnumW}
  608. {$IFDEF UNICODE}
  609. function WNetOpenEnum(dwScope, dwType, dwUsage: DWORD; lpNetResource: LPNETRESOURCEW;
  610.   var lphEnum: HANDLE): DWORD; stdcall;
  611. {$EXTERNALSYM WNetOpenEnum}
  612. {$ELSE}
  613. function WNetOpenEnum(dwScope, dwType, dwUsage: DWORD; lpNetResource: LPNETRESOURCEA;
  614.   var lphEnum: HANDLE): DWORD; stdcall;
  615. {$EXTERNALSYM WNetOpenEnum}
  616. {$ENDIF}
  618. function WNetEnumResourceA(hEnum: HANDLE; var lpcCount: DWORD; lpBuffer: LPVOID;
  619.   var lpBufferSize: DWORD): DWORD; stdcall;
  620. {$EXTERNALSYM WNetEnumResourceA}
  621. function WNetEnumResourceW(hEnum: HANDLE; var lpcCount: DWORD; lpBuffer: LPVOID;
  622.   var lpBufferSize: DWORD): DWORD; stdcall;
  623. {$EXTERNALSYM WNetEnumResourceW}
  625. {$IFDEF UNICODE}
  626. function WNetEnumResource(hEnum: HANDLE; var lpcCount: DWORD; lpBuffer: LPVOID;
  627.   var lpBufferSize: DWORD): DWORD; stdcall;
  628. {$EXTERNALSYM WNetEnumResource}
  629. {$ELSE}
  630. function WNetEnumResource(hEnum: HANDLE; var lpcCount: DWORD; lpBuffer: LPVOID;
  631.   var lpBufferSize: DWORD): DWORD; stdcall;
  632. {$EXTERNALSYM WNetEnumResource}
  633. {$ENDIF}
  635. function WNetCloseEnum(hEnum: HANDLE): DWORD; stdcall;
  636. {$EXTERNALSYM WNetCloseEnum}
  638. function WNetGetResourceParentA(const lpNetResource: NETRESOURCEA;
  639.   lpBuffer: LPVOID; var lpcbBuffer: DWORD): DWORD; stdcall;
  640. {$EXTERNALSYM WNetGetResourceParentA}
  641. function WNetGetResourceParentW(const lpNetResource: NETRESOURCEW;
  642.   lpBuffer: LPVOID; var lpcbBuffer: DWORD): DWORD; stdcall;
  643. {$EXTERNALSYM WNetGetResourceParentW}
  645. {$IFDEF UNICODE}
  646. function WNetGetResourceParent(const lpNetResource: NETRESOURCEW;
  647.   lpBuffer: LPVOID; var lpcbBuffer: DWORD): DWORD; stdcall;
  648. {$EXTERNALSYM WNetGetResourceParent}
  649. {$ELSE}
  650. function WNetGetResourceParent(const lpNetResource: NETRESOURCEA;
  651.   lpBuffer: LPVOID; var lpcbBuffer: DWORD): DWORD; stdcall;
  652. {$EXTERNALSYM WNetGetResourceParent}
  653. {$ENDIF}
  655. function WNetGetResourceInformationA(const lpNetResource: NETRESOURCEA;
  656.   lpBuffer: LPVOID; var lpcbBuffer: DWORD; var lplpSystem: LPSTR): DWORD; stdcall;
  657. {$EXTERNALSYM WNetGetResourceInformationA}
  658. function WNetGetResourceInformationW(const lpNetResource: NETRESOURCEW;
  659.   lpBuffer: LPVOID; var lpcbBuffer: DWORD; var lplpSystem: LPWSTR): DWORD; stdcall;
  660. {$EXTERNALSYM WNetGetResourceInformationW}
  662. {$IFDEF UNICODE}
  663. function WNetGetResourceInformation(const lpNetResource: NETRESOURCEW;
  664.   lpBuffer: LPVOID; var lpcbBuffer: DWORD; var lplpSystem: LPWSTR): DWORD; stdcall;
  665. {$EXTERNALSYM WNetGetResourceInformation}
  666. {$ELSE}
  667. function WNetGetResourceInformation(const lpNetResource: NETRESOURCEA;
  668.   lpBuffer: LPVOID; var lpcbBuffer: DWORD; var lplpSystem: LPSTR): DWORD; stdcall;
  669. {$EXTERNALSYM WNetGetResourceInformation}
  670. {$ENDIF}
  672. //
  673. //  Universal Naming.
  674. //
  676. const
  677.   UNIVERSAL_NAME_INFO_LEVEL = $00000001;
  678.   {$EXTERNALSYM UNIVERSAL_NAME_INFO_LEVEL}
  679.   REMOTE_NAME_INFO_LEVEL    = $00000002;
  680.   {$EXTERNALSYM REMOTE_NAME_INFO_LEVEL}
  682. type
  683.   LPUNIVERSAL_NAME_INFOA = ^UNIVERSAL_NAME_INFOA;
  684.   {$EXTERNALSYM LPUNIVERSAL_NAME_INFOA}
  685.   _UNIVERSAL_NAME_INFOA = record
  686.     lpUniversalName: LPSTR;
  687.   end;
  688.   {$EXTERNALSYM _UNIVERSAL_NAME_INFOA}
  689.   UNIVERSAL_NAME_INFOA = _UNIVERSAL_NAME_INFOA;
  690.   {$EXTERNALSYM UNIVERSAL_NAME_INFOA}
  691.   TUniversalNameInfoA = UNIVERSAL_NAME_INFOA;
  692.   PUniversalNameInfoA = LPUNIVERSAL_NAME_INFOA;
  694.   LPUNIVERSAL_NAME_INFOW = ^UNIVERSAL_NAME_INFOW;
  695.   {$EXTERNALSYM LPUNIVERSAL_NAME_INFOW}
  696.   _UNIVERSAL_NAME_INFOW = record
  697.     lpUniversalName: LPWSTR;
  698.   end;
  699.   {$EXTERNALSYM _UNIVERSAL_NAME_INFOW}
  700.   UNIVERSAL_NAME_INFOW = _UNIVERSAL_NAME_INFOW;
  701.   {$EXTERNALSYM UNIVERSAL_NAME_INFOW}
  702.   TUniversalNameInfoW = UNIVERSAL_NAME_INFOW;
  703.   PUniversalNameInfoW = LPUNIVERSAL_NAME_INFOW;
  705. {$IFDEF UNICODE}
  706.   UNIVERSAL_NAME_INFO = UNIVERSAL_NAME_INFOW;
  707.   {$EXTERNALSYM UNIVERSAL_NAME_INFO}
  708.   LPUNIVERSAL_NAME_INFO = LPUNIVERSAL_NAME_INFOW;
  709.   {$EXTERNALSYM LPUNIVERSAL_NAME_INFO}
  710.   TUniversalNameInfo = TUniversalNameInfoW;
  711.   PUniversalNameInfo = PUniversalNameInfoW;
  712. {$ELSE}
  713.   UNIVERSAL_NAME_INFO = UNIVERSAL_NAME_INFOA;
  714.   {$EXTERNALSYM UNIVERSAL_NAME_INFO}
  715.   LPUNIVERSAL_NAME_INFO = LPUNIVERSAL_NAME_INFOA;
  716.   {$EXTERNALSYM LPUNIVERSAL_NAME_INFO}
  717.   TUniversalNameInfo = TUniversalNameInfoA;
  718.   PUniversalNameInfo = PUniversalNameInfoA;
  719. {$ENDIF}
  721.   LPREMOTE_NAME_INFOA = ^REMOTE_NAME_INFOA;
  722.   {$EXTERNALSYM LPREMOTE_NAME_INFOA}
  723.   _REMOTE_NAME_INFOA = record
  724.     lpUniversalName: LPSTR;
  725.     lpConnectionName: LPSTR;
  726.     lpRemainingPath: LPSTR;
  727.   end;
  728.   {$EXTERNALSYM _REMOTE_NAME_INFOA}
  729.   REMOTE_NAME_INFOA = _REMOTE_NAME_INFOA;
  730.   {$EXTERNALSYM REMOTE_NAME_INFOA}
  731.   TRemoteNameInfoA = REMOTE_NAME_INFOA;
  732.   PRemoteNameInfoA = LPREMOTE_NAME_INFOA;
  734.   LPREMOTE_NAME_INFOW = ^REMOTE_NAME_INFOW;
  735.   {$EXTERNALSYM LPREMOTE_NAME_INFOW}
  736.   _REMOTE_NAME_INFOW = record
  737.     lpUniversalName: LPWSTR;
  738.     lpConnectionName: LPWSTR;
  739.     lpRemainingPath: LPWSTR;
  740.   end;
  741.   {$EXTERNALSYM _REMOTE_NAME_INFOW}
  742.   REMOTE_NAME_INFOW = _REMOTE_NAME_INFOW;
  743.   {$EXTERNALSYM REMOTE_NAME_INFOW}
  744.   TRemoteNameInfoW = REMOTE_NAME_INFOW;
  745.   PRemoteNameInfoW = LPREMOTE_NAME_INFOW;
  747. {$IFDEF UNICODE}
  748.   REMOTE_NAME_INFO = REMOTE_NAME_INFOW;
  749.   {$EXTERNALSYM REMOTE_NAME_INFO}
  750.   LPREMOTE_NAME_INFO = LPREMOTE_NAME_INFOW;
  751.   {$EXTERNALSYM LPREMOTE_NAME_INFO}
  752.   TRemoteNameInfo = TRemoteNameInfoW;
  753.   PRemoteNameInfo = PRemoteNameInfoW;
  754. {$ELSE}
  755.   REMOTE_NAME_INFO = REMOTE_NAME_INFOA;
  756.   {$EXTERNALSYM REMOTE_NAME_INFO}
  757.   LPREMOTE_NAME_INFO = LPREMOTE_NAME_INFOA;
  758.   {$EXTERNALSYM LPREMOTE_NAME_INFO}
  759.   TRemoteNameInfo = TRemoteNameInfoA;
  760.   PRemoteNameInfo = PRemoteNameInfoA;
  761. {$ENDIF}
  763. function WNetGetUniversalNameA(lpLocalPath: LPCSTR; dwInfoLevel: DWORD;
  764.   lpBuffer: LPVOID; var lpBufferSize: DWORD): DWORD; stdcall;
  765. {$EXTERNALSYM WNetGetUniversalNameA}
  766. function WNetGetUniversalNameW(lpLocalPath: LPCWSTR; dwInfoLevel: DWORD;
  767.   lpBuffer: LPVOID; var lpBufferSize: DWORD): DWORD; stdcall;
  768. {$EXTERNALSYM WNetGetUniversalNameW}
  770. {$IFDEF UNICODE}
  771. function WNetGetUniversalName(lpLocalPath: LPCWSTR; dwInfoLevel: DWORD;
  772.   lpBuffer: LPVOID; var lpBufferSize: DWORD): DWORD; stdcall;
  773. {$EXTERNALSYM WNetGetUniversalName}
  774. {$ELSE}
  775. function WNetGetUniversalName(lpLocalPath: LPCSTR; dwInfoLevel: DWORD;
  776.   lpBuffer: LPVOID; var lpBufferSize: DWORD): DWORD; stdcall;
  777. {$EXTERNALSYM WNetGetUniversalName}
  778. {$ENDIF}
  780. //
  781. //  Authentication and Logon/Logoff.
  782. //
  784. function WNetGetUserA(lpName: LPCSTR; lpUserName: LPSTR; var lpnLength: DWORD): DWORD; stdcall;
  785. {$EXTERNALSYM WNetGetUserA}
  786. function WNetGetUserW(lpName: LPCWSTR; lpUserName: LPWSTR; var lpnLength: DWORD): DWORD; stdcall;
  787. {$EXTERNALSYM WNetGetUserW}
  789. {$IFDEF UNICODE}
  790. function WNetGetUser(lpName: LPCWSTR; lpUserName: LPWSTR; var lpnLength: DWORD): DWORD; stdcall;
  791. {$EXTERNALSYM WNetGetUser}
  792. {$ELSE}
  793. function WNetGetUser(lpName: LPCSTR; lpUserName: LPSTR; var lpnLength: DWORD): DWORD; stdcall;
  794. {$EXTERNALSYM WNetGetUser}
  795. {$ENDIF}
  797. //
  798. // Other.
  799. //
  801. const
  802.   WNFMT_MULTILINE   = $01;
  803.   {$EXTERNALSYM WNFMT_MULTILINE}
  804.   WNFMT_ABBREVIATED = $02;
  805.   {$EXTERNALSYM WNFMT_ABBREVIATED}
  806.   WNFMT_INENUM      = $10;
  807.   {$EXTERNALSYM WNFMT_INENUM}
  808.   WNFMT_CONNECTION  = $20;
  809.   {$EXTERNALSYM WNFMT_CONNECTION}
  811. function WNetGetProviderNameA(dwNetType: DWORD; lpProviderName: LPSTR;
  812.   var lpBufferSize: DWORD): DWORD; stdcall;
  813. {$EXTERNALSYM WNetGetProviderNameA}
  814. function WNetGetProviderNameW(dwNetType: DWORD; lpProviderName: LPWSTR;
  815.   var lpBufferSize: DWORD): DWORD; stdcall;
  816. {$EXTERNALSYM WNetGetProviderNameW}
  818. {$IFDEF UNICODE}
  819. function WNetGetProviderName(dwNetType: DWORD; lpProviderName: LPWSTR;
  820.   var lpBufferSize: DWORD): DWORD; stdcall;
  821. {$EXTERNALSYM WNetGetProviderName}
  822. {$ELSE}
  823. function WNetGetProviderName(dwNetType: DWORD; lpProviderName: LPSTR;
  824.   var lpBufferSize: DWORD): DWORD; stdcall;
  825. {$EXTERNALSYM WNetGetProviderName}
  826. {$ENDIF}
  828. type
  829.   LPNETINFOSTRUCT = ^NETINFOSTRUCT;
  830.   {$EXTERNALSYM LPNETINFOSTRUCT}
  831.   _NETINFOSTRUCT = record
  832.     cbStructure: DWORD;
  833.     dwProviderVersion: DWORD;
  834.     dwStatus: DWORD;
  835.     dwCharacteristics: DWORD;
  836.     dwHandle: ULONG_PTR;
  837.     wNetType: WORD;
  838.     dwPrinters: DWORD;
  839.     dwDrives: DWORD;
  840.   end;
  841.   {$EXTERNALSYM _NETINFOSTRUCT}
  842.   NETINFOSTRUCT = _NETINFOSTRUCT;
  843.   {$EXTERNALSYM NETINFOSTRUCT}
  844.   TNetInfoStruct = NETINFOSTRUCT;
  845.   PNetInfoStruct = LPNETINFOSTRUCT;
  847. const
  848.   NETINFO_DLL16      = $00000001; // Provider running as 16 bit Winnet Driver
  849.   {$EXTERNALSYM NETINFO_DLL16}
  850.   NETINFO_DISKRED    = $00000004; // Provider requires disk redirections to connect
  851.   {$EXTERNALSYM NETINFO_DISKRED}
  852.   NETINFO_PRINTERRED = $00000008; // Provider requires printer redirections to connect
  853.   {$EXTERNALSYM NETINFO_PRINTERRED}
  855. function WNetGetNetworkInformationA(lpProvider: LPCSTR;
  856.   var lpNetInfoStruct: NETINFOSTRUCT): DWORD; stdcall;
  857. {$EXTERNALSYM WNetGetNetworkInformationA}
  858. function WNetGetNetworkInformationW(lpProvider: LPCWSTR;
  859.   var lpNetInfoStruct: NETINFOSTRUCT): DWORD; stdcall;
  860. {$EXTERNALSYM WNetGetNetworkInformationW}
  862. {$IFDEF UNICODE}
  863. function WNetGetNetworkInformation(lpProvider: LPCWSTR;
  864.   var lpNetInfoStruct: NETINFOSTRUCT): DWORD; stdcall;
  865. {$EXTERNALSYM WNetGetNetworkInformation}
  866. {$ELSE}
  867. function WNetGetNetworkInformation(lpProvider: LPCSTR;
  868.   var lpNetInfoStruct: NETINFOSTRUCT): DWORD; stdcall;
  869. {$EXTERNALSYM WNetGetNetworkInformation}
  870. {$ENDIF}
  872. //
  873. //  User Profiles.
  874. //
  876. type
  877.   PFNGETPROFILEPATHA = function (pszUsername: LPCSTR; pszBuffer: LPSTR;
  878.     cbBuffer: UINT): UINT; stdcall;
  879.   {$EXTERNALSYM PFNGETPROFILEPATHA}
  881.   PFNGETPROFILEPATHW = function (pszUsername: LPCWSTR; pszBuffer: LPWSTR;
  882.     cbBuffer: UINT): UINT; stdcall;
  883.   {$EXTERNALSYM PFNGETPROFILEPATHW}
  885. {$IFDEF UNICODE}
  886.   PFNGETPROFILEPATH = PFNGETPROFILEPATHW;
  887.   {$EXTERNALSYM PFNGETPROFILEPATH}
  888. {$ELSE}
  889.   PFNGETPROFILEPATH = PFNGETPROFILEPATHA;
  890.   {$EXTERNALSYM PFNGETPROFILEPATH}
  891. {$ENDIF}
  893.   PFNRECONCILEPROFILEA = function (pszCentralFile, pszLocalFile: LPCSTR;
  894.     dwFlags: DWORD): UINT; stdcall;
  895.   {$EXTERNALSYM PFNRECONCILEPROFILEA}
  897.   PFNRECONCILEPROFILEW = function (pszCentralFile, pszLocalFile: LPCWSTR;
  898.     dwFlags: DWORD): UINT; stdcall;
  899.   {$EXTERNALSYM PFNRECONCILEPROFILEW}
  902. {$IFDEF UNICODE}
  903.   PFNRECONCILEPROFILE = PFNRECONCILEPROFILEW;
  904.   {$EXTERNALSYM PFNRECONCILEPROFILE}
  905. {$ELSE}
  906.   PFNRECONCILEPROFILE = PFNRECONCILEPROFILEA;
  907.   {$EXTERNALSYM PFNRECONCILEPROFILE}  
  908. {$ENDIF}
  910. const
  911.   RP_LOGON   = $01; // if set, do for logon, else for logoff
  912.   {$EXTERNALSYM RP_LOGON}
  913.   RP_INIFILE = $02; // if set, reconcile .INI file, else reg. hive
  914.   {$EXTERNALSYM RP_INIFILE}
  916. //
  917. //  Policies.
  918. //
  920. type
  921.   PFNPROCESSPOLICIESA = function (hwnd: HWND; pszPath, pszUsername,
  922.     pszComputerName: LPCSTR; dwFlags: DWORD): BOOL; stdcall;
  923.   {$EXTERNALSYM PFNPROCESSPOLICIESA}
  925.   PFNPROCESSPOLICIESW = function (hwnd: HWND; pszPath, pszUsername,
  926.     pszComputerName: LPCWSTR; dwFlags: DWORD): BOOL; stdcall;
  927.   {$EXTERNALSYM PFNPROCESSPOLICIESW}
  929. {$IFDEF UNICODE}
  930.   PFNPROCESSPOLICIES = PFNPROCESSPOLICIESW;
  931.   {$EXTERNALSYM PFNPROCESSPOLICIES}
  932. {$ELSE}
  933.   PFNPROCESSPOLICIES = PFNPROCESSPOLICIESA;
  934.   {$EXTERNALSYM PFNPROCESSPOLICIES}  
  935. {$ENDIF}
  937. const
  938.   PP_DISPLAYERRORS = $01; // if set, display error messages, else fail silently if error
  939.   {$EXTERNALSYM PP_DISPLAYERRORS}
  941. //
  942. //  Error handling.
  943. //
  945. function WNetGetLastErrorA(var lpError: DWORD; lpErrorBuf: LPSTR;
  946.   nErrorBufSize: DWORD; lpNameBuf: LPSTR; nNameBufSize: DWORD): DWORD; stdcall;
  947. {$EXTERNALSYM WNetGetLastErrorA}
  948. function WNetGetLastErrorW(var lpError: DWORD; lpErrorBuf: LPWSTR;
  949.   nErrorBufSize: DWORD; lpNameBuf: LPWSTR; nNameBufSize: DWORD): DWORD; stdcall;
  950. {$EXTERNALSYM WNetGetLastErrorW}
  952. {$IFDEF UNICODE}
  953. function WNetGetLastError(var lpError: DWORD; lpErrorBuf: LPWSTR;
  954.   nErrorBufSize: DWORD; lpNameBuf: LPWSTR; nNameBufSize: DWORD): DWORD; stdcall;
  955. {$EXTERNALSYM WNetGetLastError}
  956. {$ELSE}
  957. function WNetGetLastError(var lpError: DWORD; lpErrorBuf: LPSTR;
  958.   nErrorBufSize: DWORD; lpNameBuf: LPSTR; nNameBufSize: DWORD): DWORD; stdcall;
  959. {$EXTERNALSYM WNetGetLastError}
  960. {$ENDIF}
  962. //
  963. //  STATUS CODES
  964. //
  966. // General
  968. const
  969.   WN_SUCCESS          = NO_ERROR;
  970.   {$EXTERNALSYM WN_SUCCESS}
  971.   WN_NO_ERROR         = NO_ERROR;
  972.   {$EXTERNALSYM WN_NO_ERROR}
  973.   WN_NOT_SUPPORTED    = ERROR_NOT_SUPPORTED;
  974.   {$EXTERNALSYM WN_NOT_SUPPORTED}
  975.   WN_CANCEL           = ERROR_CANCELLED;
  976.   {$EXTERNALSYM WN_CANCEL}
  977.   WN_RETRY            = ERROR_RETRY;
  978.   {$EXTERNALSYM WN_RETRY}
  979.   WN_NET_ERROR        = ERROR_UNEXP_NET_ERR;
  980.   {$EXTERNALSYM WN_NET_ERROR}
  981.   WN_MORE_DATA        = ERROR_MORE_DATA;
  982.   {$EXTERNALSYM WN_MORE_DATA}
  983.   WN_BAD_POINTER      = ERROR_INVALID_ADDRESS;
  984.   {$EXTERNALSYM WN_BAD_POINTER}
  985.   WN_BAD_VALUE        = ERROR_INVALID_PARAMETER;
  986.   {$EXTERNALSYM WN_BAD_VALUE}
  987.   WN_BAD_USER         = ERROR_BAD_USERNAME;
  988.   {$EXTERNALSYM WN_BAD_USER}
  989.   WN_BAD_PASSWORD     = ERROR_INVALID_PASSWORD;
  990.   {$EXTERNALSYM WN_BAD_PASSWORD}
  991.   WN_ACCESS_DENIED    = ERROR_ACCESS_DENIED;
  992.   {$EXTERNALSYM WN_ACCESS_DENIED}
  993.   WN_FUNCTION_BUSY    = ERROR_BUSY;
  994.   {$EXTERNALSYM WN_FUNCTION_BUSY}
  995.   WN_WINDOWS_ERROR    = ERROR_UNEXP_NET_ERR;
  996.   {$EXTERNALSYM WN_WINDOWS_ERROR}
  997.   WN_OUT_OF_MEMORY    = ERROR_NOT_ENOUGH_MEMORY;
  998.   {$EXTERNALSYM WN_OUT_OF_MEMORY}
  999.   WN_NO_NETWORK       = ERROR_NO_NETWORK;
  1000.   {$EXTERNALSYM WN_NO_NETWORK}
  1001.   WN_EXTENDED_ERROR   = ERROR_EXTENDED_ERROR;
  1002.   {$EXTERNALSYM WN_EXTENDED_ERROR}
  1003.   WN_BAD_LEVEL        = ERROR_INVALID_LEVEL;
  1004.   {$EXTERNALSYM WN_BAD_LEVEL}
  1005.   WN_BAD_HANDLE       = ERROR_INVALID_HANDLE;
  1006.   {$EXTERNALSYM WN_BAD_HANDLE}
  1007.   WN_NOT_INITIALIZING = ERROR_ALREADY_INITIALIZED;
  1008.   {$EXTERNALSYM WN_NOT_INITIALIZING}
  1009.   WN_NO_MORE_DEVICES  = ERROR_NO_MORE_DEVICES;
  1010.   {$EXTERNALSYM WN_NO_MORE_DEVICES}
  1012. // Connection
  1014.   WN_NOT_CONNECTED             = ERROR_NOT_CONNECTED;
  1015.   {$EXTERNALSYM WN_NOT_CONNECTED}
  1016.   WN_OPEN_FILES                = ERROR_OPEN_FILES;
  1017.   {$EXTERNALSYM WN_OPEN_FILES}
  1018.   WN_DEVICE_IN_USE             = ERROR_DEVICE_IN_USE;
  1019.   {$EXTERNALSYM WN_DEVICE_IN_USE}
  1020.   WN_BAD_NETNAME               = ERROR_BAD_NET_NAME;
  1021.   {$EXTERNALSYM WN_BAD_NETNAME}
  1022.   WN_BAD_LOCALNAME             = ERROR_BAD_DEVICE;
  1023.   {$EXTERNALSYM WN_BAD_LOCALNAME}
  1024.   WN_ALREADY_CONNECTED         = ERROR_ALREADY_ASSIGNED;
  1025.   {$EXTERNALSYM WN_ALREADY_CONNECTED}
  1026.   WN_DEVICE_ERROR              = ERROR_GEN_FAILURE;
  1027.   {$EXTERNALSYM WN_DEVICE_ERROR}
  1028.   WN_CONNECTION_CLOSED         = ERROR_CONNECTION_UNAVAIL;
  1029.   {$EXTERNALSYM WN_CONNECTION_CLOSED}
  1030.   WN_NO_NET_OR_BAD_PATH        = ERROR_NO_NET_OR_BAD_PATH;
  1031.   {$EXTERNALSYM WN_NO_NET_OR_BAD_PATH}
  1032.   WN_BAD_PROVIDER              = ERROR_BAD_PROVIDER;
  1033.   {$EXTERNALSYM WN_BAD_PROVIDER}
  1034.   WN_CANNOT_OPEN_PROFILE       = ERROR_CANNOT_OPEN_PROFILE;
  1035.   {$EXTERNALSYM WN_CANNOT_OPEN_PROFILE}
  1036.   WN_BAD_PROFILE               = ERROR_BAD_PROFILE;
  1037.   {$EXTERNALSYM WN_BAD_PROFILE}
  1038.   WN_BAD_DEV_TYPE              = ERROR_BAD_DEV_TYPE;
  1039.   {$EXTERNALSYM WN_BAD_DEV_TYPE}
  1040.   WN_DEVICE_ALREADY_REMEMBERED = ERROR_DEVICE_ALREADY_REMEMBERED;
  1041.   {$EXTERNALSYM WN_DEVICE_ALREADY_REMEMBERED}
  1042.   WN_CONNECTED_OTHER_PASSWORD  = ERROR_CONNECTED_OTHER_PASSWORD;
  1043.   {$EXTERNALSYM WN_CONNECTED_OTHER_PASSWORD}
  1044.   WN_CONNECTED_OTHER_PASSWORD_DEFAULT = ERROR_CONNECTED_OTHER_PASSWORD_DEFAULT;
  1045.   {$EXTERNALSYM WN_CONNECTED_OTHER_PASSWORD_DEFAULT}
  1047. // Enumeration
  1049.   WN_NO_MORE_ENTRIES = ERROR_NO_MORE_ITEMS;
  1050.   {$EXTERNALSYM WN_NO_MORE_ENTRIES}
  1051.   WN_NOT_CONTAINER   = ERROR_NOT_CONTAINER;
  1052.   {$EXTERNALSYM WN_NOT_CONTAINER}
  1054. // Authentication
  1056.   WN_NOT_AUTHENTICATED = ERROR_NOT_AUTHENTICATED;
  1057.   {$EXTERNALSYM WN_NOT_AUTHENTICATED}
  1058.   WN_NOT_LOGGED_ON     = ERROR_NOT_LOGGED_ON;
  1059.   {$EXTERNALSYM WN_NOT_LOGGED_ON}
  1060.   WN_NOT_VALIDATED     = ERROR_NO_LOGON_SERVERS;
  1061.   {$EXTERNALSYM WN_NOT_VALIDATED}
  1063. //
  1064. //  For Shell
  1065. //
  1067. type
  1068.   LPNETCONNECTINFOSTRUCT = ^NETCONNECTINFOSTRUCT;
  1069.   {$EXTERNALSYM LPNETCONNECTINFOSTRUCT}
  1070.   _NETCONNECTINFOSTRUCT = record
  1071.     cbStructure: DWORD;
  1072.     dwFlags: DWORD;
  1073.     dwSpeed: DWORD;
  1074.     dwDelay: DWORD;
  1075.     dwOptDataSize: DWORD;
  1076.   end;
  1077.   {$EXTERNALSYM _NETCONNECTINFOSTRUCT}
  1078.   NETCONNECTINFOSTRUCT = _NETCONNECTINFOSTRUCT;
  1079.   {$EXTERNALSYM NETCONNECTINFOSTRUCT}
  1080.   TNetConnectInfoStruct = NETCONNECTINFOSTRUCT;
  1081.   PNetConnectInfoStruct = LPNETCONNECTINFOSTRUCT;
  1083. const
  1084.   WNCON_FORNETCARD = $00000001;
  1085.   {$EXTERNALSYM WNCON_FORNETCARD}
  1086.   WNCON_NOTROUTED  = $00000002;
  1087.   {$EXTERNALSYM WNCON_NOTROUTED}
  1088.   WNCON_SLOWLINK   = $00000004;
  1089.   {$EXTERNALSYM WNCON_SLOWLINK}
  1090.   WNCON_DYNAMIC    = $00000008;
  1091.   {$EXTERNALSYM WNCON_DYNAMIC}
  1093. function MultinetGetConnectionPerformanceA(const lpNetResource: NETRESOURCEA;
  1094.   var lpNetConnectInfoStruct: NETCONNECTINFOSTRUCT): DWORD; stdcall;
  1095. {$EXTERNALSYM MultinetGetConnectionPerformanceA}
  1096. function MultinetGetConnectionPerformanceW(const lpNetResource: NETRESOURCEW;
  1097.   var lpNetConnectInfoStruct: NETCONNECTINFOSTRUCT): DWORD; stdcall;
  1098. {$EXTERNALSYM MultinetGetConnectionPerformanceW}
  1100. {$IFDEF UNICODE}
  1101. function MultinetGetConnectionPerformance(const lpNetResource: NETRESOURCEW;
  1102.   var lpNetConnectInfoStruct: NETCONNECTINFOSTRUCT): DWORD; stdcall;
  1103. {$EXTERNALSYM MultinetGetConnectionPerformance}
  1104. {$ELSE}
  1105. function MultinetGetConnectionPerformance(const lpNetResource: NETRESOURCEA;
  1106.   var lpNetConnectInfoStruct: NETCONNECTINFOSTRUCT): DWORD; stdcall;
  1107. {$EXTERNALSYM MultinetGetConnectionPerformance}
  1108. {$ENDIF}
  1110. implementation
  1112. const
  1113.   mpr = 'mpr.dll';
  1116. {$IFDEF DYNAMIC_LINK}
  1117. var
  1118.   _WNetAddConnectionA: Pointer;
  1120. function WNetAddConnectionA;
  1121. begin
  1122.   GetProcedureAddress(_WNetAddConnectionA, mpr, 'WNetAddConnectionA');
  1123.   asm
  1124.     mov esp, ebp
  1125.     pop ebp
  1126.     jmp [_WNetAddConnectionA]
  1127.   end;
  1128. end;
  1129. {$ELSE}
  1130. function WNetAddConnectionA; external mpr name 'WNetAddConnectionA';
  1131. {$ENDIF DYNAMIC_LINK}
  1133. {$IFDEF DYNAMIC_LINK}
  1134. var
  1135.   _WNetAddConnectionW: Pointer;
  1137. function WNetAddConnectionW;
  1138. begin
  1139.   GetProcedureAddress(_WNetAddConnectionW, mpr, 'WNetAddConnectionW');
  1140.   asm
  1141.     mov esp, ebp
  1142.     pop ebp
  1143.     jmp [_WNetAddConnectionW]
  1144.   end;
  1145. end;
  1146. {$ELSE}
  1147. function WNetAddConnectionW; external mpr name 'WNetAddConnectionW';
  1148. {$ENDIF DYNAMIC_LINK}
  1149. {$IFDEF UNICODE}
  1151. {$IFDEF DYNAMIC_LINK}
  1152. var
  1153.   _WNetAddConnection: Pointer;
  1155. function WNetAddConnection;
  1156. begin
  1157.   GetProcedureAddress(_WNetAddConnection, mpr, 'WNetAddConnectionW');
  1158.   asm
  1159.     mov esp, ebp
  1160.     pop ebp
  1161.     jmp [_WNetAddConnection]
  1162.   end;
  1163. end;
  1164. {$ELSE}
  1165. function WNetAddConnection; external mpr name 'WNetAddConnectionW';
  1166. {$ENDIF DYNAMIC_LINK}
  1167. {$ELSE}
  1169. {$IFDEF DYNAMIC_LINK}
  1170. var
  1171.   _WNetAddConnection: Pointer;
  1173. function WNetAddConnection;
  1174. begin
  1175.   GetProcedureAddress(_WNetAddConnection, mpr, 'WNetAddConnectionA');
  1176.   asm
  1177.     mov esp, ebp
  1178.     pop ebp
  1179.     jmp [_WNetAddConnection]
  1180.   end;
  1181. end;
  1182. {$ELSE}
  1183. function WNetAddConnection; external mpr name 'WNetAddConnectionA';
  1184. {$ENDIF DYNAMIC_LINK}
  1185. {$ENDIF}
  1187. {$IFDEF DYNAMIC_LINK}
  1188. var
  1189.   _WNetAddConnection2A: Pointer;
  1191. function WNetAddConnection2A;
  1192. begin
  1193.   GetProcedureAddress(_WNetAddConnection2A, mpr, 'WNetAddConnection2A');
  1194.   asm
  1195.     mov esp, ebp
  1196.     pop ebp
  1197.     jmp [_WNetAddConnection2A]
  1198.   end;
  1199. end;
  1200. {$ELSE}
  1201. function WNetAddConnection2A; external mpr name 'WNetAddConnection2A';
  1202. {$ENDIF DYNAMIC_LINK}
  1204. {$IFDEF DYNAMIC_LINK}
  1205. var
  1206.   _WNetAddConnection2W: Pointer;
  1208. function WNetAddConnection2W;
  1209. begin
  1210.   GetProcedureAddress(_WNetAddConnection2W, mpr, 'WNetAddConnection2W');
  1211.   asm
  1212.     mov esp, ebp
  1213.     pop ebp
  1214.     jmp [_WNetAddConnection2W]
  1215.   end;
  1216. end;
  1217. {$ELSE}
  1218. function WNetAddConnection2W; external mpr name 'WNetAddConnection2W';
  1219. {$ENDIF DYNAMIC_LINK}
  1220. {$IFDEF UNICODE}
  1222. {$IFDEF DYNAMIC_LINK}
  1223. var
  1224.   _WNetAddConnection2: Pointer;
  1226. function WNetAddConnection2;
  1227. begin
  1228.   GetProcedureAddress(_WNetAddConnection2, mpr, 'WNetAddConnection2W');
  1229.   asm
  1230.     mov esp, ebp
  1231.     pop ebp
  1232.     jmp [_WNetAddConnection2]
  1233.   end;
  1234. end;
  1235. {$ELSE}
  1236. function WNetAddConnection2; external mpr name 'WNetAddConnection2W';
  1237. {$ENDIF DYNAMIC_LINK}
  1238. {$ELSE}
  1240. {$IFDEF DYNAMIC_LINK}
  1241. var
  1242.   _WNetAddConnection2: Pointer;
  1244. function WNetAddConnection2;
  1245. begin
  1246.   GetProcedureAddress(_WNetAddConnection2, mpr, 'WNetAddConnection2A');
  1247.   asm
  1248.     mov esp, ebp
  1249.     pop ebp
  1250.     jmp [_WNetAddConnection2]
  1251.   end;
  1252. end;
  1253. {$ELSE}
  1254. function WNetAddConnection2; external mpr name 'WNetAddConnection2A';
  1255. {$ENDIF DYNAMIC_LINK}
  1256. {$ENDIF}
  1258. {$IFDEF DYNAMIC_LINK}
  1259. var
  1260.   _WNetAddConnection3A: Pointer;
  1262. function WNetAddConnection3A;
  1263. begin
  1264.   GetProcedureAddress(_WNetAddConnection3A, mpr, 'WNetAddConnection3A');
  1265.   asm
  1266.     mov esp, ebp
  1267.     pop ebp
  1268.     jmp [_WNetAddConnection3A]
  1269.   end;
  1270. end;
  1271. {$ELSE}
  1272. function WNetAddConnection3A; external mpr name 'WNetAddConnection3A';
  1273. {$ENDIF DYNAMIC_LINK}
  1275. {$IFDEF DYNAMIC_LINK}
  1276. var
  1277.   _WNetAddConnection3W: Pointer;
  1279. function WNetAddConnection3W;
  1280. begin
  1281.   GetProcedureAddress(_WNetAddConnection3W, mpr, 'WNetAddConnection3W');
  1282.   asm
  1283.     mov esp, ebp
  1284.     pop ebp
  1285.     jmp [_WNetAddConnection3W]
  1286.   end;
  1287. end;
  1288. {$ELSE}
  1289. function WNetAddConnection3W; external mpr name 'WNetAddConnection3W';
  1290. {$ENDIF DYNAMIC_LINK}
  1291. {$IFDEF UNICODE}
  1293. {$IFDEF DYNAMIC_LINK}
  1294. var
  1295.   _WNetAddConnection3: Pointer;
  1297. function WNetAddConnection3;
  1298. begin
  1299.   GetProcedureAddress(_WNetAddConnection3, mpr, 'WNetAddConnection3W');
  1300.   asm
  1301.     mov esp, ebp
  1302.     pop ebp
  1303.     jmp [_WNetAddConnection3]
  1304.   end;
  1305. end;
  1306. {$ELSE}
  1307. function WNetAddConnection3; external mpr name 'WNetAddConnection3W';
  1308. {$ENDIF DYNAMIC_LINK}
  1309. {$ELSE}
  1311. {$IFDEF DYNAMIC_LINK}
  1312. var
  1313.   _WNetAddConnection3: Pointer;
  1315. function WNetAddConnection3;
  1316. begin
  1317.   GetProcedureAddress(_WNetAddConnection3, mpr, 'WNetAddConnection3A');
  1318.   asm
  1319.     mov esp, ebp
  1320.     pop ebp
  1321.     jmp [_WNetAddConnection3]
  1322.   end;
  1323. end;
  1324. {$ELSE}
  1325. function WNetAddConnection3; external mpr name 'WNetAddConnection3A';
  1326. {$ENDIF DYNAMIC_LINK}
  1327. {$ENDIF}
  1329. {$IFDEF DYNAMIC_LINK}
  1330. var
  1331.   _WNetCancelConnectionA: Pointer;
  1333. function WNetCancelConnectionA;
  1334. begin
  1335.   GetProcedureAddress(_WNetCancelConnectionA, mpr, 'WNetCancelConnectionA');
  1336.   asm
  1337.     mov esp, ebp
  1338.     pop ebp
  1339.     jmp [_WNetCancelConnectionA]
  1340.   end;
  1341. end;
  1342. {$ELSE}
  1343. function WNetCancelConnectionA; external mpr name 'WNetCancelConnectionA';
  1344. {$ENDIF DYNAMIC_LINK}
  1346. {$IFDEF DYNAMIC_LINK}
  1347. var
  1348.   _WNetCancelConnectionW: Pointer;
  1350. function WNetCancelConnectionW;
  1351. begin
  1352.   GetProcedureAddress(_WNetCancelConnectionW, mpr, 'WNetCancelConnectionW');
  1353.   asm
  1354.     mov esp, ebp
  1355.     pop ebp
  1356.     jmp [_WNetCancelConnectionW]
  1357.   end;
  1358. end;
  1359. {$ELSE}
  1360. function WNetCancelConnectionW; external mpr name 'WNetCancelConnectionW';
  1361. {$ENDIF DYNAMIC_LINK}
  1362. {$IFDEF UNICODE}
  1364. {$IFDEF DYNAMIC_LINK}
  1365. var
  1366.   _WNetCancelConnection: Pointer;
  1368. function WNetCancelConnection;
  1369. begin
  1370.   GetProcedureAddress(_WNetCancelConnection, mpr, 'WNetCancelConnectionW');
  1371.   asm
  1372.     mov esp, ebp
  1373.     pop ebp
  1374.     jmp [_WNetCancelConnection]
  1375.   end;
  1376. end;
  1377. {$ELSE}
  1378. function WNetCancelConnection; external mpr name 'WNetCancelConnectionW';
  1379. {$ENDIF DYNAMIC_LINK}
  1380. {$ELSE}
  1382. {$IFDEF DYNAMIC_LINK}
  1383. var
  1384.   _WNetCancelConnection: Pointer;
  1386. function WNetCancelConnection;
  1387. begin
  1388.   GetProcedureAddress(_WNetCancelConnection, mpr, 'WNetCancelConnectionA');
  1389.   asm
  1390.     mov esp, ebp
  1391.     pop ebp
  1392.     jmp [_WNetCancelConnection]
  1393.   end;
  1394. end;
  1395. {$ELSE}
  1396. function WNetCancelConnection; external mpr name 'WNetCancelConnectionA';
  1397. {$ENDIF DYNAMIC_LINK}
  1398. {$ENDIF}
  1400. {$IFDEF DYNAMIC_LINK}
  1401. var
  1402.   _WNetCancelConnection2A: Pointer;
  1404. function WNetCancelConnection2A;
  1405. begin
  1406.   GetProcedureAddress(_WNetCancelConnection2A, mpr, 'WNetCancelConnection2A');
  1407.   asm
  1408.     mov esp, ebp
  1409.     pop ebp
  1410.     jmp [_WNetCancelConnection2A]
  1411.   end;
  1412. end;
  1413. {$ELSE}
  1414. function WNetCancelConnection2A; external mpr name 'WNetCancelConnection2A';
  1415. {$ENDIF DYNAMIC_LINK}
  1417. {$IFDEF DYNAMIC_LINK}
  1418. var
  1419.   _WNetCancelConnection2W: Pointer;
  1421. function WNetCancelConnection2W;
  1422. begin
  1423.   GetProcedureAddress(_WNetCancelConnection2W, mpr, 'WNetCancelConnection2W');
  1424.   asm
  1425.     mov esp, ebp
  1426.     pop ebp
  1427.     jmp [_WNetCancelConnection2W]
  1428.   end;
  1429. end;
  1430. {$ELSE}
  1431. function WNetCancelConnection2W; external mpr name 'WNetCancelConnection2W';
  1432. {$ENDIF DYNAMIC_LINK}
  1433. {$IFDEF UNICODE}
  1435. {$IFDEF DYNAMIC_LINK}
  1436. var
  1437.   _WNetCancelConnection2: Pointer;
  1439. function WNetCancelConnection2;
  1440. begin
  1441.   GetProcedureAddress(_WNetCancelConnection2, mpr, 'WNetCancelConnection2W');
  1442.   asm
  1443.     mov esp, ebp
  1444.     pop ebp
  1445.     jmp [_WNetCancelConnection2]
  1446.   end;
  1447. end;
  1448. {$ELSE}
  1449. function WNetCancelConnection2; external mpr name 'WNetCancelConnection2W';
  1450. {$ENDIF DYNAMIC_LINK}
  1451. {$ELSE}
  1453. {$IFDEF DYNAMIC_LINK}
  1454. var
  1455.   _WNetCancelConnection2: Pointer;
  1457. function WNetCancelConnection2;
  1458. begin
  1459.   GetProcedureAddress(_WNetCancelConnection2, mpr, 'WNetCancelConnection2A');
  1460.   asm
  1461.     mov esp, ebp
  1462.     pop ebp
  1463.     jmp [_WNetCancelConnection2]
  1464.   end;
  1465. end;
  1466. {$ELSE}
  1467. function WNetCancelConnection2; external mpr name 'WNetCancelConnection2A';
  1468. {$ENDIF DYNAMIC_LINK}
  1469. {$ENDIF}
  1471. {$IFDEF DYNAMIC_LINK}
  1472. var
  1473.   _WNetGetConnectionA: Pointer;
  1475. function WNetGetConnectionA;
  1476. begin
  1477.   GetProcedureAddress(_WNetGetConnectionA, mpr, 'WNetGetConnectionA');
  1478.   asm
  1479.     mov esp, ebp
  1480.     pop ebp
  1481.     jmp [_WNetGetConnectionA]
  1482.   end;
  1483. end;
  1484. {$ELSE}
  1485. function WNetGetConnectionA; external mpr name 'WNetGetConnectionA';
  1486. {$ENDIF DYNAMIC_LINK}
  1488. {$IFDEF DYNAMIC_LINK}
  1489. var
  1490.   _WNetGetConnectionW: Pointer;
  1492. function WNetGetConnectionW;
  1493. begin
  1494.   GetProcedureAddress(_WNetGetConnectionW, mpr, 'WNetGetConnectionW');
  1495.   asm
  1496.     mov esp, ebp
  1497.     pop ebp
  1498.     jmp [_WNetGetConnectionW]
  1499.   end;
  1500. end;
  1501. {$ELSE}
  1502. function WNetGetConnectionW; external mpr name 'WNetGetConnectionW';
  1503. {$ENDIF DYNAMIC_LINK}
  1504. {$IFDEF UNICODE}
  1506. {$IFDEF DYNAMIC_LINK}
  1507. var
  1508.   _WNetGetConnection: Pointer;
  1510. function WNetGetConnection;
  1511. begin
  1512.   GetProcedureAddress(_WNetGetConnection, mpr, 'WNetGetConnectionW');
  1513.   asm
  1514.     mov esp, ebp
  1515.     pop ebp
  1516.     jmp [_WNetGetConnection]
  1517.   end;
  1518. end;
  1519. {$ELSE}
  1520. function WNetGetConnection; external mpr name 'WNetGetConnectionW';
  1521. {$ENDIF DYNAMIC_LINK}
  1522. {$ELSE}
  1524. {$IFDEF DYNAMIC_LINK}
  1525. var
  1526.   _WNetGetConnection: Pointer;
  1528. function WNetGetConnection;
  1529. begin
  1530.   GetProcedureAddress(_WNetGetConnection, mpr, 'WNetGetConnectionA');
  1531.   asm
  1532.     mov esp, ebp
  1533.     pop ebp
  1534.     jmp [_WNetGetConnection]
  1535.   end;
  1536. end;
  1537. {$ELSE}
  1538. function WNetGetConnection; external mpr name 'WNetGetConnectionA';
  1539. {$ENDIF DYNAMIC_LINK}
  1540. {$ENDIF}
  1542. {$IFDEF DYNAMIC_LINK}
  1543. var
  1544.   _WNetUseConnectionA: Pointer;
  1546. function WNetUseConnectionA;
  1547. begin
  1548.   GetProcedureAddress(_WNetUseConnectionA, mpr, 'WNetUseConnectionA');
  1549.   asm
  1550.     mov esp, ebp
  1551.     pop ebp
  1552.     jmp [_WNetUseConnectionA]
  1553.   end;
  1554. end;
  1555. {$ELSE}
  1556. function WNetUseConnectionA; external mpr name 'WNetUseConnectionA';
  1557. {$ENDIF DYNAMIC_LINK}
  1559. {$IFDEF DYNAMIC_LINK}
  1560. var
  1561.   _WNetUseConnectionW: Pointer;
  1563. function WNetUseConnectionW;
  1564. begin
  1565.   GetProcedureAddress(_WNetUseConnectionW, mpr, 'WNetUseConnectionW');
  1566.   asm
  1567.     mov esp, ebp
  1568.     pop ebp
  1569.     jmp [_WNetUseConnectionW]
  1570.   end;
  1571. end;
  1572. {$ELSE}
  1573. function WNetUseConnectionW; external mpr name 'WNetUseConnectionW';
  1574. {$ENDIF DYNAMIC_LINK}
  1575. {$IFDEF UNICODE}
  1577. {$IFDEF DYNAMIC_LINK}
  1578. var
  1579.   _WNetUseConnection: Pointer;
  1581. function WNetUseConnection;
  1582. begin
  1583.   GetProcedureAddress(_WNetUseConnection, mpr, 'WNetUseConnectionW');
  1584.   asm
  1585.     mov esp, ebp
  1586.     pop ebp
  1587.     jmp [_WNetUseConnection]
  1588.   end;
  1589. end;
  1590. {$ELSE}
  1591. function WNetUseConnection; external mpr name 'WNetUseConnectionW';
  1592. {$ENDIF DYNAMIC_LINK}
  1593. {$ELSE}
  1595. {$IFDEF DYNAMIC_LINK}
  1596. var
  1597.   _WNetUseConnection: Pointer;
  1599. function WNetUseConnection;
  1600. begin
  1601.   GetProcedureAddress(_WNetUseConnection, mpr, 'WNetUseConnectionA');
  1602.   asm
  1603.     mov esp, ebp
  1604.     pop ebp
  1605.     jmp [_WNetUseConnection]
  1606.   end;
  1607. end;
  1608. {$ELSE}
  1609. function WNetUseConnection; external mpr name 'WNetUseConnectionA';
  1610. {$ENDIF DYNAMIC_LINK}
  1611. {$ENDIF}
  1613. {$IFDEF DYNAMIC_LINK}
  1614. var
  1615.   _WNetConnectionDialog: Pointer;
  1617. function WNetConnectionDialog;
  1618. begin
  1619.   GetProcedureAddress(_WNetConnectionDialog, mpr, 'WNetConnectionDialog');
  1620.   asm
  1621.     mov esp, ebp
  1622.     pop ebp
  1623.     jmp [_WNetConnectionDialog]
  1624.   end;
  1625. end;
  1626. {$ELSE}
  1627. function WNetConnectionDialog; external mpr name 'WNetConnectionDialog';
  1628. {$ENDIF DYNAMIC_LINK}
  1630. {$IFDEF DYNAMIC_LINK}
  1631. var
  1632.   _WNetDisconnectDialog: Pointer;
  1634. function WNetDisconnectDialog;
  1635. begin
  1636.   GetProcedureAddress(_WNetDisconnectDialog, mpr, 'WNetDisconnectDialog');
  1637.   asm
  1638.     mov esp, ebp
  1639.     pop ebp
  1640.     jmp [_WNetDisconnectDialog]
  1641.   end;
  1642. end;
  1643. {$ELSE}
  1644. function WNetDisconnectDialog; external mpr name 'WNetDisconnectDialog';
  1645. {$ENDIF DYNAMIC_LINK}
  1647. {$IFDEF DYNAMIC_LINK}
  1648. var
  1649.   _WNetConnectionDialog1A: Pointer;
  1651. function WNetConnectionDialog1A;
  1652. begin
  1653.   GetProcedureAddress(_WNetConnectionDialog1A, mpr, 'WNetConnectionDialog1A');
  1654.   asm
  1655.     mov esp, ebp
  1656.     pop ebp
  1657.     jmp [_WNetConnectionDialog1A]
  1658.   end;
  1659. end;
  1660. {$ELSE}
  1661. function WNetConnectionDialog1A; external mpr name 'WNetConnectionDialog1A';
  1662. {$ENDIF DYNAMIC_LINK}
  1664. {$IFDEF DYNAMIC_LINK}
  1665. var
  1666.   _WNetConnectionDialog1W: Pointer;
  1668. function WNetConnectionDialog1W;
  1669. begin
  1670.   GetProcedureAddress(_WNetConnectionDialog1W, mpr, 'WNetConnectionDialog1W');
  1671.   asm
  1672.     mov esp, ebp
  1673.     pop ebp
  1674.     jmp [_WNetConnectionDialog1W]
  1675.   end;
  1676. end;
  1677. {$ELSE}
  1678. function WNetConnectionDialog1W; external mpr name 'WNetConnectionDialog1W';
  1679. {$ENDIF DYNAMIC_LINK}
  1680. {$IFDEF UNICODE}
  1682. {$IFDEF DYNAMIC_LINK}
  1683. var
  1684.   _WNetConnectionDialog1: Pointer;
  1686. function WNetConnectionDialog1;
  1687. begin
  1688.   GetProcedureAddress(_WNetConnectionDialog1, mpr, 'WNetConnectionDialog1W');
  1689.   asm
  1690.     mov esp, ebp
  1691.     pop ebp
  1692.     jmp [_WNetConnectionDialog1]
  1693.   end;
  1694. end;
  1695. {$ELSE}
  1696. function WNetConnectionDialog1; external mpr name 'WNetConnectionDialog1W';
  1697. {$ENDIF DYNAMIC_LINK}
  1698. {$ELSE}
  1700. {$IFDEF DYNAMIC_LINK}
  1701. var
  1702.   _WNetConnectionDialog1: Pointer;
  1704. function WNetConnectionDialog1;
  1705. begin
  1706.   GetProcedureAddress(_WNetConnectionDialog1, mpr, 'WNetConnectionDialog1A');
  1707.   asm
  1708.     mov esp, ebp
  1709.     pop ebp
  1710.     jmp [_WNetConnectionDialog1]
  1711.   end;
  1712. end;
  1713. {$ELSE}
  1714. function WNetConnectionDialog1; external mpr name 'WNetConnectionDialog1A';
  1715. {$ENDIF DYNAMIC_LINK}
  1716. {$ENDIF}
  1718. {$IFDEF DYNAMIC_LINK}
  1719. var
  1720.   _WNetDisconnectDialog1A: Pointer;
  1722. function WNetDisconnectDialog1A;
  1723. begin
  1724.   GetProcedureAddress(_WNetDisconnectDialog1A, mpr, 'WNetDisconnectDialog1A');
  1725.   asm
  1726.     mov esp, ebp
  1727.     pop ebp
  1728.     jmp [_WNetDisconnectDialog1A]
  1729.   end;
  1730. end;
  1731. {$ELSE}
  1732. function WNetDisconnectDialog1A; external mpr name 'WNetDisconnectDialog1A';
  1733. {$ENDIF DYNAMIC_LINK}
  1735. {$IFDEF DYNAMIC_LINK}
  1736. var
  1737.   _WNetDisconnectDialog1W: Pointer;
  1739. function WNetDisconnectDialog1W;
  1740. begin
  1741.   GetProcedureAddress(_WNetDisconnectDialog1W, mpr, 'WNetDisconnectDialog1W');
  1742.   asm
  1743.     mov esp, ebp
  1744.     pop ebp
  1745.     jmp [_WNetDisconnectDialog1W]
  1746.   end;
  1747. end;
  1748. {$ELSE}
  1749. function WNetDisconnectDialog1W; external mpr name 'WNetDisconnectDialog1W';
  1750. {$ENDIF DYNAMIC_LINK}
  1751. {$IFDEF UNICODE}
  1753. {$IFDEF DYNAMIC_LINK}
  1754. var
  1755.   _WNetDisconnectDialog1: Pointer;
  1757. function WNetDisconnectDialog1;
  1758. begin
  1759.   GetProcedureAddress(_WNetDisconnectDialog1, mpr, 'WNetDisconnectDialog1W');
  1760.   asm
  1761.     mov esp, ebp
  1762.     pop ebp
  1763.     jmp [_WNetDisconnectDialog1]
  1764.   end;
  1765. end;
  1766. {$ELSE}
  1767. function WNetDisconnectDialog1; external mpr name 'WNetDisconnectDialog1W';
  1768. {$ENDIF DYNAMIC_LINK}
  1769. {$ELSE}
  1771. {$IFDEF DYNAMIC_LINK}
  1772. var
  1773.   _WNetDisconnectDialog1: Pointer;
  1775. function WNetDisconnectDialog1;
  1776. begin
  1777.   GetProcedureAddress(_WNetDisconnectDialog1, mpr, 'WNetDisconnectDialog1A');
  1778.   asm
  1779.     mov esp, ebp
  1780.     pop ebp
  1781.     jmp [_WNetDisconnectDialog1]
  1782.   end;
  1783. end;
  1784. {$ELSE}
  1785. function WNetDisconnectDialog1; external mpr name 'WNetDisconnectDialog1A';
  1786. {$ENDIF DYNAMIC_LINK}
  1787. {$ENDIF}
  1789. {$IFDEF DYNAMIC_LINK}
  1790. var
  1791.   _WNetOpenEnumA: Pointer;
  1793. function WNetOpenEnumA;
  1794. begin
  1795.   GetProcedureAddress(_WNetOpenEnumA, mpr, 'WNetOpenEnumA');
  1796.   asm
  1797.     mov esp, ebp
  1798.     pop ebp
  1799.     jmp [_WNetOpenEnumA]
  1800.   end;
  1801. end;
  1802. {$ELSE}
  1803. function WNetOpenEnumA; external mpr name 'WNetOpenEnumA';
  1804. {$ENDIF DYNAMIC_LINK}
  1806. {$IFDEF DYNAMIC_LINK}
  1807. var
  1808.   _WNetOpenEnumW: Pointer;
  1810. function WNetOpenEnumW;
  1811. begin
  1812.   GetProcedureAddress(_WNetOpenEnumW, mpr, 'WNetOpenEnumW');
  1813.   asm
  1814.     mov esp, ebp
  1815.     pop ebp
  1816.     jmp [_WNetOpenEnumW]
  1817.   end;
  1818. end;
  1819. {$ELSE}
  1820. function WNetOpenEnumW; external mpr name 'WNetOpenEnumW';
  1821. {$ENDIF DYNAMIC_LINK}
  1822. {$IFDEF UNICODE}
  1824. {$IFDEF DYNAMIC_LINK}
  1825. var
  1826.   _WNetOpenEnum: Pointer;
  1828. function WNetOpenEnum;
  1829. begin
  1830.   GetProcedureAddress(_WNetOpenEnum, mpr, 'WNetOpenEnumW');
  1831.   asm
  1832.     mov esp, ebp
  1833.     pop ebp
  1834.     jmp [_WNetOpenEnum]
  1835.   end;
  1836. end;
  1837. {$ELSE}
  1838. function WNetOpenEnum; external mpr name 'WNetOpenEnumW';
  1839. {$ENDIF DYNAMIC_LINK}
  1840. {$ELSE}
  1842. {$IFDEF DYNAMIC_LINK}
  1843. var
  1844.   _WNetOpenEnum: Pointer;
  1846. function WNetOpenEnum;
  1847. begin
  1848.   GetProcedureAddress(_WNetOpenEnum, mpr, 'WNetOpenEnumA');
  1849.   asm
  1850.     mov esp, ebp
  1851.     pop ebp
  1852.     jmp [_WNetOpenEnum]
  1853.   end;
  1854. end;
  1855. {$ELSE}
  1856. function WNetOpenEnum; external mpr name 'WNetOpenEnumA';
  1857. {$ENDIF DYNAMIC_LINK}
  1858. {$ENDIF}
  1860. {$IFDEF DYNAMIC_LINK}
  1861. var
  1862.   _WNetEnumResourceA: Pointer;
  1864. function WNetEnumResourceA;
  1865. begin
  1866.   GetProcedureAddress(_WNetEnumResourceA, mpr, 'WNetEnumResourceA');
  1867.   asm
  1868.     mov esp, ebp
  1869.     pop ebp
  1870.     jmp [_WNetEnumResourceA]
  1871.   end;
  1872. end;
  1873. {$ELSE}
  1874. function WNetEnumResourceA; external mpr name 'WNetEnumResourceA';
  1875. {$ENDIF DYNAMIC_LINK}
  1877. {$IFDEF DYNAMIC_LINK}
  1878. var
  1879.   _WNetEnumResourceW: Pointer;
  1881. function WNetEnumResourceW;
  1882. begin
  1883.   GetProcedureAddress(_WNetEnumResourceW, mpr, 'WNetEnumResourceW');
  1884.   asm
  1885.     mov esp, ebp
  1886.     pop ebp
  1887.     jmp [_WNetEnumResourceW]
  1888.   end;
  1889. end;
  1890. {$ELSE}
  1891. function WNetEnumResourceW; external mpr name 'WNetEnumResourceW';
  1892. {$ENDIF DYNAMIC_LINK}
  1893. {$IFDEF UNICODE}
  1895. {$IFDEF DYNAMIC_LINK}
  1896. var
  1897.   _WNetEnumResource: Pointer;
  1899. function WNetEnumResource;
  1900. begin
  1901.   GetProcedureAddress(_WNetEnumResource, mpr, 'WNetEnumResourceW');
  1902.   asm
  1903.     mov esp, ebp
  1904.     pop ebp
  1905.     jmp [_WNetEnumResource]
  1906.   end;
  1907. end;
  1908. {$ELSE}
  1909. function WNetEnumResource; external mpr name 'WNetEnumResourceW';
  1910. {$ENDIF DYNAMIC_LINK}
  1911. {$ELSE}
  1913. {$IFDEF DYNAMIC_LINK}
  1914. var
  1915.   _WNetEnumResource: Pointer;
  1917. function WNetEnumResource;
  1918. begin
  1919.   GetProcedureAddress(_WNetEnumResource, mpr, 'WNetEnumResourceA');
  1920.   asm
  1921.     mov esp, ebp
  1922.     pop ebp
  1923.     jmp [_WNetEnumResource]
  1924.   end;
  1925. end;
  1926. {$ELSE}
  1927. function WNetEnumResource; external mpr name 'WNetEnumResourceA';
  1928. {$ENDIF DYNAMIC_LINK}
  1929. {$ENDIF}
  1931. {$IFDEF DYNAMIC_LINK}
  1932. var
  1933.   _WNetCloseEnum: Pointer;
  1935. function WNetCloseEnum;
  1936. begin
  1937.   GetProcedureAddress(_WNetCloseEnum, mpr, 'WNetCloseEnum');
  1938.   asm
  1939.     mov esp, ebp
  1940.     pop ebp
  1941.     jmp [_WNetCloseEnum]
  1942.   end;
  1943. end;
  1944. {$ELSE}
  1945. function WNetCloseEnum; external mpr name 'WNetCloseEnum';
  1946. {$ENDIF DYNAMIC_LINK}
  1948. {$IFDEF DYNAMIC_LINK}
  1949. var
  1950.   _WNetGetResourceParentA: Pointer;
  1952. function WNetGetResourceParentA;
  1953. begin
  1954.   GetProcedureAddress(_WNetGetResourceParentA, mpr, 'WNetGetResourceParentA');
  1955.   asm
  1956.     mov esp, ebp
  1957.     pop ebp
  1958.     jmp [_WNetGetResourceParentA]
  1959.   end;
  1960. end;
  1961. {$ELSE}
  1962. function WNetGetResourceParentA; external mpr name 'WNetGetResourceParentA';
  1963. {$ENDIF DYNAMIC_LINK}
  1965. {$IFDEF DYNAMIC_LINK}
  1966. var
  1967.   _WNetGetResourceParentW: Pointer;
  1969. function WNetGetResourceParentW;
  1970. begin
  1971.   GetProcedureAddress(_WNetGetResourceParentW, mpr, 'WNetGetResourceParentW');
  1972.   asm
  1973.     mov esp, ebp
  1974.     pop ebp
  1975.     jmp [_WNetGetResourceParentW]
  1976.   end;
  1977. end;
  1978. {$ELSE}
  1979. function WNetGetResourceParentW; external mpr name 'WNetGetResourceParentW';
  1980. {$ENDIF DYNAMIC_LINK}
  1981. {$IFDEF UNICODE}
  1983. {$IFDEF DYNAMIC_LINK}
  1984. var
  1985.   _WNetGetResourceParent: Pointer;
  1987. function WNetGetResourceParent;
  1988. begin
  1989.   GetProcedureAddress(_WNetGetResourceParent, mpr, 'WNetGetResourceParentW');
  1990.   asm
  1991.     mov esp, ebp
  1992.     pop ebp
  1993.     jmp [_WNetGetResourceParent]
  1994.   end;
  1995. end;
  1996. {$ELSE}
  1997. function WNetGetResourceParent; external mpr name 'WNetGetResourceParentW';
  1998. {$ENDIF DYNAMIC_LINK}
  1999. {$ELSE}
  2001. {$IFDEF DYNAMIC_LINK}
  2002. var
  2003.   _WNetGetResourceParent: Pointer;
  2005. function WNetGetResourceParent;
  2006. begin
  2007.   GetProcedureAddress(_WNetGetResourceParent, mpr, 'WNetGetResourceParentA');
  2008.   asm
  2009.     mov esp, ebp
  2010.     pop ebp
  2011.     jmp [_WNetGetResourceParent]
  2012.   end;
  2013. end;
  2014. {$ELSE}
  2015. function WNetGetResourceParent; external mpr name 'WNetGetResourceParentA';
  2016. {$ENDIF DYNAMIC_LINK}
  2017. {$ENDIF}
  2019. {$IFDEF DYNAMIC_LINK}
  2020. var
  2021.   _WNetGetResourceInformationA: Pointer;
  2023. function WNetGetResourceInformationA;
  2024. begin
  2025.   GetProcedureAddress(_WNetGetResourceInformationA, mpr, 'WNetGetResourceInformationA');
  2026.   asm
  2027.     mov esp, ebp
  2028.     pop ebp
  2029.     jmp [_WNetGetResourceInformationA]
  2030.   end;
  2031. end;
  2032. {$ELSE}
  2033. function WNetGetResourceInformationA; external mpr name 'WNetGetResourceInformationA';
  2034. {$ENDIF DYNAMIC_LINK}
  2036. {$IFDEF DYNAMIC_LINK}
  2037. var
  2038.   _WNetGetResourceInformationW: Pointer;
  2040. function WNetGetResourceInformationW;
  2041. begin
  2042.   GetProcedureAddress(_WNetGetResourceInformationW, mpr, 'WNetGetResourceInformationW');
  2043.   asm
  2044.     mov esp, ebp
  2045.     pop ebp
  2046.     jmp [_WNetGetResourceInformationW]
  2047.   end;
  2048. end;
  2049. {$ELSE}
  2050. function WNetGetResourceInformationW; external mpr name 'WNetGetResourceInformationW';
  2051. {$ENDIF DYNAMIC_LINK}
  2052. {$IFDEF UNICODE}
  2054. {$IFDEF DYNAMIC_LINK}
  2055. var
  2056.   _WNetGetResourceInformation: Pointer;
  2058. function WNetGetResourceInformation;
  2059. begin
  2060.   GetProcedureAddress(_WNetGetResourceInformation, mpr, 'WNetGetResourceInformationW');
  2061.   asm
  2062.     mov esp, ebp
  2063.     pop ebp
  2064.     jmp [_WNetGetResourceInformation]
  2065.   end;
  2066. end;
  2067. {$ELSE}
  2068. function WNetGetResourceInformation; external mpr name 'WNetGetResourceInformationW';
  2069. {$ENDIF DYNAMIC_LINK}
  2070. {$ELSE}
  2072. {$IFDEF DYNAMIC_LINK}
  2073. var
  2074.   _WNetGetResourceInformation: Pointer;
  2076. function WNetGetResourceInformation;
  2077. begin
  2078.   GetProcedureAddress(_WNetGetResourceInformation, mpr, 'WNetGetResourceInformationA');
  2079.   asm
  2080.     mov esp, ebp
  2081.     pop ebp
  2082.     jmp [_WNetGetResourceInformation]
  2083.   end;
  2084. end;
  2085. {$ELSE}
  2086. function WNetGetResourceInformation; external mpr name 'WNetGetResourceInformationA';
  2087. {$ENDIF DYNAMIC_LINK}
  2088. {$ENDIF}
  2090. {$IFDEF DYNAMIC_LINK}
  2091. var
  2092.   _WNetGetUniversalNameA: Pointer;
  2094. function WNetGetUniversalNameA;
  2095. begin
  2096.   GetProcedureAddress(_WNetGetUniversalNameA, mpr, 'WNetGetUniversalNameA');
  2097.   asm
  2098.     mov esp, ebp
  2099.     pop ebp
  2100.     jmp [_WNetGetUniversalNameA]
  2101.   end;
  2102. end;
  2103. {$ELSE}
  2104. function WNetGetUniversalNameA; external mpr name 'WNetGetUniversalNameA';
  2105. {$ENDIF DYNAMIC_LINK}
  2107. {$IFDEF DYNAMIC_LINK}
  2108. var
  2109.   _WNetGetUniversalNameW: Pointer;
  2111. function WNetGetUniversalNameW;
  2112. begin
  2113.   GetProcedureAddress(_WNetGetUniversalNameW, mpr, 'WNetGetUniversalNameW');
  2114.   asm
  2115.     mov esp, ebp
  2116.     pop ebp
  2117.     jmp [_WNetGetUniversalNameW]
  2118.   end;
  2119. end;
  2120. {$ELSE}
  2121. function WNetGetUniversalNameW; external mpr name 'WNetGetUniversalNameW';
  2122. {$ENDIF DYNAMIC_LINK}
  2123. {$IFDEF UNICODE}
  2125. {$IFDEF DYNAMIC_LINK}
  2126. var
  2127.   _WNetGetUniversalName: Pointer;
  2129. function WNetGetUniversalName;
  2130. begin
  2131.   GetProcedureAddress(_WNetGetUniversalName, mpr, 'WNetGetUniversalNameW');
  2132.   asm
  2133.     mov esp, ebp
  2134.     pop ebp
  2135.     jmp [_WNetGetUniversalName]
  2136.   end;
  2137. end;
  2138. {$ELSE}
  2139. function WNetGetUniversalName; external mpr name 'WNetGetUniversalNameW';
  2140. {$ENDIF DYNAMIC_LINK}
  2141. {$ELSE}
  2143. {$IFDEF DYNAMIC_LINK}
  2144. var
  2145.   _WNetGetUniversalName: Pointer;
  2147. function WNetGetUniversalName;
  2148. begin
  2149.   GetProcedureAddress(_WNetGetUniversalName, mpr, 'WNetGetUniversalNameA');
  2150.   asm
  2151.     mov esp, ebp
  2152.     pop ebp
  2153.     jmp [_WNetGetUniversalName]
  2154.   end;
  2155. end;
  2156. {$ELSE}
  2157. function WNetGetUniversalName; external mpr name 'WNetGetUniversalNameA';
  2158. {$ENDIF DYNAMIC_LINK}
  2159. {$ENDIF}
  2161. {$IFDEF DYNAMIC_LINK}
  2162. var
  2163.   _WNetGetUserA: Pointer;
  2165. function WNetGetUserA;
  2166. begin
  2167.   GetProcedureAddress(_WNetGetUserA, mpr, 'WNetGetUserA');
  2168.   asm
  2169.     mov esp, ebp
  2170.     pop ebp
  2171.     jmp [_WNetGetUserA]
  2172.   end;
  2173. end;
  2174. {$ELSE}
  2175. function WNetGetUserA; external mpr name 'WNetGetUserA';
  2176. {$ENDIF DYNAMIC_LINK}
  2178. {$IFDEF DYNAMIC_LINK}
  2179. var
  2180.   _WNetGetUserW: Pointer;
  2182. function WNetGetUserW;
  2183. begin
  2184.   GetProcedureAddress(_WNetGetUserW, mpr, 'WNetGetUserW');
  2185.   asm
  2186.     mov esp, ebp
  2187.     pop ebp
  2188.     jmp [_WNetGetUserW]
  2189.   end;
  2190. end;
  2191. {$ELSE}
  2192. function WNetGetUserW; external mpr name 'WNetGetUserW';
  2193. {$ENDIF DYNAMIC_LINK}
  2194. {$IFDEF UNICODE}
  2196. {$IFDEF DYNAMIC_LINK}
  2197. var
  2198.   _WNetGetUser: Pointer;
  2200. function WNetGetUser;
  2201. begin
  2202.   GetProcedureAddress(_WNetGetUser, mpr, 'WNetGetUserW');
  2203.   asm
  2204.     mov esp, ebp
  2205.     pop ebp
  2206.     jmp [_WNetGetUser]
  2207.   end;
  2208. end;
  2209. {$ELSE}
  2210. function WNetGetUser; external mpr name 'WNetGetUserW';
  2211. {$ENDIF DYNAMIC_LINK}
  2212. {$ELSE}
  2214. {$IFDEF DYNAMIC_LINK}
  2215. var
  2216.   _WNetGetUser: Pointer;
  2218. function WNetGetUser;
  2219. begin
  2220.   GetProcedureAddress(_WNetGetUser, mpr, 'WNetGetUserA');
  2221.   asm
  2222.     mov esp, ebp
  2223.     pop ebp
  2224.     jmp [_WNetGetUser]
  2225.   end;
  2226. end;
  2227. {$ELSE}
  2228. function WNetGetUser; external mpr name 'WNetGetUserA';
  2229. {$ENDIF DYNAMIC_LINK}
  2230. {$ENDIF}
  2232. {$IFDEF DYNAMIC_LINK}
  2233. var
  2234.   _WNetGetProviderNameA: Pointer;
  2236. function WNetGetProviderNameA;
  2237. begin
  2238.   GetProcedureAddress(_WNetGetProviderNameA, mpr, 'WNetGetProviderNameA');
  2239.   asm
  2240.     mov esp, ebp
  2241.     pop ebp
  2242.     jmp [_WNetGetProviderNameA]
  2243.   end;
  2244. end;
  2245. {$ELSE}
  2246. function WNetGetProviderNameA; external mpr name 'WNetGetProviderNameA';
  2247. {$ENDIF DYNAMIC_LINK}
  2249. {$IFDEF DYNAMIC_LINK}
  2250. var
  2251.   _WNetGetProviderNameW: Pointer;
  2253. function WNetGetProviderNameW;
  2254. begin
  2255.   GetProcedureAddress(_WNetGetProviderNameW, mpr, 'WNetGetProviderNameW');
  2256.   asm
  2257.     mov esp, ebp
  2258.     pop ebp
  2259.     jmp [_WNetGetProviderNameW]
  2260.   end;
  2261. end;
  2262. {$ELSE}
  2263. function WNetGetProviderNameW; external mpr name 'WNetGetProviderNameW';
  2264. {$ENDIF DYNAMIC_LINK}
  2265. {$IFDEF UNICODE}
  2267. {$IFDEF DYNAMIC_LINK}
  2268. var
  2269.   _WNetGetProviderName: Pointer;
  2271. function WNetGetProviderName;
  2272. begin
  2273.   GetProcedureAddress(_WNetGetProviderName, mpr, 'WNetGetProviderNameW');
  2274.   asm
  2275.     mov esp, ebp
  2276.     pop ebp
  2277.     jmp [_WNetGetProviderName]
  2278.   end;
  2279. end;
  2280. {$ELSE}
  2281. function WNetGetProviderName; external mpr name 'WNetGetProviderNameW';
  2282. {$ENDIF DYNAMIC_LINK}
  2283. {$ELSE}
  2285. {$IFDEF DYNAMIC_LINK}
  2286. var
  2287.   _WNetGetProviderName: Pointer;
  2289. function WNetGetProviderName;
  2290. begin
  2291.   GetProcedureAddress(_WNetGetProviderName, mpr, 'WNetGetProviderNameA');
  2292.   asm
  2293.     mov esp, ebp
  2294.     pop ebp
  2295.     jmp [_WNetGetProviderName]
  2296.   end;
  2297. end;
  2298. {$ELSE}
  2299. function WNetGetProviderName; external mpr name 'WNetGetProviderNameA';
  2300. {$ENDIF DYNAMIC_LINK}
  2301. {$ENDIF}
  2303. {$IFDEF DYNAMIC_LINK}
  2304. var
  2305.   _WNetGetNetworkInformationA: Pointer;
  2307. function WNetGetNetworkInformationA;
  2308. begin
  2309.   GetProcedureAddress(_WNetGetNetworkInformationA, mpr, 'WNetGetNetworkInformationA');
  2310.   asm
  2311.     mov esp, ebp
  2312.     pop ebp
  2313.     jmp [_WNetGetNetworkInformationA]
  2314.   end;
  2315. end;
  2316. {$ELSE}
  2317. function WNetGetNetworkInformationA; external mpr name 'WNetGetNetworkInformationA';
  2318. {$ENDIF DYNAMIC_LINK}
  2320. {$IFDEF DYNAMIC_LINK}
  2321. var
  2322.   _WNetGetNetworkInformationW: Pointer;
  2324. function WNetGetNetworkInformationW;
  2325. begin
  2326.   GetProcedureAddress(_WNetGetNetworkInformationW, mpr, 'WNetGetNetworkInformationW');
  2327.   asm
  2328.     mov esp, ebp
  2329.     pop ebp
  2330.     jmp [_WNetGetNetworkInformationW]
  2331.   end;
  2332. end;
  2333. {$ELSE}
  2334. function WNetGetNetworkInformationW; external mpr name 'WNetGetNetworkInformationW';
  2335. {$ENDIF DYNAMIC_LINK}
  2336. {$IFDEF UNICODE}
  2338. {$IFDEF DYNAMIC_LINK}
  2339. var
  2340.   _WNetGetNetworkInformation: Pointer;
  2342. function WNetGetNetworkInformation;
  2343. begin
  2344.   GetProcedureAddress(_WNetGetNetworkInformation, mpr, 'WNetGetNetworkInformationW');
  2345.   asm
  2346.     mov esp, ebp
  2347.     pop ebp
  2348.     jmp [_WNetGetNetworkInformation]
  2349.   end;
  2350. end;
  2351. {$ELSE}
  2352. function WNetGetNetworkInformation; external mpr name 'WNetGetNetworkInformationW';
  2353. {$ENDIF DYNAMIC_LINK}
  2354. {$ELSE}
  2356. {$IFDEF DYNAMIC_LINK}
  2357. var
  2358.   _WNetGetNetworkInformation: Pointer;
  2360. function WNetGetNetworkInformation;
  2361. begin
  2362.   GetProcedureAddress(_WNetGetNetworkInformation, mpr, 'WNetGetNetworkInformationA');
  2363.   asm
  2364.     mov esp, ebp
  2365.     pop ebp
  2366.     jmp [_WNetGetNetworkInformation]
  2367.   end;
  2368. end;
  2369. {$ELSE}
  2370. function WNetGetNetworkInformation; external mpr name 'WNetGetNetworkInformationA';
  2371. {$ENDIF DYNAMIC_LINK}
  2372. {$ENDIF}
  2374. {$IFDEF DYNAMIC_LINK}
  2375. var
  2376.   _WNetGetLastErrorA: Pointer;
  2378. function WNetGetLastErrorA;
  2379. begin
  2380.   GetProcedureAddress(_WNetGetLastErrorA, mpr, 'WNetGetLastErrorA');
  2381.   asm
  2382.     mov esp, ebp
  2383.     pop ebp
  2384.     jmp [_WNetGetLastErrorA]
  2385.   end;
  2386. end;
  2387. {$ELSE}
  2388. function WNetGetLastErrorA; external mpr name 'WNetGetLastErrorA';
  2389. {$ENDIF DYNAMIC_LINK}
  2391. {$IFDEF DYNAMIC_LINK}
  2392. var
  2393.   _WNetGetLastErrorW: Pointer;
  2395. function WNetGetLastErrorW;
  2396. begin
  2397.   GetProcedureAddress(_WNetGetLastErrorW, mpr, 'WNetGetLastErrorW');
  2398.   asm
  2399.     mov esp, ebp
  2400.     pop ebp
  2401.     jmp [_WNetGetLastErrorW]
  2402.   end;
  2403. end;
  2404. {$ELSE}
  2405. function WNetGetLastErrorW; external mpr name 'WNetGetLastErrorW';
  2406. {$ENDIF DYNAMIC_LINK}
  2407. {$IFDEF UNICODE}
  2409. {$IFDEF DYNAMIC_LINK}
  2410. var
  2411.   _WNetGetLastError: Pointer;
  2413. function WNetGetLastError;
  2414. begin
  2415.   GetProcedureAddress(_WNetGetLastError, mpr, 'WNetGetLastErrorW');
  2416.   asm
  2417.     mov esp, ebp
  2418.     pop ebp
  2419.     jmp [_WNetGetLastError]
  2420.   end;
  2421. end;
  2422. {$ELSE}
  2423. function WNetGetLastError; external mpr name 'WNetGetLastErrorW';
  2424. {$ENDIF DYNAMIC_LINK}
  2425. {$ELSE}
  2427. {$IFDEF DYNAMIC_LINK}
  2428. var
  2429.   _WNetGetLastError: Pointer;
  2431. function WNetGetLastError;
  2432. begin
  2433.   GetProcedureAddress(_WNetGetLastError, mpr, 'WNetGetLastErrorA');
  2434.   asm
  2435.     mov esp, ebp
  2436.     pop ebp
  2437.     jmp [_WNetGetLastError]
  2438.   end;
  2439. end;
  2440. {$ELSE}
  2441. function WNetGetLastError; external mpr name 'WNetGetLastErrorA';
  2442. {$ENDIF DYNAMIC_LINK}
  2443. {$ENDIF}
  2445. {$IFDEF DYNAMIC_LINK}
  2446. var
  2447.   _MultinetGetConnectionPerfA: Pointer;
  2449. function MultinetGetConnectionPerformanceA;
  2450. begin
  2451.   GetProcedureAddress(_MultinetGetConnectionPerfA, mpr, 'MultinetGetConnectionPerformanceA');
  2452.   asm
  2453.     mov esp, ebp
  2454.     pop ebp
  2455.     jmp [_MultinetGetConnectionPerfA]
  2456.   end;
  2457. end;
  2458. {$ELSE}
  2459. function MultinetGetConnectionPerformanceA; external mpr name 'MultinetGetConnectionPerformanceA';
  2460. {$ENDIF DYNAMIC_LINK}
  2462. {$IFDEF DYNAMIC_LINK}
  2463. var
  2464.   _MultinetGetConnectionPerfW: Pointer;
  2466. function MultinetGetConnectionPerformanceW;
  2467. begin
  2468.   GetProcedureAddress(_MultinetGetConnectionPerfW, mpr, 'MultinetGetConnectionPerformanceW');
  2469.   asm
  2470.     mov esp, ebp
  2471.     pop ebp
  2472.     jmp [_MultinetGetConnectionPerfW]
  2473.   end;
  2474. end;
  2475. {$ELSE}
  2476. function MultinetGetConnectionPerformanceW; external mpr name 'MultinetGetConnectionPerformanceW';
  2477. {$ENDIF DYNAMIC_LINK}
  2478. {$IFDEF UNICODE}
  2480. {$IFDEF DYNAMIC_LINK}
  2481. var
  2482.   _MultinetGetConnectionPerf: Pointer;
  2484. function MultinetGetConnectionPerformance;
  2485. begin
  2486.   GetProcedureAddress(_MultinetGetConnectionPerf, mpr, 'MultinetGetConnectionPerformanceW');
  2487.   asm
  2488.     mov esp, ebp
  2489.     pop ebp
  2490.     jmp [_MultinetGetConnectionPerf]
  2491.   end;
  2492. end;
  2493. {$ELSE}
  2494. function MultinetGetConnectionPerformance; external mpr name 'MultinetGetConnectionPerformanceW';
  2495. {$ENDIF DYNAMIC_LINK}
  2496. {$ELSE}
  2498. {$IFDEF DYNAMIC_LINK}
  2499. var
  2500.   _MultinetGetConnectionPerf: Pointer;
  2502. function MultinetGetConnectionPerformance;
  2503. begin
  2504.   GetProcedureAddress(_MultinetGetConnectionPerf, mpr, 'MultinetGetConnectionPerformanceA');
  2505.   asm
  2506.     mov esp, ebp
  2507.     pop ebp
  2508.     jmp [_MultinetGetConnectionPerf]
  2509.   end;
  2510. end;
  2511. {$ELSE}
  2512. function MultinetGetConnectionPerformance; external mpr name 'MultinetGetConnectionPerformanceA';
  2513. {$ENDIF DYNAMIC_LINK}
  2514. {$ENDIF}
  2516. end.