jwawinnetwk.pas

比较全面的win32api开发包

{$ELSE}
function WNetOpenEnum; external mpr name 'WNetOpenEnumW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _WNetOpenEnum: Pointer;

function WNetOpenEnum;
begin
  GetProcedureAddress(_WNetOpenEnum, mpr, 'WNetOpenEnumA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetOpenEnum]
  end;
end;
{$ELSE}
function WNetOpenEnum; external mpr name 'WNetOpenEnumA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _WNetEnumResourceA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WNetEnumResourceW: Pointer;

function WNetEnumResourceW;
begin
  GetProcedureAddress(_WNetEnumResourceW, mpr, 'WNetEnumResourceW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetEnumResourceW]
  end;
end;
{$ELSE}
function WNetEnumResourceW; external mpr name 'WNetEnumResourceW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _WNetEnumResource: Pointer;

function WNetEnumResource;
begin
  GetProcedureAddress(_WNetEnumResource, mpr, 'WNetEnumResourceW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetEnumResource]
  end;
end;
{$ELSE}
function WNetEnumResource; external mpr name 'WNetEnumResourceW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _WNetEnumResource: Pointer;

function WNetEnumResource;
begin
  GetProcedureAddress(_WNetEnumResource, mpr, 'WNetEnumResourceA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetEnumResource]
  end;
end;
{$ELSE}
function WNetEnumResource; external mpr name 'WNetEnumResourceA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _WNetCloseEnum: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetResourceParentA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetResourceParentW: Pointer;

function WNetGetResourceParentW;
begin
  GetProcedureAddress(_WNetGetResourceParentW, mpr, 'WNetGetResourceParentW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetGetResourceParentW]
  end;
end;
{$ELSE}
function WNetGetResourceParentW; external mpr name 'WNetGetResourceParentW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetResourceParent: Pointer;

function WNetGetResourceParent;
begin
  GetProcedureAddress(_WNetGetResourceParent, mpr, 'WNetGetResourceParentW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetGetResourceParent]
  end;
end;
{$ELSE}
function WNetGetResourceParent; external mpr name 'WNetGetResourceParentW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetResourceParent: Pointer;

function WNetGetResourceParent;
begin
  GetProcedureAddress(_WNetGetResourceParent, mpr, 'WNetGetResourceParentA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetGetResourceParent]
  end;
end;
{$ELSE}
function WNetGetResourceParent; external mpr name 'WNetGetResourceParentA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetResourceInformationA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetResourceInformationW: Pointer;

function WNetGetResourceInformationW;
begin
  GetProcedureAddress(_WNetGetResourceInformationW, mpr, 'WNetGetResourceInformationW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetGetResourceInformationW]
  end;
end;
{$ELSE}
function WNetGetResourceInformationW; external mpr name 'WNetGetResourceInformationW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetResourceInformation: Pointer;

function WNetGetResourceInformation;
begin
  GetProcedureAddress(_WNetGetResourceInformation, mpr, 'WNetGetResourceInformationW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetGetResourceInformation]
  end;
end;
{$ELSE}
function WNetGetResourceInformation; external mpr name 'WNetGetResourceInformationW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetResourceInformation: Pointer;

function WNetGetResourceInformation;
begin
  GetProcedureAddress(_WNetGetResourceInformation, mpr, 'WNetGetResourceInformationA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetGetResourceInformation]
  end;
end;
{$ELSE}
function WNetGetResourceInformation; external mpr name 'WNetGetResourceInformationA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetUniversalNameA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetUniversalNameW: Pointer;

function WNetGetUniversalNameW;
begin
  GetProcedureAddress(_WNetGetUniversalNameW, mpr, 'WNetGetUniversalNameW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetGetUniversalNameW]
  end;
end;
{$ELSE}
function WNetGetUniversalNameW; external mpr name 'WNetGetUniversalNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetUniversalName: Pointer;

function WNetGetUniversalName;
begin
  GetProcedureAddress(_WNetGetUniversalName, mpr, 'WNetGetUniversalNameW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetGetUniversalName]
  end;
end;
{$ELSE}
function WNetGetUniversalName; external mpr name 'WNetGetUniversalNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetUniversalName: Pointer;

function WNetGetUniversalName;
begin
  GetProcedureAddress(_WNetGetUniversalName, mpr, 'WNetGetUniversalNameA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetGetUniversalName]
  end;
end;
{$ELSE}
function WNetGetUniversalName; external mpr name 'WNetGetUniversalNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetUserA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetUserW: Pointer;

function WNetGetUserW;
begin
  GetProcedureAddress(_WNetGetUserW, mpr, 'WNetGetUserW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetGetUserW]
  end;
end;
{$ELSE}
function WNetGetUserW; external mpr name 'WNetGetUserW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetUser: Pointer;

function WNetGetUser;
begin
  GetProcedureAddress(_WNetGetUser, mpr, 'WNetGetUserW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetGetUser]
  end;
end;
{$ELSE}
function WNetGetUser; external mpr name 'WNetGetUserW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetUser: Pointer;

function WNetGetUser;
begin
  GetProcedureAddress(_WNetGetUser, mpr, 'WNetGetUserA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetGetUser]
  end;
end;
{$ELSE}
function WNetGetUser; external mpr name 'WNetGetUserA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetProviderNameA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetProviderNameW: Pointer;

function WNetGetProviderNameW;
begin
  GetProcedureAddress(_WNetGetProviderNameW, mpr, 'WNetGetProviderNameW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetGetProviderNameW]
  end;
end;
{$ELSE}
function WNetGetProviderNameW; external mpr name 'WNetGetProviderNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetProviderName: Pointer;

function WNetGetProviderName;
begin
  GetProcedureAddress(_WNetGetProviderName, mpr, 'WNetGetProviderNameW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WNetGetProviderName]
  end;
end;
{$ELSE}
function WNetGetProviderName; external mpr name 'WNetGetProviderNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _WNetGetProviderName: Pointer;

function WNetGetProviderName;
begin
  GetProcedureAdd