jwadsgetdc.pas

比较全面的win32api开发包

function DsAddressToSiteNamesEx;
begin
  GetProcedureAddress(_DsAddressToSiteNamesEx, netapi32, 'DsAddressToSiteNamesExW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsAddressToSiteNamesEx]
  end;
end;
{$ELSE}
function DsAddressToSiteNamesEx; external netapi32 name 'DsAddressToSiteNamesExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _DsAddressToSiteNamesEx: Pointer;

function DsAddressToSiteNamesEx;
begin
  GetProcedureAddress(_DsAddressToSiteNamesEx, netapi32, 'DsAddressToSiteNamesExA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsAddressToSiteNamesEx]
  end;
end;
{$ELSE}
function DsAddressToSiteNamesEx; external netapi32 name 'DsAddressToSiteNamesExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _DsEnumerateDomainTrustsA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsEnumerateDomainTrustsW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsEnumerateDomainTrusts: Pointer;

function DsEnumerateDomainTrusts;
begin
  GetProcedureAddress(_DsEnumerateDomainTrusts, netapi32, 'DsEnumerateDomainTrustsW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsEnumerateDomainTrusts]
  end;
end;
{$ELSE}
function DsEnumerateDomainTrusts; external netapi32 name 'DsEnumerateDomainTrustsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _DsEnumerateDomainTrusts: Pointer;

function DsEnumerateDomainTrusts;
begin
  GetProcedureAddress(_DsEnumerateDomainTrusts, netapi32, 'DsEnumerateDomainTrustsA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsEnumerateDomainTrusts]
  end;
end;
{$ELSE}
function DsEnumerateDomainTrusts; external netapi32 name 'DsEnumerateDomainTrustsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _DsGetForestTrustInformationW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsMergeForestTrustInformationW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsGetDcSiteCoverageA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsGetDcSiteCoverageW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsGetDcSiteCoverage: Pointer;

function DsGetDcSiteCoverage;
begin
  GetProcedureAddress(_DsGetDcSiteCoverage, netapi32, 'DsGetDcSiteCoverageW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsGetDcSiteCoverage]
  end;
end;
{$ELSE}
function DsGetDcSiteCoverage; external netapi32 name 'DsGetDcSiteCoverageW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _DsGetDcSiteCoverage: Pointer;

function DsGetDcSiteCoverage;
begin
  GetProcedureAddress(_DsGetDcSiteCoverage, netapi32, 'DsGetDcSiteCoverageA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsGetDcSiteCoverage]
  end;
end;
{$ELSE}
function DsGetDcSiteCoverage; external netapi32 name 'DsGetDcSiteCoverageA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _DsDeregisterDnsHostRecordsA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsDeregisterDnsHostRecordsW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsDeregisterDnsHostRecords: Pointer;

function DsDeregisterDnsHostRecords;
begin
  GetProcedureAddress(_DsDeregisterDnsHostRecords, netapi32, 'DsDeregisterDnsHostRecordsW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsDeregisterDnsHostRecords]
  end;
end;
{$ELSE}
function DsDeregisterDnsHostRecords; external netapi32 name 'DsDeregisterDnsHostRecordsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _DsDeregisterDnsHostRecords: Pointer;

function DsDeregisterDnsHostRecords;
begin
  GetProcedureAddress(_DsDeregisterDnsHostRecords, netapi32, 'DsDeregisterDnsHostRecordsA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsDeregisterDnsHostRecords]
  end;
end;
{$ELSE}
function DsDeregisterDnsHostRecords; external netapi32 name 'DsDeregisterDnsHostRecordsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _DsGetDcOpenW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsGetDcOpenA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsGetDcOpen: Pointer;

function DsGetDcOpen;
begin
  GetProcedureAddress(_DsGetDcOpen, netapi32, 'DsGetDcOpenW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsGetDcOpen]
  end;
end;
{$ELSE}
function DsGetDcOpen; external netapi32 name 'DsGetDcOpenW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _DsGetDcOpen: Pointer;

function DsGetDcOpen;
begin
  GetProcedureAddress(_DsGetDcOpen, netapi32, 'DsGetDcOpenA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsGetDcOpen]
  end;
end;
{$ELSE}
function DsGetDcOpen; external netapi32 name 'DsGetDcOpenA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _DsGetDcNextW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsGetDcNextA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsGetDcNext: Pointer;

function DsGetDcNext;
begin
  GetProcedureAddress(_DsGetDcNext, netapi32, 'DsGetDcNextW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsGetDcNext]
  end;
end;
{$ELSE}
function DsGetDcNext; external netapi32 name 'DsGetDcNextW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _DsGetDcNext: Pointer;

function DsGetDcNext;
begin
  GetProcedureAddress(_DsGetDcNext, netapi32, 'DsGetDcNextA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsGetDcNext]
  end;
end;
{$ELSE}
function DsGetDcNext; external netapi32 name 'DsGetDcNextA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _DsGetDcCloseW: Pointer;

procedure DsGetDcCloseW;
begin
  GetProcedureAddress(_DsGetDcCloseW, netapi32, 'DsGetDcCloseW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsGetDcCloseW]
  end;
end;
{$ELSE}
procedure DsGetDcCloseW; external netapi32 name 'DsGetDcCloseW';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _DsGetDcClose: Pointer;

procedure DsGetDcClose;
begin
  GetProcedureAddress(_DsGetDcClose, netapi32, 'DsGetDcClose');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsGetDcClose]
  end;
end;
{$ELSE}
procedure DsGetDcClose; external netapi32 name 'DsGetDcClose';
{$ENDIF DYNAMIC_LINK}

end.