jwantdsbcli.pas

比较全面的win32api开发包

{$ELSE}
function DsIsNTDSOnline; external ntdsbclilib name 'DsIsNTDSOnlineA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupPrepareA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupPrepareW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupPrepare: Pointer;

function DsBackupPrepare;
begin
  GetProcedureAddress(_DsBackupPrepare, ntdsbclilib, 'DsBackupPrepareW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsBackupPrepare]
  end;
end;
{$ELSE}
function DsBackupPrepare; external ntdsbclilib name 'DsBackupPrepareW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupPrepare: Pointer;

function DsBackupPrepare;
begin
  GetProcedureAddress(_DsBackupPrepare, ntdsbclilib, 'DsBackupPrepareA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsBackupPrepare]
  end;
end;
{$ELSE}
function DsBackupPrepare; external ntdsbclilib name 'DsBackupPrepareA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupGetDatabaseNamesA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupGetDatabaseNamesW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupGetDatabaseNames: Pointer;

function DsBackupGetDatabaseNames;
begin
  GetProcedureAddress(_DsBackupGetDatabaseNames, ntdsbclilib, 'DsBackupGetDatabaseNamesW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsBackupGetDatabaseNames]
  end;
end;
{$ELSE}
function DsBackupGetDatabaseNames; external ntdsbclilib name 'DsBackupGetDatabaseNamesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupGetDatabaseNames: Pointer;

function DsBackupGetDatabaseNames;
begin
  GetProcedureAddress(_DsBackupGetDatabaseNames, ntdsbclilib, 'DsBackupGetDatabaseNamesA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsBackupGetDatabaseNames]
  end;
end;
{$ELSE}
function DsBackupGetDatabaseNames; external ntdsbclilib name 'DsBackupGetDatabaseNamesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupOpenFileA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupOpenFileW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupOpenFile: Pointer;

function DsBackupOpenFile;
begin
  GetProcedureAddress(_DsBackupOpenFile, ntdsbclilib, 'DsBackupOpenFileW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsBackupOpenFile]
  end;
end;
{$ELSE}
function DsBackupOpenFile; external ntdsbclilib name 'DsBackupOpenFileW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupOpenFile: Pointer;

function DsBackupOpenFile;
begin
  GetProcedureAddress(_DsBackupOpenFile, ntdsbclilib, 'DsBackupOpenFileA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsBackupOpenFile]
  end;
end;
{$ELSE}
function DsBackupOpenFile; external ntdsbclilib name 'DsBackupOpenFileA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupRead: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupClose: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupGetBackupLogsA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupGetBackupLogsW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupGetBackupLogs: Pointer;

function DsBackupGetBackupLogs;
begin
  GetProcedureAddress(_DsBackupGetBackupLogs, ntdsbclilib, 'DsBackupGetBackupLogsW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsBackupGetBackupLogs]
  end;
end;
{$ELSE}
function DsBackupGetBackupLogs; external ntdsbclilib name 'DsBackupGetBackupLogsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupGetBackupLogs: Pointer;

function DsBackupGetBackupLogs;
begin
  GetProcedureAddress(_DsBackupGetBackupLogs, ntdsbclilib, 'DsBackupGetBackupLogsA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DsBackupGetBackupLogs]
  end;
end;
{$ELSE}
function DsBackupGetBackupLogs; external ntdsbclilib name 'DsBackupGetBackupLogsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupTruncateLogs: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupEnd: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsBackupFree: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DsRestoreGetDatabaseLocationsA: Pointer;

function DsRestoreGetDatabaseLocationsA;
begin
  GetProcedureAddress(_DsRestoreGetDatabaseLocationsA, ntdsbclilib, 'DsRestoreGetDatabaseLocationsA');
  asm
    mov esp, ebp