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

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

Windows编程

开发平台：

Delphi

JwaWPApi.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Web Publishing 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: wpapi.h, released June 2000. The original Pascal       }
  9. { code is: WPApi.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 JwaWPApi;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "wpapi.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaWPTypes, JwaWinType;
  59. //
  60. // Flags
  61. //
  63. const
  64.   WPF_NO_RECURSIVE_POST     = $00000001; // WpPost
  65.   {$EXTERNALSYM WPF_NO_RECURSIVE_POST}
  66.   WPF_NO_WIZARD             = $00000002; // WpPost
  67.   {$EXTERNALSYM WPF_NO_WIZARD}
  68.   WPF_MINIMAL_UI            = $00000004; // WpPost - OBSOLETE
  69.   {$EXTERNALSYM WPF_MINIMAL_UI}
  70.   WPF_FIRST_FILE_AS_DEFAULT = $00000008; // WpPost/PostFiles
  71.   {$EXTERNALSYM WPF_FIRST_FILE_AS_DEFAULT}
  72.   WPF_NO_DIRECT_LOOKUP      = $00000010; // WpBindToSite
  73.   {$EXTERNALSYM WPF_NO_DIRECT_LOOKUP}
  74.   WPF_NO_URL_LOOKUP         = $00000020; // WpBindToSite
  75.   {$EXTERNALSYM WPF_NO_URL_LOOKUP}
  76.   WPF_USE_PROVIDER_PASSED   = $00000040; // WpCreateSite
  77.   {$EXTERNALSYM WPF_USE_PROVIDER_PASSED}
  78.   WPF_NO_VERIFY_POST        = $00000080; // WpPost
  79.   {$EXTERNALSYM WPF_NO_VERIFY_POST}
  80.   WPF_NO_PROGRESS_DLGS      = $00000200; // WpPost
  81.   {$EXTERNALSYM WPF_NO_PROGRESS_DLGS}
  82.   WPF_SHOWPAGE_WELCOME      = $00010000; // WpPost/Wizard
  83.   {$EXTERNALSYM WPF_SHOWPAGE_WELCOME}
  84.   WPF_SHOWPAGE_SRCFILE      = $00020000; // WpPost/Wizard
  85.   {$EXTERNALSYM WPF_SHOWPAGE_SRCFILE}
  86.   WPF_SHOWPAGE_DESTSITE     = $00040000; // WpPost/Wizard
  87.   {$EXTERNALSYM WPF_SHOWPAGE_DESTSITE}
  88.   WPF_SHOWPAGE_PROVIDER     = $00080000; // WpPost/Wizard/AddWizardPages
  89.   {$EXTERNALSYM WPF_SHOWPAGE_PROVIDER}
  90.   WPF_ENABLE_LOCAL_BASE_DIR = $00100000; // WpPost/Wizard
  91.   {$EXTERNALSYM WPF_ENABLE_LOCAL_BASE_DIR}
  93.   WPF_NO_UI = WPF_NO_WIZARD or WPF_NO_PROGRESS_DLGS;
  94.   {$EXTERNALSYM WPF_NO_UI}
  96.   WPF_SHOWPAGE_ALL = WPF_SHOWPAGE_WELCOME or WPF_SHOWPAGE_SRCFILE or WPF_SHOWPAGE_DESTSITE or WPF_SHOWPAGE_PROVIDER;
  97.   {$EXTERNALSYM WPF_SHOWPAGE_ALL}
  99. //
  100. // Miscellaneous
  101. //
  103.   MAX_SITENAME_LEN = 128;
  104.   {$EXTERNALSYM MAX_SITENAME_LEN}
  106. //
  107. // Unicode APIs
  108. //
  110. function WpPostW(hwnd: HWND; dwNumLocalPaths: DWORD; pwsLocalPaths: LPWSTR;
  111.   var pdwSiteNameBufLen: DWORD; wsSiteName: LPWSTR; var pdwDestURLBufLen: DWORD;
  112.   wsDestURL: LPWSTR; dwFlag: DWORD): DWORD; stdcall;
  113. {$EXTERNALSYM WpPostW}
  114. function WpListSitesW(var pdwSitesBufLen: DWORD; pSitesBuffer: LPWPSITEINFOW;
  115.   var pdwNumSites: DWORD): DWORD; stdcall;
  116. {$EXTERNALSYM WpListSitesW}
  117. function WpDoesSiteExistW(wsSiteName: LPCWSTR; var pfSiteExists: BOOL): DWORD; stdcall;
  118. {$EXTERNALSYM WpDoesSiteExistW}
  119. function WpDeleteSiteW(wsSiteName: LPCWSTR): DWORD; stdcall;
  120. {$EXTERNALSYM WpDeleteSiteW}
  121. function WpBindToSiteW(hwnd: HWND; wsSiteName, wsSitePostingURL: LPCWSTR;
  122.   dwFlag, dwReserved: DWORD; out ppvUnk: IUnknown): DWORD; stdcall;
  123. {$EXTERNALSYM WpBindToSiteW}
  124. function WpCreateSiteW(wsSiteName, wsSiteLocalBaseDir, wsSitePostingURL,
  125.   wsProviderCLSID: LPCWSTR; dwFlags: DWORD): DWORD; stdcall;
  126. {$EXTERNALSYM WpCreateSiteW}
  127. function WpEnumProvidersW(var pdwProvidersBufLen: DWORD; pProvidersBuffer: LPWPPROVINFOW;
  128.   var pdwNumProviders: DWORD): DWORD; stdcall;
  129. {$EXTERNALSYM WpEnumProvidersW}
  130. function WpGetErrorStringW(uErrCode: UINT; wsOutputBuf: LPWSTR; var pdwBufLen: DWORD): DWORD; stdcall;
  131. {$EXTERNALSYM WpGetErrorStringW}
  133. //
  134. // ANSI APIs
  135. //
  137. function WpPostA(hwnd: HWND; dwNumLocalPaths: DWORD; pwsLocalPaths: LPSTR;
  138.   var pdwSiteNameBufLen: DWORD; wsSiteName: LPSTR; var pdwDestURLBufLen: DWORD;
  139.   wsDestURL: LPSTR; dwFlag: DWORD): DWORD; stdcall;
  140. {$EXTERNALSYM WpPostA}
  141. function WpListSitesA(var pdwSitesBufLen: DWORD; pSitesBuffer: LPWPSITEINFOA;
  142.   var pdwNumSites: DWORD): DWORD; stdcall;
  143. {$EXTERNALSYM WpListSitesA}
  144. function WpDoesSiteExistA(wsSiteName: LPCSTR; var pfSiteExists: BOOL): DWORD; stdcall;
  145. {$EXTERNALSYM WpDoesSiteExistA}
  146. function WpDeleteSiteA(wsSiteName: LPCSTR): DWORD; stdcall;
  147. {$EXTERNALSYM WpDeleteSiteA}
  148. function WpBindToSiteA(hwnd: HWND; wsSiteName, wsSitePostingURL: LPCSTR;
  149.   dwFlag, dwReserved: DWORD; out ppvUnk: IUnknown): DWORD; stdcall;
  150. {$EXTERNALSYM WpBindToSiteA}
  151. function WpCreateSiteA(wsSiteName, wsSiteLocalBaseDir, wsSitePostingURL,
  152.   wsProviderCLSID: LPCSTR; dwFlags: DWORD): DWORD; stdcall;
  153. {$EXTERNALSYM WpCreateSiteA}
  154. function WpEnumProvidersA(var pdwProvidersBufLen: DWORD; pProvidersBuffer: LPWPPROVINFOA;
  155.   var pdwNumProviders: DWORD): DWORD; stdcall;
  156. {$EXTERNALSYM WpEnumProvidersA}
  157. function WpGetErrorStringA(uErrCode: UINT; wsOutputBuf: LPSTR; var pdwBufLen: DWORD): DWORD; stdcall;
  158. {$EXTERNALSYM WpGetErrorStringA}
  160. {$IFDEF UNICODE}
  162. function WpPost(hwnd: HWND; dwNumLocalPaths: DWORD; pwsLocalPaths: LPWSTR;
  163.   var pdwSiteNameBufLen: DWORD; wsSiteName: LPWSTR; var pdwDestURLBufLen: DWORD;
  164.   wsDestURL: LPWSTR; dwFlag: DWORD): DWORD; stdcall;
  165. {$EXTERNALSYM WpPost}
  166. function WpListSites(var pdwSitesBufLen: DWORD; pSitesBuffer: LPWPSITEINFOW;
  167.   var pdwNumSites: DWORD): DWORD; stdcall;
  168. {$EXTERNALSYM WpListSites}
  169. function WpDoesSiteExist(wsSiteName: LPCWSTR; var pfSiteExists: BOOL): DWORD; stdcall;
  170. {$EXTERNALSYM WpDoesSiteExist}
  171. function WpDeleteSite(wsSiteName: LPCWSTR): DWORD; stdcall;
  172. {$EXTERNALSYM WpDeleteSite}
  173. function WpBindToSite(hwnd: HWND; wsSiteName, wsSitePostingURL: LPCWSTR;
  174.   dwFlag, dwReserved: DWORD; out ppvUnk: IUnknown): DWORD; stdcall;
  175. {$EXTERNALSYM WpBindToSite}
  176. function WpCreateSite(wsSiteName, wsSiteLocalBaseDir, wsSitePostingURL, wsProviderCLSID: LPCWSTR; dwFlags: DWORD): DWORD; stdcall;
  177. {$EXTERNALSYM WpCreateSite}
  178. function WpEnumProviders(var pdwProvidersBufLen: DWORD; pProvidersBuffer: LPWPPROVINFOW;
  179.   var pdwNumProviders: DWORD): DWORD; stdcall;
  180. {$EXTERNALSYM WpEnumProviders}
  181. function WpGetErrorString(uErrCode: UINT; wsOutputBuf: LPWSTR; var pdwBufLen: DWORD): DWORD; stdcall;
  182. {$EXTERNALSYM WpGetErrorString}
  184. {$ELSE}
  186. function WpPost(hwnd: HWND; dwNumLocalPaths: DWORD; pwsLocalPaths: LPSTR;
  187.   var pdwSiteNameBufLen: DWORD; wsSiteName: LPSTR; var pdwDestURLBufLen: DWORD;
  188.   wsDestURL: LPSTR; dwFlag: DWORD): DWORD; stdcall;
  189. {$EXTERNALSYM WpPost}
  190. function WpListSites(var pdwSitesBufLen: DWORD; pSitesBuffer: LPWPSITEINFOA;
  191.   var pdwNumSites: DWORD): DWORD; stdcall;
  192. {$EXTERNALSYM WpListSites}
  193. function WpDoesSiteExist(wsSiteName: LPCSTR; var pfSiteExists: BOOL): DWORD; stdcall;
  194. {$EXTERNALSYM WpDoesSiteExist}
  195. function WpDeleteSite(wsSiteName: LPCSTR): DWORD; stdcall;
  196. {$EXTERNALSYM WpDeleteSite}
  197. function WpBindToSite(hwnd: HWND; wsSiteName, wsSitePostingURL: LPCSTR;
  198.   dwFlag, dwReserved: DWORD; out ppvUnk: IUnknown): DWORD; stdcall;
  199. {$EXTERNALSYM WpBindToSite}
  200. function WpCreateSite(wsSiteName, wsSiteLocalBaseDir, wsSitePostingURL, wsProviderCLSID: LPCSTR; dwFlags: DWORD): DWORD; stdcall;
  201. {$EXTERNALSYM WpCreateSite}
  202. function WpEnumProviders(var pdwProvidersBufLen: DWORD; pProvidersBuffer: LPWPPROVINFOA;
  203.   var pdwNumProviders: DWORD): DWORD; stdcall;
  204. {$EXTERNALSYM WpEnumProviders}
  205. function WpGetErrorString(uErrCode: UINT; wsOutputBuf: LPSTR; var pdwBufLen: DWORD): DWORD; stdcall;
  206. {$EXTERNALSYM WpGetErrorString}
  208. {$ENDIF}
  210. implementation
  212. const
  213.   wpapi_lib = 'wpapi.dll';
  216. {$IFDEF DYNAMIC_LINK}
  217. var
  218.   _WpPostA: Pointer;
  220. function WpPostA;
  221. begin
  222.   GetProcedureAddress(_WpPostA, wpapi_lib, 'WpPostA');
  223.   asm
  224.     mov esp, ebp
  225.     pop ebp
  226.     jmp [_WpPostA]
  227.   end;
  228. end;
  229. {$ELSE}
  230. function WpPostA; external wpapi_lib name 'WpPostA';
  231. {$ENDIF DYNAMIC_LINK}
  233. {$IFDEF DYNAMIC_LINK}
  234. var
  235.   _WpListSitesA: Pointer;
  237. function WpListSitesA;
  238. begin
  239.   GetProcedureAddress(_WpListSitesA, wpapi_lib, 'WpListSitesA');
  240.   asm
  241.     mov esp, ebp
  242.     pop ebp
  243.     jmp [_WpListSitesA]
  244.   end;
  245. end;
  246. {$ELSE}
  247. function WpListSitesA; external wpapi_lib name 'WpListSitesA';
  248. {$ENDIF DYNAMIC_LINK}
  250. {$IFDEF DYNAMIC_LINK}
  251. var
  252.   _WpDoesSiteExistA: Pointer;
  254. function WpDoesSiteExistA;
  255. begin
  256.   GetProcedureAddress(_WpDoesSiteExistA, wpapi_lib, 'WpDoesSiteExistA');
  257.   asm
  258.     mov esp, ebp
  259.     pop ebp
  260.     jmp [_WpDoesSiteExistA]
  261.   end;
  262. end;
  263. {$ELSE}
  264. function WpDoesSiteExistA; external wpapi_lib name 'WpDoesSiteExistA';
  265. {$ENDIF DYNAMIC_LINK}
  267. {$IFDEF DYNAMIC_LINK}
  268. var
  269.   _WpDeleteSiteA: Pointer;
  271. function WpDeleteSiteA;
  272. begin
  273.   GetProcedureAddress(_WpDeleteSiteA, wpapi_lib, 'WpDeleteSiteA');
  274.   asm
  275.     mov esp, ebp
  276.     pop ebp
  277.     jmp [_WpDeleteSiteA]
  278.   end;
  279. end;
  280. {$ELSE}
  281. function WpDeleteSiteA; external wpapi_lib name 'WpDeleteSiteA';
  282. {$ENDIF DYNAMIC_LINK}
  284. {$IFDEF DYNAMIC_LINK}
  285. var
  286.   _WpBindToSiteA: Pointer;
  288. function WpBindToSiteA;
  289. begin
  290.   GetProcedureAddress(_WpBindToSiteA, wpapi_lib, 'WpBindToSiteA');
  291.   asm
  292.     mov esp, ebp
  293.     pop ebp
  294.     jmp [_WpBindToSiteA]
  295.   end;
  296. end;
  297. {$ELSE}
  298. function WpBindToSiteA; external wpapi_lib name 'WpBindToSiteA';
  299. {$ENDIF DYNAMIC_LINK}
  301. {$IFDEF DYNAMIC_LINK}
  302. var
  303.   _WpCreateSiteA: Pointer;
  305. function WpCreateSiteA;
  306. begin
  307.   GetProcedureAddress(_WpCreateSiteA, wpapi_lib, 'WpCreateSiteA');
  308.   asm
  309.     mov esp, ebp
  310.     pop ebp
  311.     jmp [_WpCreateSiteA]
  312.   end;
  313. end;
  314. {$ELSE}
  315. function WpCreateSiteA; external wpapi_lib name 'WpCreateSiteA';
  316. {$ENDIF DYNAMIC_LINK}
  318. {$IFDEF DYNAMIC_LINK}
  319. var
  320.   _WpEnumProvidersA: Pointer;
  322. function WpEnumProvidersA;
  323. begin
  324.   GetProcedureAddress(_WpEnumProvidersA, wpapi_lib, 'WpEnumProvidersA');
  325.   asm
  326.     mov esp, ebp
  327.     pop ebp
  328.     jmp [_WpEnumProvidersA]
  329.   end;
  330. end;
  331. {$ELSE}
  332. function WpEnumProvidersA; external wpapi_lib name 'WpEnumProvidersA';
  333. {$ENDIF DYNAMIC_LINK}
  335. {$IFDEF DYNAMIC_LINK}
  336. var
  337.   _WpGetErrorStringA: Pointer;
  339. function WpGetErrorStringA;
  340. begin
  341.   GetProcedureAddress(_WpGetErrorStringA, wpapi_lib, 'WpGetErrorStringA');
  342.   asm
  343.     mov esp, ebp
  344.     pop ebp
  345.     jmp [_WpGetErrorStringA]
  346.   end;
  347. end;
  348. {$ELSE}
  349. function WpGetErrorStringA; external wpapi_lib name 'WpGetErrorStringA';
  350. {$ENDIF DYNAMIC_LINK}
  353. {$IFDEF DYNAMIC_LINK}
  354. var
  355.   _WpPostW: Pointer;
  357. function WpPostW;
  358. begin
  359.   GetProcedureAddress(_WpPostW, wpapi_lib, 'WpPostW');
  360.   asm
  361.     mov esp, ebp
  362.     pop ebp
  363.     jmp [_WpPostW]
  364.   end;
  365. end;
  366. {$ELSE}
  367. function WpPostW; external wpapi_lib name 'WpPostW';
  368. {$ENDIF DYNAMIC_LINK}
  370. {$IFDEF DYNAMIC_LINK}
  371. var
  372.   _WpListSitesW: Pointer;
  374. function WpListSitesW;
  375. begin
  376.   GetProcedureAddress(_WpListSitesW, wpapi_lib, 'WpListSitesW');
  377.   asm
  378.     mov esp, ebp
  379.     pop ebp
  380.     jmp [_WpListSitesW]
  381.   end;
  382. end;
  383. {$ELSE}
  384. function WpListSitesW; external wpapi_lib name 'WpListSitesW';
  385. {$ENDIF DYNAMIC_LINK}
  387. {$IFDEF DYNAMIC_LINK}
  388. var
  389.   _WpDoesSiteExistW: Pointer;
  391. function WpDoesSiteExistW;
  392. begin
  393.   GetProcedureAddress(_WpDoesSiteExistW, wpapi_lib, 'WpDoesSiteExistW');
  394.   asm
  395.     mov esp, ebp
  396.     pop ebp
  397.     jmp [_WpDoesSiteExistW]
  398.   end;
  399. end;
  400. {$ELSE}
  401. function WpDoesSiteExistW; external wpapi_lib name 'WpDoesSiteExistW';
  402. {$ENDIF DYNAMIC_LINK}
  404. {$IFDEF DYNAMIC_LINK}
  405. var
  406.   _WpDeleteSiteW: Pointer;
  408. function WpDeleteSiteW;
  409. begin
  410.   GetProcedureAddress(_WpDeleteSiteW, wpapi_lib, 'WpDeleteSiteW');
  411.   asm
  412.     mov esp, ebp
  413.     pop ebp
  414.     jmp [_WpDeleteSiteW]
  415.   end;
  416. end;
  417. {$ELSE}
  418. function WpDeleteSiteW; external wpapi_lib name 'WpDeleteSiteW';
  419. {$ENDIF DYNAMIC_LINK}
  421. {$IFDEF DYNAMIC_LINK}
  422. var
  423.   _WpBindToSiteW: Pointer;
  425. function WpBindToSiteW;
  426. begin
  427.   GetProcedureAddress(_WpBindToSiteW, wpapi_lib, 'WpBindToSiteW');
  428.   asm
  429.     mov esp, ebp
  430.     pop ebp
  431.     jmp [_WpBindToSiteW]
  432.   end;
  433. end;
  434. {$ELSE}
  435. function WpBindToSiteW; external wpapi_lib name 'WpBindToSiteW';
  436. {$ENDIF DYNAMIC_LINK}
  438. {$IFDEF DYNAMIC_LINK}
  439. var
  440.   _WpCreateSiteW: Pointer;
  442. function WpCreateSiteW;
  443. begin
  444.   GetProcedureAddress(_WpCreateSiteW, wpapi_lib, 'WpCreateSiteW');
  445.   asm
  446.     mov esp, ebp
  447.     pop ebp
  448.     jmp [_WpCreateSiteW]
  449.   end;
  450. end;
  451. {$ELSE}
  452. function WpCreateSiteW; external wpapi_lib name 'WpCreateSiteW';
  453. {$ENDIF DYNAMIC_LINK}
  455. {$IFDEF DYNAMIC_LINK}
  456. var
  457.   _WpEnumProvidersW: Pointer;
  459. function WpEnumProvidersW;
  460. begin
  461.   GetProcedureAddress(_WpEnumProvidersW, wpapi_lib, 'WpEnumProvidersW');
  462.   asm
  463.     mov esp, ebp
  464.     pop ebp
  465.     jmp [_WpEnumProvidersW]
  466.   end;
  467. end;
  468. {$ELSE}
  469. function WpEnumProvidersW; external wpapi_lib name 'WpEnumProvidersW';
  470. {$ENDIF DYNAMIC_LINK}
  472. {$IFDEF DYNAMIC_LINK}
  473. var
  474.   _WpGetErrorStringW: Pointer;
  476. function WpGetErrorStringW;
  477. begin
  478.   GetProcedureAddress(_WpGetErrorStringW, wpapi_lib, 'WpGetErrorStringW');
  479.   asm
  480.     mov esp, ebp
  481.     pop ebp
  482.     jmp [_WpGetErrorStringW]
  483.   end;
  484. end;
  485. {$ELSE}
  486. function WpGetErrorStringW; external wpapi_lib name 'WpGetErrorStringW';
  487. {$ENDIF DYNAMIC_LINK}
  489. {$IFDEF UNICODE}
  492. {$IFDEF DYNAMIC_LINK}
  493. var
  494.   _WpPost: Pointer;
  496. function WpPost;
  497. begin
  498.   GetProcedureAddress(_WpPost, wpapi_lib, 'WpPostW');
  499.   asm
  500.     mov esp, ebp
  501.     pop ebp
  502.     jmp [_WpPost]
  503.   end;
  504. end;
  505. {$ELSE}
  506. function WpPost; external wpapi_lib name 'WpPostW';
  507. {$ENDIF DYNAMIC_LINK}
  509. {$IFDEF DYNAMIC_LINK}
  510. var
  511.   _WpListSites: Pointer;
  513. function WpListSites;
  514. begin
  515.   GetProcedureAddress(_WpListSites, wpapi_lib, 'WpListSitesW');
  516.   asm
  517.     mov esp, ebp
  518.     pop ebp
  519.     jmp [_WpListSites]
  520.   end;
  521. end;
  522. {$ELSE}
  523. function WpListSites; external wpapi_lib name 'WpListSitesW';
  524. {$ENDIF DYNAMIC_LINK}
  526. {$IFDEF DYNAMIC_LINK}
  527. var
  528.   _WpDoesSiteExist: Pointer;
  530. function WpDoesSiteExist;
  531. begin
  532.   GetProcedureAddress(_WpDoesSiteExist, wpapi_lib, 'WpDoesSiteExistW');
  533.   asm
  534.     mov esp, ebp
  535.     pop ebp
  536.     jmp [_WpDoesSiteExist]
  537.   end;
  538. end;
  539. {$ELSE}
  540. function WpDoesSiteExist; external wpapi_lib name 'WpDoesSiteExistW';
  541. {$ENDIF DYNAMIC_LINK}
  543. {$IFDEF DYNAMIC_LINK}
  544. var
  545.   _WpDeleteSite: Pointer;
  547. function WpDeleteSite;
  548. begin
  549.   GetProcedureAddress(_WpDeleteSite, wpapi_lib, 'WpDeleteSiteW');
  550.   asm
  551.     mov esp, ebp
  552.     pop ebp
  553.     jmp [_WpDeleteSite]
  554.   end;
  555. end;
  556. {$ELSE}
  557. function WpDeleteSite; external wpapi_lib name 'WpDeleteSiteW';
  558. {$ENDIF DYNAMIC_LINK}
  560. {$IFDEF DYNAMIC_LINK}
  561. var
  562.   _WpBindToSite: Pointer;
  564. function WpBindToSite;
  565. begin
  566.   GetProcedureAddress(_WpBindToSite, wpapi_lib, 'WpBindToSiteW');
  567.   asm
  568.     mov esp, ebp
  569.     pop ebp
  570.     jmp [_WpBindToSite]
  571.   end;
  572. end;
  573. {$ELSE}
  574. function WpBindToSite; external wpapi_lib name 'WpBindToSiteW';
  575. {$ENDIF DYNAMIC_LINK}
  577. {$IFDEF DYNAMIC_LINK}
  578. var
  579.   _WpCreateSite: Pointer;
  581. function WpCreateSite;
  582. begin
  583.   GetProcedureAddress(_WpCreateSite, wpapi_lib, 'WpCreateSiteW');
  584.   asm
  585.     mov esp, ebp
  586.     pop ebp
  587.     jmp [_WpCreateSite]
  588.   end;
  589. end;
  590. {$ELSE}
  591. function WpCreateSite; external wpapi_lib name 'WpCreateSiteW';
  592. {$ENDIF DYNAMIC_LINK}
  594. {$IFDEF DYNAMIC_LINK}
  595. var
  596.   _WpEnumProviders: Pointer;
  598. function WpEnumProviders;
  599. begin
  600.   GetProcedureAddress(_WpEnumProviders, wpapi_lib, 'WpEnumProvidersW');
  601.   asm
  602.     mov esp, ebp
  603.     pop ebp
  604.     jmp [_WpEnumProviders]
  605.   end;
  606. end;
  607. {$ELSE}
  608. function WpEnumProviders; external wpapi_lib name 'WpEnumProvidersW';
  609. {$ENDIF DYNAMIC_LINK}
  611. {$IFDEF DYNAMIC_LINK}
  612. var
  613.   _WpGetErrorString: Pointer;
  615. function WpGetErrorString;
  616. begin
  617.   GetProcedureAddress(_WpGetErrorString, wpapi_lib, 'WpGetErrorStringW');
  618.   asm
  619.     mov esp, ebp
  620.     pop ebp
  621.     jmp [_WpGetErrorString]
  622.   end;
  623. end;
  624. {$ELSE}
  625. function WpGetErrorString; external wpapi_lib name 'WpGetErrorStringW';
  626. {$ENDIF DYNAMIC_LINK}
  628. {$ELSE}
  631. {$IFDEF DYNAMIC_LINK}
  632. var
  633.   _WpPost: Pointer;
  635. function WpPost;
  636. begin
  637.   GetProcedureAddress(_WpPost, wpapi_lib, 'WpPostA');
  638.   asm
  639.     mov esp, ebp
  640.     pop ebp
  641.     jmp [_WpPost]
  642.   end;
  643. end;
  644. {$ELSE}
  645. function WpPost; external wpapi_lib name 'WpPostA';
  646. {$ENDIF DYNAMIC_LINK}
  648. {$IFDEF DYNAMIC_LINK}
  649. var
  650.   _WpListSites: Pointer;
  652. function WpListSites;
  653. begin
  654.   GetProcedureAddress(_WpListSites, wpapi_lib, 'WpListSitesA');
  655.   asm
  656.     mov esp, ebp
  657.     pop ebp
  658.     jmp [_WpListSites]
  659.   end;
  660. end;
  661. {$ELSE}
  662. function WpListSites; external wpapi_lib name 'WpListSitesA';
  663. {$ENDIF DYNAMIC_LINK}
  665. {$IFDEF DYNAMIC_LINK}
  666. var
  667.   _WpDoesSiteExist: Pointer;
  669. function WpDoesSiteExist;
  670. begin
  671.   GetProcedureAddress(_WpDoesSiteExist, wpapi_lib, 'WpDoesSiteExistA');
  672.   asm
  673.     mov esp, ebp
  674.     pop ebp
  675.     jmp [_WpDoesSiteExist]
  676.   end;
  677. end;
  678. {$ELSE}
  679. function WpDoesSiteExist; external wpapi_lib name 'WpDoesSiteExistA';
  680. {$ENDIF DYNAMIC_LINK}
  682. {$IFDEF DYNAMIC_LINK}
  683. var
  684.   _WpDeleteSite: Pointer;
  686. function WpDeleteSite;
  687. begin
  688.   GetProcedureAddress(_WpDeleteSite, wpapi_lib, 'WpDeleteSiteA');
  689.   asm
  690.     mov esp, ebp
  691.     pop ebp
  692.     jmp [_WpDeleteSite]
  693.   end;
  694. end;
  695. {$ELSE}
  696. function WpDeleteSite; external wpapi_lib name 'WpDeleteSiteA';
  697. {$ENDIF DYNAMIC_LINK}
  699. {$IFDEF DYNAMIC_LINK}
  700. var
  701.   _WpBindToSite: Pointer;
  703. function WpBindToSite;
  704. begin
  705.   GetProcedureAddress(_WpBindToSite, wpapi_lib, 'WpBindToSiteA');
  706.   asm
  707.     mov esp, ebp
  708.     pop ebp
  709.     jmp [_WpBindToSite]
  710.   end;
  711. end;
  712. {$ELSE}
  713. function WpBindToSite; external wpapi_lib name 'WpBindToSiteA';
  714. {$ENDIF DYNAMIC_LINK}
  716. {$IFDEF DYNAMIC_LINK}
  717. var
  718.   _WpCreateSite: Pointer;
  720. function WpCreateSite;
  721. begin
  722.   GetProcedureAddress(_WpCreateSite, wpapi_lib, 'WpCreateSiteA');
  723.   asm
  724.     mov esp, ebp
  725.     pop ebp
  726.     jmp [_WpCreateSite]
  727.   end;
  728. end;
  729. {$ELSE}
  730. function WpCreateSite; external wpapi_lib name 'WpCreateSiteA';
  731. {$ENDIF DYNAMIC_LINK}
  733. {$IFDEF DYNAMIC_LINK}
  734. var
  735.   _WpEnumProviders: Pointer;
  737. function WpEnumProviders;
  738. begin
  739.   GetProcedureAddress(_WpEnumProviders, wpapi_lib, 'WpEnumProvidersA');
  740.   asm
  741.     mov esp, ebp
  742.     pop ebp
  743.     jmp [_WpEnumProviders]
  744.   end;
  745. end;
  746. {$ELSE}
  747. function WpEnumProviders; external wpapi_lib name 'WpEnumProvidersA';
  748. {$ENDIF DYNAMIC_LINK}
  750. {$IFDEF DYNAMIC_LINK}
  751. var
  752.   _WpGetErrorString: Pointer;
  754. function WpGetErrorString;
  755. begin
  756.   GetProcedureAddress(_WpGetErrorString, wpapi_lib, 'WpGetErrorStringA');
  757.   asm
  758.     mov esp, ebp
  759.     pop ebp
  760.     jmp [_WpGetErrorString]
  761.   end;
  762. end;
  763. {$ELSE}
  764. function WpGetErrorString; external wpapi_lib name 'WpGetErrorStringA';
  765. {$ENDIF DYNAMIC_LINK}
  767. {$ENDIF}
  769. end.