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

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

Windows编程

开发平台：

Delphi

JwaNtDsbCli.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Directory Backup and Restore 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: ntdsbcli.h, released June 2000. The original Pascal    }
  9. { code is: NtDsbCli.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 JwaNtDsbCli;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include ":ntdsbcli.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaWinType;
  59. const
  60.   g_wszBackupAnnotation = 'NTDS Backup Interface';
  61.   {$EXTERNALSYM g_wszBackupAnnotation}
  62.   g_aszBackupAnnotation = 'NTDS Backup Interface';
  63.   {$EXTERNALSYM g_aszBackupAnnotation}
  65.   g_wszRestoreAnnotation = 'NTDS Restore Interface';
  66.   {$EXTERNALSYM g_wszRestoreAnnotation}
  67.   g_aszRestoreAnnotation = 'NTDS Restore Interface';
  68.   {$EXTERNALSYM g_aszRestoreAnnotation}
  70. {$IFDEF UNICODE}
  71.   g_szBackupAnnotation  = g_wszBackupAnnotation;
  72.   {$EXTERNALSYM g_szBackupAnnotation}
  73.   g_szRestoreAnnotation = g_wszRestoreAnnotation;
  74.   {$EXTERNALSYM g_szRestoreAnnotation}
  75. {$ELSE}
  76.   g_szBackupAnnotation  = g_aszBackupAnnotation;
  77.   {$EXTERNALSYM g_szBackupAnnotation}
  78.   g_szRestoreAnnotation = g_aszRestoreAnnotation;
  79.   {$EXTERNALSYM g_szRestoreAnnotation}
  80. {$ENDIF}
  82. // Type of Backup passed to DsBackupPrepare()
  83. // BACKUP_TYPE_FULL: Requesting backup of the complete DS (DIT, Log files, and Patch files)
  84. // BACKUP_TYPE_LOGS_ONLY: Requesting backup of only the log files
  85. // BACKUP_TYPE_INCREMENTAL: Requesting incremental backup i.e. backing up only changes that happened since last backup
  87.   BACKUP_TYPE_FULL        = $01;
  88.   {$EXTERNALSYM BACKUP_TYPE_FULL}
  89.   BACKUP_TYPE_LOGS_ONLY   = $02;
  90.   {$EXTERNALSYM BACKUP_TYPE_LOGS_ONLY}
  91.   BACKUP_TYPE_INCREMENTAL = $04; // not supported in product1
  92.   {$EXTERNALSYM BACKUP_TYPE_INCREMENTAL}
  94. // Type of Restore passed to DsRestorePrepare()
  95. // RESTORE_TYPE_AUTHORATATIVE: The restored version wins throughout the enterprise
  96. // RESTORE_TYPE_ONLINE: Restoration is done when NTDS is online.
  97. // RESTORE_TYPE_CATCHUP: The restored version is reconciled through the standard reconciliation logic so that the
  98. //                          restored DIT can catchup with the rest of the enterprise.
  100.   RESTORE_TYPE_AUTHORATATIVE = $01;
  101.   {$EXTERNALSYM RESTORE_TYPE_AUTHORATATIVE}
  102.   RESTORE_TYPE_ONLINE        = $02; // not supported in product1
  103.   {$EXTERNALSYM RESTORE_TYPE_ONLINE}
  104.   RESTORE_TYPE_CATCHUP       = $04; // this is the default restore mode
  105.   {$EXTERNALSYM RESTORE_TYPE_CATCHUP}
  107. // Setting the current log # to this value would disable incremental/differential backup
  109.   BACKUP_DISABLE_INCREMENTAL = DWORD($ffffffff);
  110.   {$EXTERNALSYM BACKUP_DISABLE_INCREMENTAL}
  112. // BFT is the bit flag used to represent file types (directory/dit/logfile/etc.)
  113. // We keep them as a character so that we can append/prepend them to the actual file
  114. // path. The code in the Backup API's rely on the fact that values 0-256 in 8 bit ascii
  115. // map to the values 0-256 in unicode.
  117. type
  118. {$IFDEF UNICODE}
  119.   BFT = WCHAR;
  120.   {$EXTERNALSYM BFT}
  121. {$ELSE}
  122.   BFT = CHAR;
  123.   {$EXTERNALSYM BFT}
  124. {$ENDIF}
  126. // Bit flags:
  127. //  BFT_DIRECTORY               - indicates path specified is a directory
  128. //  BFT_DATABASE_DIRECTORY      - indicates that file goes into database directory
  129. //  BFT_LOG_DIRECTORY           - indicates that the file goes into log directory
  131. const
  132.   BFT_DIRECTORY          = $80;
  133.   {$EXTERNALSYM BFT_DIRECTORY}
  134.   BFT_DATABASE_DIRECTORY = $40;
  135.   {$EXTERNALSYM BFT_DATABASE_DIRECTORY}
  136.   BFT_LOG_DIRECTORY      = $20;
  137.   {$EXTERNALSYM BFT_LOG_DIRECTORY}
  139. // Following combinations are defined for easy use of the filetype and the directory into
  140. // into which it goes
  142.   BFT_LOG            = BFT($01 or BFT_LOG_DIRECTORY);
  143.   BFT_LOG_DIR        = BFT($02 or BFT_DIRECTORY);
  144.   BFT_CHECKPOINT_DIR = BFT($03 or BFT_DIRECTORY);
  145.   BFT_NTDS_DATABASE  = BFT($04 or BFT_DATABASE_DIRECTORY);
  146.   BFT_PATCH_FILE     = BFT($05 or BFT_LOG_DIRECTORY);
  147.   BFT_UNKNOWN        = BFT($0F);
  149. // #include <ntdsbmsg.h>
  151. // Backup Context Handle
  153. type
  154.   HBC = Pointer;
  155.   {$EXTERNALSYM HBC}
  157.   PEDB_RSTMAPA = ^EDB_RSTMAPA;
  158.   {$EXTERNALSYM PEDB_RSTMAPA}
  159.   tagEDB_RSTMAPA = record
  160.     szDatabaseName: PChar;
  161.     szNewDtabaseName: PChar;
  162.   end;
  163.   {$EXTERNALSYM tagEDB_RSTMAPA}
  164.   EDB_RSTMAPA = tagEDB_RSTMAPA;
  165.   {$EXTERNALSYM EDB_RSTMAPA}
  166.   TEdbRstMapA = EDB_RSTMAPA;
  167.   PEdbRstMapA = PEDB_RSTMAPA;
  169. // required for NTDS unicode support.
  170. // UNDONE: NYI
  172.   PEDB_RSTMAPW = ^EDB_RSTMAPW;
  173.   {$EXTERNALSYM PEDB_RSTMAPW}
  174.   tagEDB_RSTMAPW = record
  175.     wszDatabaseName: PWCHAR;
  176.     wszNewDatabaseName: PWCHAR;
  177.   end;
  178.   {$EXTERNALSYM tagEDB_RSTMAPW}
  179.   EDB_RSTMAPW = tagEDB_RSTMAPW;
  180.   {$EXTERNALSYM EDB_RSTMAPW}
  181.   TEdbRstMapW = EDB_RSTMAPW;
  182.   PEdbRstMapW = PEDB_RSTMAPW;
  184. {$IFDEF UNICODE}
  185.   EDB_RSTMAP = EDB_RSTMAPW;
  186.   {$EXTERNALSYM EDB_RSTMAP}
  187.   PEDB_RSTMAP = PEDB_RSTMAPW;
  188.   {$EXTERNALSYM PEDB_RSTMAP}
  189.   TEdbRstMap = TEdbRstMapW;
  190.   PEdbRstMap = PEdbRstMapW;
  191. {$ELSE}
  192.   EDB_RSTMAP = EDB_RSTMAPA;
  193.   {$EXTERNALSYM EDB_RSTMAP}
  194.   PEDB_RSTMAP = PEDB_RSTMAPA;
  195.   {$EXTERNALSYM PEDB_RSTMAP}
  196.   TEdbRstMap = TEdbRstMapA;
  197.   PEdbRstMap = PEdbRstMapA;
  198. {$ENDIF}
  200. {*************************************************************************************
  201. Routine Description:
  203.       DsIsNTDSOnline
  204.         Checks to see if the NTDS is Online on the given server. This call is
  205.         guaranteed to return quickly.
  207.   Arguments:
  208.     [in] szServerName - UNC name of the server to check
  209.     [out] pfNTDSOnline - pointer to receive the bool result (TRUE if NTDS is
  210.                             online; FALSE, otherwise)
  212. Return Value:
  214.     ERROR_SUCCESS if the call executed successfully;
  215.     Failure code otherwise.
  216. **************************************************************************************}
  218. function DsIsNTDSOnlineA(szServerName: LPCSTR; var pfNTDSOnline: BOOL): HRESULT; stdcall;
  219. {$EXTERNALSYM DsIsNTDSOnlineA}
  220. function DsIsNTDSOnlineW(szServerName: LPCWSTR; var pfNTDSOnline: BOOL): HRESULT; stdcall;
  221. {$EXTERNALSYM DsIsNTDSOnlineW}
  223. {$IFDEF UNICODE}
  224. function DsIsNTDSOnline(szServerName: LPCWSTR; var pfNTDSOnline: BOOL): HRESULT; stdcall;
  225. {$EXTERNALSYM DsIsNTDSOnline}
  226. {$ELSE}
  227. function DsIsNTDSOnline(szServerName: LPCSTR; var pfNTDSOnline: BOOL): HRESULT; stdcall;
  228. {$EXTERNALSYM DsIsNTDSOnline}
  229. {$ENDIF}
  231. {*************************************************************************************
  232. Routine Description:
  234.       DsBackupPrepare
  235.         Prepares the DS for the online backup and returns a Backup Context Handle
  236.         which should be used in the subsequent calls to other backup functions.
  238.   Arguments:
  239.     [in]    szBackupServer - UNC name of the server to be prepared for online backup
  240.     [in]    grbit - flag to be passed to jet while backing up dbs
  241.     [in]    btFlag - BACKUP_TYPE_FULL or BACKUP_TYPE_LOGS_ONLY
  242.     [out]   ppvExpiryToken - pointer that will receive the pointer to the
  243.                 Expiry Token associated with this backup; Client should save
  244.                 this token and send it back through DsRestorePrepare() when
  245.                 attempting a restore; allocated memory should be freed using
  246.                 DsBackupFree() API by the caller when it is no longer needed.
  247.     [out]   pcbExpiryTokenSize - pointer to receive the size of the expiry token
  248.                 returned.
  249.     [out]   phbc - pointer that will receive the backup context handle
  251. Return Value:
  253.     One of the standard HRESULT success codes;
  254.     Failure code otherwise.
  255. **************************************************************************************}
  257. function DsBackupPrepareA(szBackupServer: LPCSTR; grbit: ULONG; btFlag: ULONG;
  258.   var ppvExpiryToken: PVOID; var pcbExpiryTokenSize: DWORD; var phbc: HBC): HRESULT; stdcall;
  259. {$EXTERNALSYM DsBackupPrepareA}
  260. function DsBackupPrepareW(szBackupServer: LPCWSTR; grbit: ULONG; btFlag: ULONG;
  261.   var ppvExpiryToken: PVOID; var pcbExpiryTokenSize: DWORD; var phbc: HBC): HRESULT; stdcall;
  262. {$EXTERNALSYM DsBackupPrepareW}
  264. {$IFDEF UNICODE}
  265. function DsBackupPrepare(szBackupServer: LPCWSTR; grbit: ULONG; btFlag: ULONG;
  266.   var ppvExpiryToken: PVOID; var pcbExpiryTokenSize: DWORD; var phbc: HBC): HRESULT; stdcall;
  267. {$EXTERNALSYM DsBackupPrepare}
  268. {$ELSE}
  269. function DsBackupPrepare(szBackupServer: LPCSTR; grbit: ULONG; btFlag: ULONG;
  270.   var ppvExpiryToken: PVOID; var pcbExpiryTokenSize: DWORD; var phbc: HBC): HRESULT; stdcall;
  271. {$EXTERNALSYM DsBackupPrepare}
  272. {$ENDIF}
  274. {*************************************************************************************
  275. Routine Description:
  277.       DsBackupGetDatabaseNames
  278.         Gives the list of data bases that need to be backed up for the given
  279.         backup context
  281.   Arguments:
  282.     [in]    hbc - backup context handle
  283.     [out]   pszAttachmentInfo - pointer that will receive the pointer to the attachment
  284.                 info; allocated memory should be freed using DsBackupFree() API by the
  285.                 caller when it is no longer needed; Attachment info is an array of
  286.                 null-terminated filenames and and the list is terminated by two-nulls.
  287.     [out]   pcbSize - will receive the number of bytes returned
  288. Return Value:
  290.     One of the standard HRESULT success codes;
  291.     Failure code otherwise.
  292. **************************************************************************************}
  294. function DsBackupGetDatabaseNamesA(hbc: HBC; var pszAttachmentInfo: LPSTR;
  295.   var pcbSize: DWORD): HRESULT; stdcall;
  296. {$EXTERNALSYM DsBackupGetDatabaseNamesA}
  297. function DsBackupGetDatabaseNamesW(hbc: HBC; var pszAttachmentInfo: LPWSTR;
  298.   var pcbSize: DWORD): HRESULT; stdcall;
  299. {$EXTERNALSYM DsBackupGetDatabaseNamesW}
  301. {$IFDEF UNICODE}
  302. function DsBackupGetDatabaseNames(hbc: HBC; var pszAttachmentInfo: LPWSTR;
  303.   var pcbSize: DWORD): HRESULT; stdcall;
  304. {$EXTERNALSYM DsBackupGetDatabaseNames}
  305. {$ELSE}
  306. function DsBackupGetDatabaseNames(hbc: HBC; var pszAttachmentInfo: LPSTR;
  307.   var pcbSize: DWORD): HRESULT; stdcall;
  308. {$EXTERNALSYM DsBackupGetDatabaseNames}
  309. {$ENDIF}
  311. {*************************************************************************************
  312. Routine Description:
  314.       DsBackupOpenFile
  315.         Opens the given attachment for read.
  317.   Arguments:
  318.     [in]    hbc - backup context handle
  319.     [in]    szAttachmentName - name of the attachment to be opened for read
  320.     [in]    cbReadHintSize - suggested size in bytes that might be used during the
  321.                 subsequent reads on this attachement
  322.     [out]   pliFileSize - pointer to a large integer that would receive the size in
  323.                 bytes of the given attachment
  324. Return Value:
  326.     One of the standard HRESULT success codes;
  327.     Failure code otherwise.
  328. **************************************************************************************}
  330. function DsBackupOpenFileA(hbc: HBC; szAttachmentName: LPCSTR; cbReadHintSize: DWORD;
  331.   var pliFileSize: LARGE_INTEGER): HRESULT; stdcall;
  332. {$EXTERNALSYM DsBackupOpenFileA}
  333. function DsBackupOpenFileW(hbc: HBC; szAttachmentName: LPCWSTR; cbReadHintSize: DWORD;
  334.   var pliFileSize: LARGE_INTEGER): HRESULT; stdcall;
  335. {$EXTERNALSYM DsBackupOpenFileW}
  337. {$IFDEF UNICODE}
  338. function DsBackupOpenFile(hbc: HBC; szAttachmentName: LPCWSTR; cbReadHintSize: DWORD;
  339.   var pliFileSize: LARGE_INTEGER): HRESULT; stdcall;
  340. {$EXTERNALSYM DsBackupOpenFile}
  341. {$ELSE}
  342. function DsBackupOpenFile(hbc: HBC; szAttachmentName: LPCSTR; cbReadHintSize: DWORD;
  343.   var pliFileSize: LARGE_INTEGER): HRESULT; stdcall;
  344. {$EXTERNALSYM DsBackupOpenFile}
  345. {$ENDIF}
  347. {*************************************************************************************
  348. Routine Description:
  350.       DsBackupRead
  351.         Reads the currently open attachment bytes into the given buffer. The client
  352.         application is expected to call this function repeatedly until it gets the
  353.         entire file (the application would have received the file size through the
  354.         DsBackupOpenFile() call before.
  356.   Arguments:
  357.     [in]    hbc - backup context handle
  358.     [in]    pvBuffer - pointer to the buffer that would receive the read data.
  359.     [in]    cbBuffer - specifies the size of the above buffer
  360.     [out]   pcbRead - pointer to receive the actual number of bytes read.
  361. Return Value:
  363.     One of the standard HRESULT success codes;
  364.     Failure code otherwise.
  365. **************************************************************************************}
  367. function DsBackupRead(hbc: HBC; pvBuffer: PVOID; cbBuffer: DWORD; var pcbRead: DWORD): HRESULT; stdcall;
  368. {$EXTERNALSYM DsBackupRead}
  370. {*************************************************************************************
  371. Routine Description:
  373.       DsBackupClose
  374.         To be called by the application after it completes reading all the data in
  375.         the currently opened attachement.
  377.   Arguments:
  378.     [in]    hbc - backup context handle
  379. Return Value:
  381.     One of the standard HRESULT success codes;
  382.     Failure code otherwise.
  383. **************************************************************************************}
  385. function DsBackupClose(hbc: HBC): HRESULT; stdcall;
  386. {$EXTERNALSYM DsBackupClose}
  388. {*************************************************************************************
  389. Routine Description:
  391.       DsBackupGetBackupLogs
  392.         Gives the list of log files that need to be backed up for the given
  393.         backup context
  395.   Arguments:
  396.     [in]    hbc - backup context handle
  397.     [out]   pszBackupLogFiles - pointer that will receive the pointer to the list of
  398.                 log files; allocated memory should be freed using DsBackupFree() API by the
  399.                 caller when it is no longer needed; Log files are returned in an array of
  400.                 null-terminated filenames and and the list is terminated by two-nulls.
  401.     [out]   pcbSize - will receive the number of bytes returned
  402. Return Value:
  404.     One of the standard HRESULT success codes;
  405.     Failure code otherwise.
  406. **************************************************************************************}
  408. function DsBackupGetBackupLogsA(hbc: HBC; var pszBackupLogFiles: LPSTR;
  409.   var pcbSize: DWORD): HRESULT; stdcall;
  410. {$EXTERNALSYM DsBackupGetBackupLogsA}
  411. function DsBackupGetBackupLogsW(hbc: HBC; var pszBackupLogFiles: LPWSTR;
  412.   var pcbSize: DWORD): HRESULT; stdcall;
  413. {$EXTERNALSYM DsBackupGetBackupLogsW}
  415. {$IFDEF UNICODE}
  416. function DsBackupGetBackupLogs(hbc: HBC; var pszBackupLogFiles: LPWSTR;
  417.   var pcbSize: DWORD): HRESULT; stdcall;
  418. {$EXTERNALSYM DsBackupGetBackupLogs}
  419. {$ELSE}
  420. function DsBackupGetBackupLogs(hbc: HBC; var pszBackupLogFiles: LPSTR;
  421.   var pcbSize: DWORD): HRESULT; stdcall;
  422. {$EXTERNALSYM DsBackupGetBackupLogs}
  423. {$ENDIF}
  425. {*************************************************************************************
  426. Routine Description:
  428.       DsBackupTruncateLogs
  429.         Called to truncate the already read backup logs.
  431.   Arguments:
  432.     [in]    hbc - backup context handle
  433. Return Value:
  435.     One of the standard HRESULT success codes;
  436.     Failure code otherwise.
  437. **************************************************************************************}
  439. function DsBackupTruncateLogs(hbc: HBC): HRESULT; stdcall;
  440. {$EXTERNALSYM DsBackupTruncateLogs}
  442. {*************************************************************************************
  443. Routine Description:
  445.       DsBackupEnd
  446.         Called to end the current backup session.
  448.   Arguments:
  449.     [in]    hbc - backup context handle of the backup session
  450. Return Value:
  452.     One of the standard HRESULT success codes;
  453.     Failure code otherwise.
  454. **************************************************************************************}
  456. function DsBackupEnd(hbc: HBC): HRESULT; stdcall;
  457. {$EXTERNALSYM DsBackupEnd}
  459. {*************************************************************************************
  460. Routine Description:
  462.       DsBackupFree
  463.         Should be used by the application to free any buffer allocated by the
  464.         NTDSBCLI dll.
  466.   Arguments:
  467.     [in]    pvBuffer - pointer to the buffer that is to be freed.
  469.   Return Value:
  470.     None.
  471. **************************************************************************************}
  473. procedure DsBackupFree(pvBuffer: PVOID); stdcall;
  474. {$EXTERNALSYM DsBackupFree}
  476. {*************************************************************************************
  477. Routine Description:
  479.       DsRestoreGetDatabaseLocations
  480.         Called both at backup time as well at restoration time to get the data base
  481.         locations for different types of files.
  483.   Arguments:
  484.     [in]    hbc - backup context handle which would have been obtained through
  485.                     DsBackupPrepare() in the backup case and through DsRestorePrepare()
  486.                     in the restore case.
  487.     [out]   pszDatabaseLocationList - pointer that will receive the pointer to the list of
  488.                 database locations; allocated memory should be freed using DsBackupFree() API by the
  489.                 caller when it is no longer needed; locations are returned in an array of
  490.                 null-terminated names and and the list is terminated by two-nulls.
  491.                 The first character of each name is the BFT character that indicates the type
  492.                 of the file and the rest of the name tells gives the path into which that
  493.                 particular type of file should be restored.
  494.     [out]   pcbSize - will receive the number of bytes returned
  495. Return Value:
  497.     One of the standard HRESULT success codes;
  498.     Failure code otherwise.
  499. **************************************************************************************}
  501. function DsRestoreGetDatabaseLocationsA(hbc: HBC; var pszDatabaseLocationList: LPSTR;
  502.   var pcbSize: DWORD): HRESULT; stdcall;
  503. {$EXTERNALSYM DsRestoreGetDatabaseLocationsA}
  504. function DsRestoreGetDatabaseLocationsW(hbc: HBC; var pszDatabaseLocationList: LPWSTR;
  505.   var pcbSize: DWORD): HRESULT; stdcall;
  506. {$EXTERNALSYM DsRestoreGetDatabaseLocationsW}
  508. {$IFDEF UNICODE}
  509. function DsRestoreGetDatabaseLocations(hbc: HBC; var pszDatabaseLocationList: LPWSTR;
  510.   var pcbSize: DWORD): HRESULT; stdcall;
  511. {$EXTERNALSYM DsRestoreGetDatabaseLocations}
  512. {$ELSE}
  513. function DsRestoreGetDatabaseLocations(hbc: HBC; var pszDatabaseLocationList: LPSTR;
  514.   var pcbSize: DWORD): HRESULT; stdcall;
  515. {$EXTERNALSYM DsRestoreGetDatabaseLocations}
  516. {$ENDIF}
  518. {*************************************************************************************
  519. Routine Description:
  521.       DsRestorePrepare
  522.         Called to indicate beginning of a restore session.
  524.   Arguments:
  525.     [in]    szServerName - UNC name of the server into which the restore operation is
  526.                             going to be performed.
  527.     [in]    rtFlag -  Or'ed combination of RESTORE_TYPE_* flags; 0 if no special flags
  528.                             are to be specified
  529.     [in]    pvExpiryToken - pointer to the expiry token associated with this
  530.                             backup. The client would have received this when they backed up the DS.
  531.     [in]    cbExpiryTokenSize - size of the expiry token.
  532.     [out]   phbc - pointer to receive the backup context handle which is to be passed
  533.                             to the subsequent restore APIs
  535. Return Value:
  537.     One of the standard HRESULT success codes;
  538.     Failure code otherwise.
  539. **************************************************************************************}
  541. function DsRestorePrepareA(szServerName: LPCSTR; rtFlag: ULONG; pvExpiryToken: PVOID;
  542.   cbExpiryTokenSize: DWORD; var phbc: HBC): HRESULT; stdcall;
  543. {$EXTERNALSYM DsRestorePrepareA}
  544. function DsRestorePrepareW(szServerName: LPCWSTR; rtFlag: ULONG; pvExpiryToken: PVOID;
  545.   cbExpiryTokenSize: DWORD; var phbc: HBC): HRESULT; stdcall;
  546. {$EXTERNALSYM DsRestorePrepareW}
  548. {$IFDEF UNICODE}
  549. function DsRestorePrepare(szServerName: LPCWSTR; rtFlag: ULONG; pvExpiryToken: PVOID;
  550.   cbExpiryTokenSize: DWORD; var phbc: HBC): HRESULT; stdcall;
  551. {$EXTERNALSYM DsRestorePrepare}
  552. {$ELSE}
  553. function DsRestorePrepare(szServerName: LPCSTR; rtFlag: ULONG; pvExpiryToken: PVOID;
  554.   cbExpiryTokenSize: DWORD; var phbc: HBC): HRESULT; stdcall;
  555. {$EXTERNALSYM DsRestorePrepare}
  556. {$ENDIF}
  558. {*************************************************************************************
  559. Routine Description:
  561.       DsRestoreRegister
  562.         This will register a restore operation. It will interlock all sbsequent restore
  563.         operations, and will prevent the restore target from starting until the call
  564.         to DsRestoreRegisterComplete() is made.
  566.   Arguments:
  567.     [in]    hbc - backup context handle for the restore session.
  568.     [in]    szCheckPointFilePath - path where the check point files are restored
  569.     [in]    szLogPath - path where the log files are restored
  570.     [in]    rgrstmap - restore map
  571.     [in]    crstmap - tells if ther is a new restore map
  572.     [in]    szBackupLogPath - path where the backup logs are located
  573.     [in]    genLow - Lowest log# that was restored in this restore session
  574.     [in]    genHigh - Highest log# that was restored in this restore session
  576.   Return Value:
  578.     One of the standard HRESULT success codes;
  579.     Failure code otherwise.
  580. **************************************************************************************}
  582. function DsRestoreRegisterA(hbc: HBC; szCheckPointFilePath, szLogPath: LPCSTR;
  583.   rgrstmap: PEDB_RSTMAPA; crstmap: LONG; szBackupLogPath: LPCSTR; genLow, genHigh: ULONG): HRESULT; stdcall;
  584. {$EXTERNALSYM DsRestoreRegisterA}
  585. function DsRestoreRegisterW(hbc: HBC; szCheckPointFilePath, szLogPath: LPCWSTR;
  586.   rgrstmap: PEDB_RSTMAPW; crstmap: LONG; szBackupLogPath: LPCWSTR; genLow, genHigh: ULONG): HRESULT; stdcall;
  587. {$EXTERNALSYM DsRestoreRegisterW}
  589. {$IFDEF UNICODE}
  590. function DsRestoreRegister(hbc: HBC; szCheckPointFilePath, szLogPath: LPCWSTR;
  591.   rgrstmap: PEDB_RSTMAPW; crstmap: LONG; szBackupLogPath: LPCWSTR; genLow, genHigh: ULONG): HRESULT; stdcall;
  592. {$EXTERNALSYM DsRestoreRegister}
  593. {$ELSE}
  594. function DsRestoreRegister(hbc: HBC; szCheckPointFilePath, szLogPath: LPCSTR;
  595.   rgrstmap: PEDB_RSTMAPA; crstmap: LONG; szBackupLogPath: LPCSTR; genLow, genHigh: ULONG): HRESULT; stdcall;
  596. {$EXTERNALSYM DsRestoreRegister}
  597. {$ENDIF}
  599. {*************************************************************************************
  600. Routine Description:
  602.       DsRestoreRegisterComplete
  603.         Called to indicate that a previously registered restore is complete.
  605.   Arguments:
  606.     [in]    hbc - backup context handle
  607.     [in]    hrRestoreState - success code if the restore was successful
  608. Return Value:
  610.     One of the standard HRESULT success codes;
  611.     Failure code otherwise.
  612. **************************************************************************************}
  614. function DsRestoreRegisterComplete(hbc: HBC; hrRestoreState: HRESULT): HRESULT; stdcall;
  615. {$EXTERNALSYM DsRestoreRegisterComplete}
  617. {*************************************************************************************
  618. Routine Description:
  620.       DsRestoreEnd
  621.         Called to end a restore session
  623.   Arguments:
  624.     [in]    hbc - backup context handle
  625. Return Value:
  627.     One of the standard HRESULT success codes;
  628.     Failure code otherwise.
  629. **************************************************************************************}
  631. function DsRestoreEnd(hbc: HBC): HRESULT; stdcall;
  632. {$EXTERNALSYM DsRestoreEnd}
  634. {*************************************************************************************
  635. Routine Description:
  637.       DsSetCurrentBackupLog
  638.         Called to set the current backup log number after a successful restore
  640.   Arguments:
  641.     [in]    szServerName - UNC name of the server for which the current backup log has
  642.                                 to be set
  643.     [in]    dwCurrentLog -  current log number
  644. Return Value:
  646.     One of the standard HRESULT success codes;
  647.     Failure code otherwise.
  648. **************************************************************************************}
  650. function DsSetCurrentBackupLogA(szServerName: LPCSTR; dwCurrentLog: DWORD): HRESULT; stdcall;
  651. {$EXTERNALSYM DsSetCurrentBackupLogA}
  652. function DsSetCurrentBackupLogW(szServerName: LPCWSTR; dwCurrentLog: DWORD): HRESULT; stdcall;
  653. {$EXTERNALSYM DsSetCurrentBackupLogW}
  655. {$IFDEF UNICODE}
  656. function DsSetCurrentBackupLog(szServerName: LPCWSTR; dwCurrentLog: DWORD): HRESULT; stdcall;
  657. {$EXTERNALSYM DsSetCurrentBackupLog}
  658. {$ELSE}
  659. function DsSetCurrentBackupLog(szServerName: LPCSTR; dwCurrentLog: DWORD): HRESULT; stdcall;
  660. {$EXTERNALSYM DsSetCurrentBackupLog}
  661. {$ENDIF}
  663. {*************************************************************************************
  664. Routine Description:
  666.       DsSetAuthIdentity
  667.         Used to set the security context under which the client APIs are to be
  668.         called. If this function is not called, security context of the current
  669.         process is assumed.
  671.   Arguments:
  672.     [in]    szUserName - name of the user
  673.     [in]    szDomainName -  name of the domain the user belongs to
  674.     [in]    szPassword - password of the user in the specified domain
  676. Return Value:
  678.     One of the standard HRESULT success codes;
  679.     Failure code otherwise.
  680. **************************************************************************************}
  682. function DsSetAuthIdentityA(szUserName, szDomainName, szPassword: LPCSTR): HRESULT; stdcall;
  683. {$EXTERNALSYM DsSetAuthIdentityA}
  684. function DsSetAuthIdentityW(szUserName, szDomainName, szPassword: LPCWSTR): HRESULT; stdcall;
  685. {$EXTERNALSYM DsSetAuthIdentityW}
  687. {$IFDEF UNICODE}
  688. function DsSetAuthIdentity(szUserName, szDomainName, szPassword: LPCWSTR): HRESULT; stdcall;
  689. {$EXTERNALSYM DsSetAuthIdentity}
  690. {$ELSE}
  691. function DsSetAuthIdentity(szUserName, szDomainName, szPassword: LPCSTR): HRESULT; stdcall;
  692. {$EXTERNALSYM DsSetAuthIdentity}
  693. {$ENDIF}
  695. implementation
  697. const
  698.   ntdsbclilib = 'ntdsbclilib.dll';
  701. {$IFDEF DYNAMIC_LINK}
  702. var
  703.   _DsIsNTDSOnlineA: Pointer;
  705. function DsIsNTDSOnlineA;
  706. begin
  707.   GetProcedureAddress(_DsIsNTDSOnlineA, ntdsbclilib, 'DsIsNTDSOnlineA');
  708.   asm
  709.     mov esp, ebp
  710.     pop ebp
  711.     jmp [_DsIsNTDSOnlineA]
  712.   end;
  713. end;
  714. {$ELSE}
  715. function DsIsNTDSOnlineA; external ntdsbclilib name 'DsIsNTDSOnlineA';
  716. {$ENDIF DYNAMIC_LINK}
  718. {$IFDEF DYNAMIC_LINK}
  719. var
  720.   _DsIsNTDSOnlineW: Pointer;
  722. function DsIsNTDSOnlineW;
  723. begin
  724.   GetProcedureAddress(_DsIsNTDSOnlineW, ntdsbclilib, 'DsIsNTDSOnlineW');
  725.   asm
  726.     mov esp, ebp
  727.     pop ebp
  728.     jmp [_DsIsNTDSOnlineW]
  729.   end;
  730. end;
  731. {$ELSE}
  732. function DsIsNTDSOnlineW; external ntdsbclilib name 'DsIsNTDSOnlineW';
  733. {$ENDIF DYNAMIC_LINK}
  734. {$IFDEF UNICODE}
  736. {$IFDEF DYNAMIC_LINK}
  737. var
  738.   _DsIsNTDSOnline: Pointer;
  740. function DsIsNTDSOnline;
  741. begin
  742.   GetProcedureAddress(_DsIsNTDSOnline, ntdsbclilib, 'DsIsNTDSOnlineW');
  743.   asm
  744.     mov esp, ebp
  745.     pop ebp
  746.     jmp [_DsIsNTDSOnline]
  747.   end;
  748. end;
  749. {$ELSE}
  750. function DsIsNTDSOnline; external ntdsbclilib name 'DsIsNTDSOnlineW';
  751. {$ENDIF DYNAMIC_LINK}
  752. {$ELSE}
  754. {$IFDEF DYNAMIC_LINK}
  755. var
  756.   _DsIsNTDSOnline: Pointer;
  758. function DsIsNTDSOnline;
  759. begin
  760.   GetProcedureAddress(_DsIsNTDSOnline, ntdsbclilib, 'DsIsNTDSOnlineA');
  761.   asm
  762.     mov esp, ebp
  763.     pop ebp
  764.     jmp [_DsIsNTDSOnline]
  765.   end;
  766. end;
  767. {$ELSE}
  768. function DsIsNTDSOnline; external ntdsbclilib name 'DsIsNTDSOnlineA';
  769. {$ENDIF DYNAMIC_LINK}
  770. {$ENDIF}
  772. {$IFDEF DYNAMIC_LINK}
  773. var
  774.   _DsBackupPrepareA: Pointer;
  776. function DsBackupPrepareA;
  777. begin
  778.   GetProcedureAddress(_DsBackupPrepareA, ntdsbclilib, 'DsBackupPrepareA');
  779.   asm
  780.     mov esp, ebp
  781.     pop ebp
  782.     jmp [_DsBackupPrepareA]
  783.   end;
  784. end;
  785. {$ELSE}
  786. function DsBackupPrepareA; external ntdsbclilib name 'DsBackupPrepareA';
  787. {$ENDIF DYNAMIC_LINK}
  789. {$IFDEF DYNAMIC_LINK}
  790. var
  791.   _DsBackupPrepareW: Pointer;
  793. function DsBackupPrepareW;
  794. begin
  795.   GetProcedureAddress(_DsBackupPrepareW, ntdsbclilib, 'DsBackupPrepareW');
  796.   asm
  797.     mov esp, ebp
  798.     pop ebp
  799.     jmp [_DsBackupPrepareW]
  800.   end;
  801. end;
  802. {$ELSE}
  803. function DsBackupPrepareW; external ntdsbclilib name 'DsBackupPrepareW';
  804. {$ENDIF DYNAMIC_LINK}
  805. {$IFDEF UNICODE}
  807. {$IFDEF DYNAMIC_LINK}
  808. var
  809.   _DsBackupPrepare: Pointer;
  811. function DsBackupPrepare;
  812. begin
  813.   GetProcedureAddress(_DsBackupPrepare, ntdsbclilib, 'DsBackupPrepareW');
  814.   asm
  815.     mov esp, ebp
  816.     pop ebp
  817.     jmp [_DsBackupPrepare]
  818.   end;
  819. end;
  820. {$ELSE}
  821. function DsBackupPrepare; external ntdsbclilib name 'DsBackupPrepareW';
  822. {$ENDIF DYNAMIC_LINK}
  823. {$ELSE}
  825. {$IFDEF DYNAMIC_LINK}
  826. var
  827.   _DsBackupPrepare: Pointer;
  829. function DsBackupPrepare;
  830. begin
  831.   GetProcedureAddress(_DsBackupPrepare, ntdsbclilib, 'DsBackupPrepareA');
  832.   asm
  833.     mov esp, ebp
  834.     pop ebp
  835.     jmp [_DsBackupPrepare]
  836.   end;
  837. end;
  838. {$ELSE}
  839. function DsBackupPrepare; external ntdsbclilib name 'DsBackupPrepareA';
  840. {$ENDIF DYNAMIC_LINK}
  841. {$ENDIF}
  843. {$IFDEF DYNAMIC_LINK}
  844. var
  845.   _DsBackupGetDatabaseNamesA: Pointer;
  847. function DsBackupGetDatabaseNamesA;
  848. begin
  849.   GetProcedureAddress(_DsBackupGetDatabaseNamesA, ntdsbclilib, 'DsBackupGetDatabaseNamesA');
  850.   asm
  851.     mov esp, ebp
  852.     pop ebp
  853.     jmp [_DsBackupGetDatabaseNamesA]
  854.   end;
  855. end;
  856. {$ELSE}
  857. function DsBackupGetDatabaseNamesA; external ntdsbclilib name 'DsBackupGetDatabaseNamesA';
  858. {$ENDIF DYNAMIC_LINK}
  860. {$IFDEF DYNAMIC_LINK}
  861. var
  862.   _DsBackupGetDatabaseNamesW: Pointer;
  864. function DsBackupGetDatabaseNamesW;
  865. begin
  866.   GetProcedureAddress(_DsBackupGetDatabaseNamesW, ntdsbclilib, 'DsBackupGetDatabaseNamesW');
  867.   asm
  868.     mov esp, ebp
  869.     pop ebp
  870.     jmp [_DsBackupGetDatabaseNamesW]
  871.   end;
  872. end;
  873. {$ELSE}
  874. function DsBackupGetDatabaseNamesW; external ntdsbclilib name 'DsBackupGetDatabaseNamesW';
  875. {$ENDIF DYNAMIC_LINK}
  876. {$IFDEF UNICODE}
  878. {$IFDEF DYNAMIC_LINK}
  879. var
  880.   _DsBackupGetDatabaseNames: Pointer;
  882. function DsBackupGetDatabaseNames;
  883. begin
  884.   GetProcedureAddress(_DsBackupGetDatabaseNames, ntdsbclilib, 'DsBackupGetDatabaseNamesW');
  885.   asm
  886.     mov esp, ebp
  887.     pop ebp
  888.     jmp [_DsBackupGetDatabaseNames]
  889.   end;
  890. end;
  891. {$ELSE}
  892. function DsBackupGetDatabaseNames; external ntdsbclilib name 'DsBackupGetDatabaseNamesW';
  893. {$ENDIF DYNAMIC_LINK}
  894. {$ELSE}
  896. {$IFDEF DYNAMIC_LINK}
  897. var
  898.   _DsBackupGetDatabaseNames: Pointer;
  900. function DsBackupGetDatabaseNames;
  901. begin
  902.   GetProcedureAddress(_DsBackupGetDatabaseNames, ntdsbclilib, 'DsBackupGetDatabaseNamesA');
  903.   asm
  904.     mov esp, ebp
  905.     pop ebp
  906.     jmp [_DsBackupGetDatabaseNames]
  907.   end;
  908. end;
  909. {$ELSE}
  910. function DsBackupGetDatabaseNames; external ntdsbclilib name 'DsBackupGetDatabaseNamesA';
  911. {$ENDIF DYNAMIC_LINK}
  912. {$ENDIF}
  914. {$IFDEF DYNAMIC_LINK}
  915. var
  916.   _DsBackupOpenFileA: Pointer;
  918. function DsBackupOpenFileA;
  919. begin
  920.   GetProcedureAddress(_DsBackupOpenFileA, ntdsbclilib, 'DsBackupOpenFileA');
  921.   asm
  922.     mov esp, ebp
  923.     pop ebp
  924.     jmp [_DsBackupOpenFileA]
  925.   end;
  926. end;
  927. {$ELSE}
  928. function DsBackupOpenFileA; external ntdsbclilib name 'DsBackupOpenFileA';
  929. {$ENDIF DYNAMIC_LINK}
  931. {$IFDEF DYNAMIC_LINK}
  932. var
  933.   _DsBackupOpenFileW: Pointer;
  935. function DsBackupOpenFileW;
  936. begin
  937.   GetProcedureAddress(_DsBackupOpenFileW, ntdsbclilib, 'DsBackupOpenFileW');
  938.   asm
  939.     mov esp, ebp
  940.     pop ebp
  941.     jmp [_DsBackupOpenFileW]
  942.   end;
  943. end;
  944. {$ELSE}
  945. function DsBackupOpenFileW; external ntdsbclilib name 'DsBackupOpenFileW';
  946. {$ENDIF DYNAMIC_LINK}
  947. {$IFDEF UNICODE}
  949. {$IFDEF DYNAMIC_LINK}
  950. var
  951.   _DsBackupOpenFile: Pointer;
  953. function DsBackupOpenFile;
  954. begin
  955.   GetProcedureAddress(_DsBackupOpenFile, ntdsbclilib, 'DsBackupOpenFileW');
  956.   asm
  957.     mov esp, ebp
  958.     pop ebp
  959.     jmp [_DsBackupOpenFile]
  960.   end;
  961. end;
  962. {$ELSE}
  963. function DsBackupOpenFile; external ntdsbclilib name 'DsBackupOpenFileW';
  964. {$ENDIF DYNAMIC_LINK}
  965. {$ELSE}
  967. {$IFDEF DYNAMIC_LINK}
  968. var
  969.   _DsBackupOpenFile: Pointer;
  971. function DsBackupOpenFile;
  972. begin
  973.   GetProcedureAddress(_DsBackupOpenFile, ntdsbclilib, 'DsBackupOpenFileA');
  974.   asm
  975.     mov esp, ebp
  976.     pop ebp
  977.     jmp [_DsBackupOpenFile]
  978.   end;
  979. end;
  980. {$ELSE}
  981. function DsBackupOpenFile; external ntdsbclilib name 'DsBackupOpenFileA';
  982. {$ENDIF DYNAMIC_LINK}
  983. {$ENDIF}
  985. {$IFDEF DYNAMIC_LINK}
  986. var
  987.   _DsBackupRead: Pointer;
  989. function DsBackupRead;
  990. begin
  991.   GetProcedureAddress(_DsBackupRead, ntdsbclilib, 'DsBackupRead');
  992.   asm
  993.     mov esp, ebp
  994.     pop ebp
  995.     jmp [_DsBackupRead]
  996.   end;
  997. end;
  998. {$ELSE}
  999. function DsBackupRead; external ntdsbclilib name 'DsBackupRead';
  1000. {$ENDIF DYNAMIC_LINK}
  1002. {$IFDEF DYNAMIC_LINK}
  1003. var
  1004.   _DsBackupClose: Pointer;
  1006. function DsBackupClose;
  1007. begin
  1008.   GetProcedureAddress(_DsBackupClose, ntdsbclilib, 'DsBackupClose');
  1009.   asm
  1010.     mov esp, ebp
  1011.     pop ebp
  1012.     jmp [_DsBackupClose]
  1013.   end;
  1014. end;
  1015. {$ELSE}
  1016. function DsBackupClose; external ntdsbclilib name 'DsBackupClose';
  1017. {$ENDIF DYNAMIC_LINK}
  1019. {$IFDEF DYNAMIC_LINK}
  1020. var
  1021.   _DsBackupGetBackupLogsA: Pointer;
  1023. function DsBackupGetBackupLogsA;
  1024. begin
  1025.   GetProcedureAddress(_DsBackupGetBackupLogsA, ntdsbclilib, 'DsBackupGetBackupLogsA');
  1026.   asm
  1027.     mov esp, ebp
  1028.     pop ebp
  1029.     jmp [_DsBackupGetBackupLogsA]
  1030.   end;
  1031. end;
  1032. {$ELSE}
  1033. function DsBackupGetBackupLogsA; external ntdsbclilib name 'DsBackupGetBackupLogsA';
  1034. {$ENDIF DYNAMIC_LINK}
  1036. {$IFDEF DYNAMIC_LINK}
  1037. var
  1038.   _DsBackupGetBackupLogsW: Pointer;
  1040. function DsBackupGetBackupLogsW;
  1041. begin
  1042.   GetProcedureAddress(_DsBackupGetBackupLogsW, ntdsbclilib, 'DsBackupGetBackupLogsW');
  1043.   asm
  1044.     mov esp, ebp
  1045.     pop ebp
  1046.     jmp [_DsBackupGetBackupLogsW]
  1047.   end;
  1048. end;
  1049. {$ELSE}
  1050. function DsBackupGetBackupLogsW; external ntdsbclilib name 'DsBackupGetBackupLogsW';
  1051. {$ENDIF DYNAMIC_LINK}
  1052. {$IFDEF UNICODE}
  1054. {$IFDEF DYNAMIC_LINK}
  1055. var
  1056.   _DsBackupGetBackupLogs: Pointer;
  1058. function DsBackupGetBackupLogs;
  1059. begin
  1060.   GetProcedureAddress(_DsBackupGetBackupLogs, ntdsbclilib, 'DsBackupGetBackupLogsW');
  1061.   asm
  1062.     mov esp, ebp
  1063.     pop ebp
  1064.     jmp [_DsBackupGetBackupLogs]
  1065.   end;
  1066. end;
  1067. {$ELSE}
  1068. function DsBackupGetBackupLogs; external ntdsbclilib name 'DsBackupGetBackupLogsW';
  1069. {$ENDIF DYNAMIC_LINK}
  1070. {$ELSE}
  1072. {$IFDEF DYNAMIC_LINK}
  1073. var
  1074.   _DsBackupGetBackupLogs: Pointer;
  1076. function DsBackupGetBackupLogs;
  1077. begin
  1078.   GetProcedureAddress(_DsBackupGetBackupLogs, ntdsbclilib, 'DsBackupGetBackupLogsA');
  1079.   asm
  1080.     mov esp, ebp
  1081.     pop ebp
  1082.     jmp [_DsBackupGetBackupLogs]
  1083.   end;
  1084. end;
  1085. {$ELSE}
  1086. function DsBackupGetBackupLogs; external ntdsbclilib name 'DsBackupGetBackupLogsA';
  1087. {$ENDIF DYNAMIC_LINK}
  1088. {$ENDIF}
  1090. {$IFDEF DYNAMIC_LINK}
  1091. var
  1092.   _DsBackupTruncateLogs: Pointer;
  1094. function DsBackupTruncateLogs;
  1095. begin
  1096.   GetProcedureAddress(_DsBackupTruncateLogs, ntdsbclilib, 'DsBackupTruncateLogs');
  1097.   asm
  1098.     mov esp, ebp
  1099.     pop ebp
  1100.     jmp [_DsBackupTruncateLogs]
  1101.   end;
  1102. end;
  1103. {$ELSE}
  1104. function DsBackupTruncateLogs; external ntdsbclilib name 'DsBackupTruncateLogs';
  1105. {$ENDIF DYNAMIC_LINK}
  1107. {$IFDEF DYNAMIC_LINK}
  1108. var
  1109.   _DsBackupEnd: Pointer;
  1111. function DsBackupEnd;
  1112. begin
  1113.   GetProcedureAddress(_DsBackupEnd, ntdsbclilib, 'DsBackupEnd');
  1114.   asm
  1115.     mov esp, ebp
  1116.     pop ebp
  1117.     jmp [_DsBackupEnd]
  1118.   end;
  1119. end;
  1120. {$ELSE}
  1121. function DsBackupEnd; external ntdsbclilib name 'DsBackupEnd';
  1122. {$ENDIF DYNAMIC_LINK}
  1124. {$IFDEF DYNAMIC_LINK}
  1125. var
  1126.   _DsBackupFree: Pointer;
  1128. procedure DsBackupFree;
  1129. begin
  1130.   GetProcedureAddress(_DsBackupFree, ntdsbclilib, 'DsBackupFree');
  1131.   asm
  1132.     mov esp, ebp
  1133.     pop ebp
  1134.     jmp [_DsBackupFree]
  1135.   end;
  1136. end;
  1137. {$ELSE}
  1138. procedure DsBackupFree; external ntdsbclilib name 'DsBackupFree';
  1139. {$ENDIF DYNAMIC_LINK}
  1141. {$IFDEF DYNAMIC_LINK}
  1142. var
  1143.   _DsRestoreGetDatabaseLocationsA: Pointer;
  1145. function DsRestoreGetDatabaseLocationsA;
  1146. begin
  1147.   GetProcedureAddress(_DsRestoreGetDatabaseLocationsA, ntdsbclilib, 'DsRestoreGetDatabaseLocationsA');
  1148.   asm
  1149.     mov esp, ebp
  1150.     pop ebp
  1151.     jmp [_DsRestoreGetDatabaseLocationsA]
  1152.   end;
  1153. end;
  1154. {$ELSE}
  1155. function DsRestoreGetDatabaseLocationsA; external ntdsbclilib name 'DsRestoreGetDatabaseLocationsA';
  1156. {$ENDIF DYNAMIC_LINK}
  1158. {$IFDEF DYNAMIC_LINK}
  1159. var
  1160.   _DsRestoreGetDatabaseLocationsW: Pointer;
  1162. function DsRestoreGetDatabaseLocationsW;
  1163. begin
  1164.   GetProcedureAddress(_DsRestoreGetDatabaseLocationsW, ntdsbclilib, 'DsRestoreGetDatabaseLocationsW');
  1165.   asm
  1166.     mov esp, ebp
  1167.     pop ebp
  1168.     jmp [_DsRestoreGetDatabaseLocationsW]
  1169.   end;
  1170. end;
  1171. {$ELSE}
  1172. function DsRestoreGetDatabaseLocationsW; external ntdsbclilib name 'DsRestoreGetDatabaseLocationsW';
  1173. {$ENDIF DYNAMIC_LINK}
  1174. {$IFDEF UNICODE}
  1176. {$IFDEF DYNAMIC_LINK}
  1177. var
  1178.   _DsRestoreGetDatabaseLocations: Pointer;
  1180. function DsRestoreGetDatabaseLocations;
  1181. begin
  1182.   GetProcedureAddress(_DsRestoreGetDatabaseLocations, ntdsbclilib, 'DsRestoreGetDatabaseLocationsW');
  1183.   asm
  1184.     mov esp, ebp
  1185.     pop ebp
  1186.     jmp [_DsRestoreGetDatabaseLocations]
  1187.   end;
  1188. end;
  1189. {$ELSE}
  1190. function DsRestoreGetDatabaseLocations; external ntdsbclilib name 'DsRestoreGetDatabaseLocationsW';
  1191. {$ENDIF DYNAMIC_LINK}
  1192. {$ELSE}
  1194. {$IFDEF DYNAMIC_LINK}
  1195. var
  1196.   _DsRestoreGetDatabaseLocations: Pointer;
  1198. function DsRestoreGetDatabaseLocations;
  1199. begin
  1200.   GetProcedureAddress(_DsRestoreGetDatabaseLocations, ntdsbclilib, 'DsRestoreGetDatabaseLocationsA');
  1201.   asm
  1202.     mov esp, ebp
  1203.     pop ebp
  1204.     jmp [_DsRestoreGetDatabaseLocations]
  1205.   end;
  1206. end;
  1207. {$ELSE}
  1208. function DsRestoreGetDatabaseLocations; external ntdsbclilib name 'DsRestoreGetDatabaseLocationsA';
  1209. {$ENDIF DYNAMIC_LINK}
  1210. {$ENDIF}
  1212. {$IFDEF DYNAMIC_LINK}
  1213. var
  1214.   _DsRestorePrepareA: Pointer;
  1216. function DsRestorePrepareA;
  1217. begin
  1218.   GetProcedureAddress(_DsRestorePrepareA, ntdsbclilib, 'DsRestorePrepareA');
  1219.   asm
  1220.     mov esp, ebp
  1221.     pop ebp
  1222.     jmp [_DsRestorePrepareA]
  1223.   end;
  1224. end;
  1225. {$ELSE}
  1226. function DsRestorePrepareA; external ntdsbclilib name 'DsRestorePrepareA';
  1227. {$ENDIF DYNAMIC_LINK}
  1229. {$IFDEF DYNAMIC_LINK}
  1230. var
  1231.   _DsRestorePrepareW: Pointer;
  1233. function DsRestorePrepareW;
  1234. begin
  1235.   GetProcedureAddress(_DsRestorePrepareW, ntdsbclilib, 'DsRestorePrepareW');
  1236.   asm
  1237.     mov esp, ebp
  1238.     pop ebp
  1239.     jmp [_DsRestorePrepareW]
  1240.   end;
  1241. end;
  1242. {$ELSE}
  1243. function DsRestorePrepareW; external ntdsbclilib name 'DsRestorePrepareW';
  1244. {$ENDIF DYNAMIC_LINK}
  1245. {$IFDEF UNICODE}
  1247. {$IFDEF DYNAMIC_LINK}
  1248. var
  1249.   _DsRestorePrepare: Pointer;
  1251. function DsRestorePrepare;
  1252. begin
  1253.   GetProcedureAddress(_DsRestorePrepare, ntdsbclilib, 'DsRestorePrepareW');
  1254.   asm
  1255.     mov esp, ebp
  1256.     pop ebp
  1257.     jmp [_DsRestorePrepare]
  1258.   end;
  1259. end;
  1260. {$ELSE}
  1261. function DsRestorePrepare; external ntdsbclilib name 'DsRestorePrepareW';
  1262. {$ENDIF DYNAMIC_LINK}
  1263. {$ELSE}
  1265. {$IFDEF DYNAMIC_LINK}
  1266. var
  1267.   _DsRestorePrepare: Pointer;
  1269. function DsRestorePrepare;
  1270. begin
  1271.   GetProcedureAddress(_DsRestorePrepare, ntdsbclilib, 'DsRestorePrepareA');
  1272.   asm
  1273.     mov esp, ebp
  1274.     pop ebp
  1275.     jmp [_DsRestorePrepare]
  1276.   end;
  1277. end;
  1278. {$ELSE}
  1279. function DsRestorePrepare; external ntdsbclilib name 'DsRestorePrepareA';
  1280. {$ENDIF DYNAMIC_LINK}
  1281. {$ENDIF}
  1283. {$IFDEF DYNAMIC_LINK}
  1284. var
  1285.   _DsRestoreRegisterA: Pointer;
  1287. function DsRestoreRegisterA;
  1288. begin
  1289.   GetProcedureAddress(_DsRestoreRegisterA, ntdsbclilib, 'DsRestoreRegisterA');
  1290.   asm
  1291.     mov esp, ebp
  1292.     pop ebp
  1293.     jmp [_DsRestoreRegisterA]
  1294.   end;
  1295. end;
  1296. {$ELSE}
  1297. function DsRestoreRegisterA; external ntdsbclilib name 'DsRestoreRegisterA';
  1298. {$ENDIF DYNAMIC_LINK}
  1300. {$IFDEF DYNAMIC_LINK}
  1301. var
  1302.   _DsRestoreRegisterW: Pointer;
  1304. function DsRestoreRegisterW;
  1305. begin
  1306.   GetProcedureAddress(_DsRestoreRegisterW, ntdsbclilib, 'DsRestoreRegisterW');
  1307.   asm
  1308.     mov esp, ebp
  1309.     pop ebp
  1310.     jmp [_DsRestoreRegisterW]
  1311.   end;
  1312. end;
  1313. {$ELSE}
  1314. function DsRestoreRegisterW; external ntdsbclilib name 'DsRestoreRegisterW';
  1315. {$ENDIF DYNAMIC_LINK}
  1316. {$IFDEF UNICODE}
  1318. {$IFDEF DYNAMIC_LINK}
  1319. var
  1320.   _DsRestoreRegister: Pointer;
  1322. function DsRestoreRegister;
  1323. begin
  1324.   GetProcedureAddress(_DsRestoreRegister, ntdsbclilib, 'DsRestoreRegisterW');
  1325.   asm
  1326.     mov esp, ebp
  1327.     pop ebp
  1328.     jmp [_DsRestoreRegister]
  1329.   end;
  1330. end;
  1331. {$ELSE}
  1332. function DsRestoreRegister; external ntdsbclilib name 'DsRestoreRegisterW';
  1333. {$ENDIF DYNAMIC_LINK}
  1334. {$ELSE}
  1336. {$IFDEF DYNAMIC_LINK}
  1337. var
  1338.   _DsRestoreRegister: Pointer;
  1340. function DsRestoreRegister;
  1341. begin
  1342.   GetProcedureAddress(_DsRestoreRegister, ntdsbclilib, 'DsRestoreRegisterA');
  1343.   asm
  1344.     mov esp, ebp
  1345.     pop ebp
  1346.     jmp [_DsRestoreRegister]
  1347.   end;
  1348. end;
  1349. {$ELSE}
  1350. function DsRestoreRegister; external ntdsbclilib name 'DsRestoreRegisterA';
  1351. {$ENDIF DYNAMIC_LINK}
  1352. {$ENDIF}
  1354. {$IFDEF DYNAMIC_LINK}
  1355. var
  1356.   _DsRestoreRegisterComplete: Pointer;
  1358. function DsRestoreRegisterComplete;
  1359. begin
  1360.   GetProcedureAddress(_DsRestoreRegisterComplete, ntdsbclilib, 'DsRestoreRegisterComplete');
  1361.   asm
  1362.     mov esp, ebp
  1363.     pop ebp
  1364.     jmp [_DsRestoreRegisterComplete]
  1365.   end;
  1366. end;
  1367. {$ELSE}
  1368. function DsRestoreRegisterComplete; external ntdsbclilib name 'DsRestoreRegisterComplete';
  1369. {$ENDIF DYNAMIC_LINK}
  1371. {$IFDEF DYNAMIC_LINK}
  1372. var
  1373.   _DsRestoreEnd: Pointer;
  1375. function DsRestoreEnd;
  1376. begin
  1377.   GetProcedureAddress(_DsRestoreEnd, ntdsbclilib, 'DsRestoreEnd');
  1378.   asm
  1379.     mov esp, ebp
  1380.     pop ebp
  1381.     jmp [_DsRestoreEnd]
  1382.   end;
  1383. end;
  1384. {$ELSE}
  1385. function DsRestoreEnd; external ntdsbclilib name 'DsRestoreEnd';
  1386. {$ENDIF DYNAMIC_LINK}
  1388. {$IFDEF DYNAMIC_LINK}
  1389. var
  1390.   _DsSetCurrentBackupLogA: Pointer;
  1392. function DsSetCurrentBackupLogA;
  1393. begin
  1394.   GetProcedureAddress(_DsSetCurrentBackupLogA, ntdsbclilib, 'DsSetCurrentBackupLogA');
  1395.   asm
  1396.     mov esp, ebp
  1397.     pop ebp
  1398.     jmp [_DsSetCurrentBackupLogA]
  1399.   end;
  1400. end;
  1401. {$ELSE}
  1402. function DsSetCurrentBackupLogA; external ntdsbclilib name 'DsSetCurrentBackupLogA';
  1403. {$ENDIF DYNAMIC_LINK}
  1405. {$IFDEF DYNAMIC_LINK}
  1406. var
  1407.   _DsSetCurrentBackupLogW: Pointer;
  1409. function DsSetCurrentBackupLogW;
  1410. begin
  1411.   GetProcedureAddress(_DsSetCurrentBackupLogW, ntdsbclilib, 'DsSetCurrentBackupLogW');
  1412.   asm
  1413.     mov esp, ebp
  1414.     pop ebp
  1415.     jmp [_DsSetCurrentBackupLogW]
  1416.   end;
  1417. end;
  1418. {$ELSE}
  1419. function DsSetCurrentBackupLogW; external ntdsbclilib name 'DsSetCurrentBackupLogW';
  1420. {$ENDIF DYNAMIC_LINK}
  1421. {$IFDEF UNICODE}
  1423. {$IFDEF DYNAMIC_LINK}
  1424. var
  1425.   _DsSetCurrentBackupLog: Pointer;
  1427. function DsSetCurrentBackupLog;
  1428. begin
  1429.   GetProcedureAddress(_DsSetCurrentBackupLog, ntdsbclilib, 'DsSetCurrentBackupLogW');
  1430.   asm
  1431.     mov esp, ebp
  1432.     pop ebp
  1433.     jmp [_DsSetCurrentBackupLog]
  1434.   end;
  1435. end;
  1436. {$ELSE}
  1437. function DsSetCurrentBackupLog; external ntdsbclilib name 'DsSetCurrentBackupLogW';
  1438. {$ENDIF DYNAMIC_LINK}
  1439. {$ELSE}
  1441. {$IFDEF DYNAMIC_LINK}
  1442. var
  1443.   _DsSetCurrentBackupLog: Pointer;
  1445. function DsSetCurrentBackupLog;
  1446. begin
  1447.   GetProcedureAddress(_DsSetCurrentBackupLog, ntdsbclilib, 'DsSetCurrentBackupLogA');
  1448.   asm
  1449.     mov esp, ebp
  1450.     pop ebp
  1451.     jmp [_DsSetCurrentBackupLog]
  1452.   end;
  1453. end;
  1454. {$ELSE}
  1455. function DsSetCurrentBackupLog; external ntdsbclilib name 'DsSetCurrentBackupLogA';
  1456. {$ENDIF DYNAMIC_LINK}
  1457. {$ENDIF}
  1459. {$IFDEF DYNAMIC_LINK}
  1460. var
  1461.   _DsSetAuthIdentityA: Pointer;
  1463. function DsSetAuthIdentityA;
  1464. begin
  1465.   GetProcedureAddress(_DsSetAuthIdentityA, ntdsbclilib, 'DsSetAuthIdentityA');
  1466.   asm
  1467.     mov esp, ebp
  1468.     pop ebp
  1469.     jmp [_DsSetAuthIdentityA]
  1470.   end;
  1471. end;
  1472. {$ELSE}
  1473. function DsSetAuthIdentityA; external ntdsbclilib name 'DsSetAuthIdentityA';
  1474. {$ENDIF DYNAMIC_LINK}
  1476. {$IFDEF DYNAMIC_LINK}
  1477. var
  1478.   _DsSetAuthIdentityW: Pointer;
  1480. function DsSetAuthIdentityW;
  1481. begin
  1482.   GetProcedureAddress(_DsSetAuthIdentityW, ntdsbclilib, 'DsSetAuthIdentityW');
  1483.   asm
  1484.     mov esp, ebp
  1485.     pop ebp
  1486.     jmp [_DsSetAuthIdentityW]
  1487.   end;
  1488. end;
  1489. {$ELSE}
  1490. function DsSetAuthIdentityW; external ntdsbclilib name 'DsSetAuthIdentityW';
  1491. {$ENDIF DYNAMIC_LINK}
  1492. {$IFDEF UNICODE}
  1494. {$IFDEF DYNAMIC_LINK}
  1495. var
  1496.   _DsSetAuthIdentity: Pointer;
  1498. function DsSetAuthIdentity;
  1499. begin
  1500.   GetProcedureAddress(_DsSetAuthIdentity, ntdsbclilib, 'DsSetAuthIdentityW');
  1501.   asm
  1502.     mov esp, ebp
  1503.     pop ebp
  1504.     jmp [_DsSetAuthIdentity]
  1505.   end;
  1506. end;
  1507. {$ELSE}
  1508. function DsSetAuthIdentity; external ntdsbclilib name 'DsSetAuthIdentityW';
  1509. {$ENDIF DYNAMIC_LINK}
  1510. {$ELSE}
  1512. {$IFDEF DYNAMIC_LINK}
  1513. var
  1514.   _DsSetAuthIdentity: Pointer;
  1516. function DsSetAuthIdentity;
  1517. begin
  1518.   GetProcedureAddress(_DsSetAuthIdentity, ntdsbclilib, 'DsSetAuthIdentityA');
  1519.   asm
  1520.     mov esp, ebp
  1521.     pop ebp
  1522.     jmp [_DsSetAuthIdentity]
  1523.   end;
  1524. end;
  1525. {$ELSE}
  1526. function DsSetAuthIdentity; external ntdsbclilib name 'DsSetAuthIdentityA';
  1527. {$ENDIF DYNAMIC_LINK}
  1528. {$ENDIF}
  1530. end.