jwawpapi.pas

比较全面的win32api开发包

{$IFDEF DYNAMIC_LINK}
var
  _WpDoesSiteExistW: Pointer;

function WpDoesSiteExistW;
begin
  GetProcedureAddress(_WpDoesSiteExistW, wpapi_lib, 'WpDoesSiteExistW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpDoesSiteExistW]
  end;
end;
{$ELSE}
function WpDoesSiteExistW; external wpapi_lib name 'WpDoesSiteExistW';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpDeleteSiteW: Pointer;

function WpDeleteSiteW;
begin
  GetProcedureAddress(_WpDeleteSiteW, wpapi_lib, 'WpDeleteSiteW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpDeleteSiteW]
  end;
end;
{$ELSE}
function WpDeleteSiteW; external wpapi_lib name 'WpDeleteSiteW';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpBindToSiteW: Pointer;

function WpBindToSiteW;
begin
  GetProcedureAddress(_WpBindToSiteW, wpapi_lib, 'WpBindToSiteW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpBindToSiteW]
  end;
end;
{$ELSE}
function WpBindToSiteW; external wpapi_lib name 'WpBindToSiteW';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpCreateSiteW: Pointer;

function WpCreateSiteW;
begin
  GetProcedureAddress(_WpCreateSiteW, wpapi_lib, 'WpCreateSiteW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpCreateSiteW]
  end;
end;
{$ELSE}
function WpCreateSiteW; external wpapi_lib name 'WpCreateSiteW';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpEnumProvidersW: Pointer;

function WpEnumProvidersW;
begin
  GetProcedureAddress(_WpEnumProvidersW, wpapi_lib, 'WpEnumProvidersW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpEnumProvidersW]
  end;
end;
{$ELSE}
function WpEnumProvidersW; external wpapi_lib name 'WpEnumProvidersW';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpGetErrorStringW: Pointer;

function WpGetErrorStringW;
begin
  GetProcedureAddress(_WpGetErrorStringW, wpapi_lib, 'WpGetErrorStringW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpGetErrorStringW]
  end;
end;
{$ELSE}
function WpGetErrorStringW; external wpapi_lib name 'WpGetErrorStringW';
{$ENDIF DYNAMIC_LINK}

{$IFDEF UNICODE}


{$IFDEF DYNAMIC_LINK}
var
  _WpPost: Pointer;

function WpPost;
begin
  GetProcedureAddress(_WpPost, wpapi_lib, 'WpPostW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpPost]
  end;
end;
{$ELSE}
function WpPost; external wpapi_lib name 'WpPostW';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpListSites: Pointer;

function WpListSites;
begin
  GetProcedureAddress(_WpListSites, wpapi_lib, 'WpListSitesW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpListSites]
  end;
end;
{$ELSE}
function WpListSites; external wpapi_lib name 'WpListSitesW';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpDoesSiteExist: Pointer;

function WpDoesSiteExist;
begin
  GetProcedureAddress(_WpDoesSiteExist, wpapi_lib, 'WpDoesSiteExistW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpDoesSiteExist]
  end;
end;
{$ELSE}
function WpDoesSiteExist; external wpapi_lib name 'WpDoesSiteExistW';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpDeleteSite: Pointer;

function WpDeleteSite;
begin
  GetProcedureAddress(_WpDeleteSite, wpapi_lib, 'WpDeleteSiteW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpDeleteSite]
  end;
end;
{$ELSE}
function WpDeleteSite; external wpapi_lib name 'WpDeleteSiteW';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpBindToSite: Pointer;

function WpBindToSite;
begin
  GetProcedureAddress(_WpBindToSite, wpapi_lib, 'WpBindToSiteW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpBindToSite]
  end;
end;
{$ELSE}
function WpBindToSite; external wpapi_lib name 'WpBindToSiteW';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpCreateSite: Pointer;

function WpCreateSite;
begin
  GetProcedureAddress(_WpCreateSite, wpapi_lib, 'WpCreateSiteW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpCreateSite]
  end;
end;
{$ELSE}
function WpCreateSite; external wpapi_lib name 'WpCreateSiteW';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpEnumProviders: Pointer;

function WpEnumProviders;
begin
  GetProcedureAddress(_WpEnumProviders, wpapi_lib, 'WpEnumProvidersW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpEnumProviders]
  end;
end;
{$ELSE}
function WpEnumProviders; external wpapi_lib name 'WpEnumProvidersW';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpGetErrorString: Pointer;

function WpGetErrorString;
begin
  GetProcedureAddress(_WpGetErrorString, wpapi_lib, 'WpGetErrorStringW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpGetErrorString]
  end;
end;
{$ELSE}
function WpGetErrorString; external wpapi_lib name 'WpGetErrorStringW';
{$ENDIF DYNAMIC_LINK}

{$ELSE}


{$IFDEF DYNAMIC_LINK}
var
  _WpPost: Pointer;

function WpPost;
begin
  GetProcedureAddress(_WpPost, wpapi_lib, 'WpPostA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpPost]
  end;
end;
{$ELSE}
function WpPost; external wpapi_lib name 'WpPostA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpListSites: Pointer;

function WpListSites;
begin
  GetProcedureAddress(_WpListSites, wpapi_lib, 'WpListSitesA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpListSites]
  end;
end;
{$ELSE}
function WpListSites; external wpapi_lib name 'WpListSitesA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpDoesSiteExist: Pointer;

function WpDoesSiteExist;
begin
  GetProcedureAddress(_WpDoesSiteExist, wpapi_lib, 'WpDoesSiteExistA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpDoesSiteExist]
  end;
end;
{$ELSE}
function WpDoesSiteExist; external wpapi_lib name 'WpDoesSiteExistA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpDeleteSite: Pointer;

function WpDeleteSite;
begin
  GetProcedureAddress(_WpDeleteSite, wpapi_lib, 'WpDeleteSiteA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpDeleteSite]
  end;
end;
{$ELSE}
function WpDeleteSite; external wpapi_lib name 'WpDeleteSiteA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpBindToSite: Pointer;

function WpBindToSite;
begin
  GetProcedureAddress(_WpBindToSite, wpapi_lib, 'WpBindToSiteA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpBindToSite]
  end;
end;
{$ELSE}
function WpBindToSite; external wpapi_lib name 'WpBindToSiteA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpCreateSite: Pointer;

function WpCreateSite;
begin
  GetProcedureAddress(_WpCreateSite, wpapi_lib, 'WpCreateSiteA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpCreateSite]
  end;
end;
{$ELSE}
function WpCreateSite; external wpapi_lib name 'WpCreateSiteA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpEnumProviders: Pointer;

function WpEnumProviders;
begin
  GetProcedureAddress(_WpEnumProviders, wpapi_lib, 'WpEnumProvidersA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpEnumProviders]
  end;
end;
{$ELSE}
function WpEnumProviders; external wpapi_lib name 'WpEnumProvidersA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WpGetErrorString: Pointer;

function WpGetErrorString;
begin
  GetProcedureAddress(_WpGetErrorString, wpapi_lib, 'WpGetErrorStringA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WpGetErrorString]
  end;
end;
{$ELSE}
function WpGetErrorString; external wpapi_lib name 'WpGetErrorStringA';
{$ENDIF DYNAMIC_LINK}

{$ENDIF}

end.