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

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

Windows编程

开发平台：

Delphi

JwaPatchWiz.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { MSI Patch Wizard 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: patchwiz.h, released August 2001. The original Pascal  }
  9. { code is: PatchWiz.pas, released December 2001. 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 JwaPatchWiz;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "PatchWiz.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaWinType;
  59.   (* PATCHWIZ.H - public header file for PATCHWIZ.DLL *)
  61. (*
  62. ** UINT WINAPI UiCreatePatchPackage ( LPTSTR szPcpPath,
  63. ** LPTSTR szPatchPath, LPTSTR szLogPath, HWND hwndStatus,
  64. ** LPTSTR szTempFolder, BOOL fRemoveTempFolderIfPresent );
  65. **
  66. ** Arguments:
  67. **   szPcpPath - full absolute path to Windows Installer database
  68. ** (PCP file) that contains appropriate tables of input-data for
  69. ** Patch creation process such as Properties and TargetImages.
  70. **   szPatchPath - optional, full absolute path to Patching Package
  71. ** file (MSP file) to create and stuff with output.  If this
  72. ** NULL or an empty string, the api will try to use
  73. ** Properties.Value where Properties.Name = PatchOutputPath
  74. ** from the PCP file.
  75. **   szLogPath - optional, full absolute path to text log file to
  76. ** append to.  Caller should truncate file if wanted.
  77. **   hwndStatus - optional, window handle to display status text.
  78. ** More details to come later.
  79. **   szTempFolder - optional location to use for temp files.
  80. ** Default is %TEMP%~pcw_tmp.tmp.
  81. **   fRemoveTempFolderIfPresent - remove temp folder (and all its
  82. ** contents) if present.  If FALSE and folder is present, api
  83. ** will fail.
  84. **
  85. ** Return Values: ERROR_SUCCESS, plus ERROR_PCW_* that follow.
  86. *)
  88. const
  89.   ERROR_PCW_BASE = DWORD($C00E5101);
  90.   {$EXTERNALSYM ERROR_PCW_BASE}
  92.   ERROR_PCW_PCP_DOESNT_EXIST              = (ERROR_PCW_BASE + $00);
  93.   {$EXTERNALSYM ERROR_PCW_PCP_DOESNT_EXIST}
  94.   ERROR_PCW_PCP_BAD_FORMAT                = (ERROR_PCW_BASE + $01);
  95.   {$EXTERNALSYM ERROR_PCW_PCP_BAD_FORMAT}
  96.   ERROR_PCW_CANT_CREATE_TEMP_FOLDER       = (ERROR_PCW_BASE + $02);
  97.   {$EXTERNALSYM ERROR_PCW_CANT_CREATE_TEMP_FOLDER}
  98.   ERROR_PCW_MISSING_PATCH_PATH            = (ERROR_PCW_BASE + $03);
  99.   {$EXTERNALSYM ERROR_PCW_MISSING_PATCH_PATH}
  100.   ERROR_PCW_CANT_OVERWRITE_PATCH          = (ERROR_PCW_BASE + $04);
  101.   {$EXTERNALSYM ERROR_PCW_CANT_OVERWRITE_PATCH}
  102.   ERROR_PCW_CANT_CREATE_PATCH_FILE        = (ERROR_PCW_BASE + $05);
  103.   {$EXTERNALSYM ERROR_PCW_CANT_CREATE_PATCH_FILE}
  104.   ERROR_PCW_MISSING_PATCH_GUID            = (ERROR_PCW_BASE + $06);
  105.   {$EXTERNALSYM ERROR_PCW_MISSING_PATCH_GUID}
  106.   ERROR_PCW_BAD_PATCH_GUID                = (ERROR_PCW_BASE + $07);
  107.   {$EXTERNALSYM ERROR_PCW_BAD_PATCH_GUID}
  108.   ERROR_PCW_BAD_GUIDS_TO_REPLACE          = (ERROR_PCW_BASE + $08);
  109.   {$EXTERNALSYM ERROR_PCW_BAD_GUIDS_TO_REPLACE}
  110.   ERROR_PCW_BAD_TARGET_PRODUCT_CODE_LIST  = (ERROR_PCW_BASE + $09);
  111.   {$EXTERNALSYM ERROR_PCW_BAD_TARGET_PRODUCT_CODE_LIST}
  112.   ERROR_PCW_NO_UPGRADED_IMAGES_TO_PATCH   = (ERROR_PCW_BASE + $0a);
  113.   {$EXTERNALSYM ERROR_PCW_NO_UPGRADED_IMAGES_TO_PATCH}
  114.   //#define ERROR_PCW_BAD_API_PATCHING_OPTION_FLAGS  (ERROR_PCW_BASE + 0x0b) -- obsolete
  115.   ERROR_PCW_BAD_API_PATCHING_SYMBOL_FLAGS = (ERROR_PCW_BASE + $0c);
  116.   {$EXTERNALSYM ERROR_PCW_BAD_API_PATCHING_SYMBOL_FLAGS}
  117.   ERROR_PCW_OODS_COPYING_MSI              = (ERROR_PCW_BASE + $0d);
  118.   {$EXTERNALSYM ERROR_PCW_OODS_COPYING_MSI}
  119.   ERROR_PCW_UPGRADED_IMAGE_NAME_TOO_LONG  = (ERROR_PCW_BASE + $0e);
  120.   {$EXTERNALSYM ERROR_PCW_UPGRADED_IMAGE_NAME_TOO_LONG}
  121.   ERROR_PCW_BAD_UPGRADED_IMAGE_NAME       = (ERROR_PCW_BASE + $0f);
  122.   {$EXTERNALSYM ERROR_PCW_BAD_UPGRADED_IMAGE_NAME}
  124.   ERROR_PCW_DUP_UPGRADED_IMAGE_NAME       = (ERROR_PCW_BASE + $10);
  125.   {$EXTERNALSYM ERROR_PCW_DUP_UPGRADED_IMAGE_NAME}
  126.   ERROR_PCW_UPGRADED_IMAGE_PATH_TOO_LONG  = (ERROR_PCW_BASE + $11);
  127.   {$EXTERNALSYM ERROR_PCW_UPGRADED_IMAGE_PATH_TOO_LONG}
  128.   ERROR_PCW_UPGRADED_IMAGE_PATH_EMPTY     = (ERROR_PCW_BASE + $12);
  129.   {$EXTERNALSYM ERROR_PCW_UPGRADED_IMAGE_PATH_EMPTY}
  130.   ERROR_PCW_UPGRADED_IMAGE_PATH_NOT_EXIST = (ERROR_PCW_BASE + $13);
  131.   {$EXTERNALSYM ERROR_PCW_UPGRADED_IMAGE_PATH_NOT_EXIST}
  132.   ERROR_PCW_UPGRADED_IMAGE_PATH_NOT_MSI   = (ERROR_PCW_BASE + $14);
  133.   {$EXTERNALSYM ERROR_PCW_UPGRADED_IMAGE_PATH_NOT_MSI}
  134.   ERROR_PCW_UPGRADED_IMAGE_COMPRESSED     = (ERROR_PCW_BASE + $15);
  135.   {$EXTERNALSYM ERROR_PCW_UPGRADED_IMAGE_COMPRESSED}
  136.   ERROR_PCW_TARGET_IMAGE_NAME_TOO_LONG    = (ERROR_PCW_BASE + $16);
  137.   {$EXTERNALSYM ERROR_PCW_TARGET_IMAGE_NAME_TOO_LONG}
  138.   ERROR_PCW_BAD_TARGET_IMAGE_NAME         = (ERROR_PCW_BASE + $17);
  139.   {$EXTERNALSYM ERROR_PCW_BAD_TARGET_IMAGE_NAME}
  140.   ERROR_PCW_DUP_TARGET_IMAGE_NAME         = (ERROR_PCW_BASE + $18);
  141.   {$EXTERNALSYM ERROR_PCW_DUP_TARGET_IMAGE_NAME}
  142.   ERROR_PCW_TARGET_IMAGE_PATH_TOO_LONG    = (ERROR_PCW_BASE + $19);
  143.   {$EXTERNALSYM ERROR_PCW_TARGET_IMAGE_PATH_TOO_LONG}
  144.   ERROR_PCW_TARGET_IMAGE_PATH_EMPTY       = (ERROR_PCW_BASE + $1a);
  145.   {$EXTERNALSYM ERROR_PCW_TARGET_IMAGE_PATH_EMPTY}
  146.   ERROR_PCW_TARGET_IMAGE_PATH_NOT_EXIST   = (ERROR_PCW_BASE + $1b);
  147.   {$EXTERNALSYM ERROR_PCW_TARGET_IMAGE_PATH_NOT_EXIST}
  148.   ERROR_PCW_TARGET_IMAGE_PATH_NOT_MSI     = (ERROR_PCW_BASE + $1c);
  149.   {$EXTERNALSYM ERROR_PCW_TARGET_IMAGE_PATH_NOT_MSI}
  150.   ERROR_PCW_TARGET_IMAGE_COMPRESSED       = (ERROR_PCW_BASE + $1d);
  151.   {$EXTERNALSYM ERROR_PCW_TARGET_IMAGE_COMPRESSED}
  152.   ERROR_PCW_TARGET_BAD_PROD_VALIDATE      = (ERROR_PCW_BASE + $1e);
  153.   {$EXTERNALSYM ERROR_PCW_TARGET_BAD_PROD_VALIDATE}
  154.   ERROR_PCW_TARGET_BAD_PROD_CODE_VAL      = (ERROR_PCW_BASE + $1f);
  155.   {$EXTERNALSYM ERROR_PCW_TARGET_BAD_PROD_CODE_VAL}
  157.   ERROR_PCW_UPGRADED_MISSING_SRC_FILES       = (ERROR_PCW_BASE + $20);
  158.   {$EXTERNALSYM ERROR_PCW_UPGRADED_MISSING_SRC_FILES}
  159.   ERROR_PCW_TARGET_MISSING_SRC_FILES         = (ERROR_PCW_BASE + $21);
  160.   {$EXTERNALSYM ERROR_PCW_TARGET_MISSING_SRC_FILES}
  161.   ERROR_PCW_IMAGE_FAMILY_NAME_TOO_LONG       = (ERROR_PCW_BASE + $22);
  162.   {$EXTERNALSYM ERROR_PCW_IMAGE_FAMILY_NAME_TOO_LONG}
  163.   ERROR_PCW_BAD_IMAGE_FAMILY_NAME            = (ERROR_PCW_BASE + $23);
  164.   {$EXTERNALSYM ERROR_PCW_BAD_IMAGE_FAMILY_NAME}
  165.   ERROR_PCW_DUP_IMAGE_FAMILY_NAME            = (ERROR_PCW_BASE + $24);
  166.   {$EXTERNALSYM ERROR_PCW_DUP_IMAGE_FAMILY_NAME}
  167.   ERROR_PCW_BAD_IMAGE_FAMILY_SRC_PROP        = (ERROR_PCW_BASE + $25);
  168.   {$EXTERNALSYM ERROR_PCW_BAD_IMAGE_FAMILY_SRC_PROP}
  169.   ERROR_PCW_UFILEDATA_LONG_FILE_TABLE_KEY    = (ERROR_PCW_BASE + $26);
  170.   {$EXTERNALSYM ERROR_PCW_UFILEDATA_LONG_FILE_TABLE_KEY}
  171.   ERROR_PCW_UFILEDATA_BLANK_FILE_TABLE_KEY   = (ERROR_PCW_BASE + $27);
  172.   {$EXTERNALSYM ERROR_PCW_UFILEDATA_BLANK_FILE_TABLE_KEY}
  173.   ERROR_PCW_UFILEDATA_MISSING_FILE_TABLE_KEY = (ERROR_PCW_BASE + $28);
  174.   {$EXTERNALSYM ERROR_PCW_UFILEDATA_MISSING_FILE_TABLE_KEY}
  175.   ERROR_PCW_EXTFILE_LONG_FILE_TABLE_KEY      = (ERROR_PCW_BASE + $29);
  176.   {$EXTERNALSYM ERROR_PCW_EXTFILE_LONG_FILE_TABLE_KEY}
  177.   ERROR_PCW_EXTFILE_BLANK_FILE_TABLE_KEY     = (ERROR_PCW_BASE + $2a);
  178.   {$EXTERNALSYM ERROR_PCW_EXTFILE_BLANK_FILE_TABLE_KEY}
  179.   ERROR_PCW_EXTFILE_BAD_FAMILY_FIELD         = (ERROR_PCW_BASE + $2b);
  180.   {$EXTERNALSYM ERROR_PCW_EXTFILE_BAD_FAMILY_FIELD}
  181.   ERROR_PCW_EXTFILE_LONG_PATH_TO_FILE        = (ERROR_PCW_BASE + $2c);
  182.   {$EXTERNALSYM ERROR_PCW_EXTFILE_LONG_PATH_TO_FILE}
  183.   ERROR_PCW_EXTFILE_BLANK_PATH_TO_FILE       = (ERROR_PCW_BASE + $2d);
  184.   {$EXTERNALSYM ERROR_PCW_EXTFILE_BLANK_PATH_TO_FILE}
  185.   ERROR_PCW_EXTFILE_MISSING_FILE             = (ERROR_PCW_BASE + $2e);
  186.   {$EXTERNALSYM ERROR_PCW_EXTFILE_MISSING_FILE}
  187. //#define ERROR_PCW_FILERANGE_LONG_FILE_TABLE_KEY       (ERROR_PCW_BASE + 0x2f) -- obsolete
  189. //#define ERROR_PCW_FILERANGE_BLANK_FILE_TABLE_KEY      (ERROR_PCW_BASE + 0x30) -- obsolete
  190. //#define ERROR_PCW_FILERANGE_MISSING_FILE_TABLE_KEY    (ERROR_PCW_BASE + 0x31) -- obsolete
  191. //#define ERROR_PCW_FILERANGE_LONG_PATH_TO_FILE         (ERROR_PCW_BASE + 0x32) -- obsolete
  192. //#define ERROR_PCW_FILERANGE_MISSING_FILE              (ERROR_PCW_BASE + 0x33) -- obsolete
  193. //#define ERROR_PCW_FILERANGE_INVALID_OFFSET            (ERROR_PCW_BASE + 0x34) -- obsolete
  194. //#define ERROR_PCW_FILERANGE_INVALID_SIZE              (ERROR_PCW_BASE + 0x35) -- obsolete
  195. //#define ERROR_PCW_FILERANGE_INVALID_RETAIN            (ERROR_PCW_BASE + 0x36) -- obsolete
  196. //#define ERROR_PCW_BAD_MEDIA_SRC_PROP_NAME             (ERROR_PCW_BASE + 0x37) -- obsolete
  197. //#define ERROR_PCW_BAD_MEDIA_DISK_ID                   (ERROR_PCW_BASE + 0x38) -- obsolete
  198.   ERROR_PCW_BAD_FILE_SEQUENCE_START       = (ERROR_PCW_BASE + $39);
  199.   {$EXTERNALSYM ERROR_PCW_BAD_FILE_SEQUENCE_START}
  200.   ERROR_PCW_CANT_COPY_FILE_TO_TEMP_FOLDER = (ERROR_PCW_BASE + $3a);
  201.   {$EXTERNALSYM ERROR_PCW_CANT_COPY_FILE_TO_TEMP_FOLDER}
  202.   ERROR_PCW_CANT_CREATE_ONE_PATCH_FILE    = (ERROR_PCW_BASE + $3b);
  203.   {$EXTERNALSYM ERROR_PCW_CANT_CREATE_ONE_PATCH_FILE}
  204.   ERROR_PCW_BAD_IMAGE_FAMILY_DISKID       = (ERROR_PCW_BASE + $3c);
  205.   {$EXTERNALSYM ERROR_PCW_BAD_IMAGE_FAMILY_DISKID}
  206.   ERROR_PCW_BAD_IMAGE_FAMILY_FILESEQSTART = (ERROR_PCW_BASE + $3d);
  207.   {$EXTERNALSYM ERROR_PCW_BAD_IMAGE_FAMILY_FILESEQSTART}
  208.   ERROR_PCW_BAD_UPGRADED_IMAGE_FAMILY     = (ERROR_PCW_BASE + $3e);
  209.   {$EXTERNALSYM ERROR_PCW_BAD_UPGRADED_IMAGE_FAMILY}
  210.   ERROR_PCW_BAD_TARGET_IMAGE_UPGRADED     = (ERROR_PCW_BASE + $3f);
  211.   {$EXTERNALSYM ERROR_PCW_BAD_TARGET_IMAGE_UPGRADED}
  213.   ERROR_PCW_DUP_TARGET_IMAGE_PACKCODE    = (ERROR_PCW_BASE + $40);
  214.   {$EXTERNALSYM ERROR_PCW_DUP_TARGET_IMAGE_PACKCODE}
  215.   ERROR_PCW_UFILEDATA_BAD_UPGRADED_FIELD = (ERROR_PCW_BASE + $41);
  216.   {$EXTERNALSYM ERROR_PCW_UFILEDATA_BAD_UPGRADED_FIELD}
  217.   ERROR_PCW_MISMATCHED_PRODUCT_CODES     = (ERROR_PCW_BASE + $42);
  218.   {$EXTERNALSYM ERROR_PCW_MISMATCHED_PRODUCT_CODES}
  219.   ERROR_PCW_MISMATCHED_PRODUCT_VERSIONS  = (ERROR_PCW_BASE + $43);
  220.   {$EXTERNALSYM ERROR_PCW_MISMATCHED_PRODUCT_VERSIONS}
  221.   ERROR_PCW_CANNOT_WRITE_DDF             = (ERROR_PCW_BASE + $44);
  222.   {$EXTERNALSYM ERROR_PCW_CANNOT_WRITE_DDF}
  223.   ERROR_PCW_CANNOT_RUN_MAKECAB           = (ERROR_PCW_BASE + $45);
  224.   {$EXTERNALSYM ERROR_PCW_CANNOT_RUN_MAKECAB}
  225. //#define ERROR_PCW_CANNOT_CREATE_STORAGE               (ERROR_PCW_BASE + 0x46) -- obsolete
  226. //#define ERROR_PCW_CANNOT_CREATE_STREAM                (ERROR_PCW_BASE + 0x47) -- obsolete
  227. //#define ERROR_PCW_CANNOT_WRITE_STREAM                 (ERROR_PCW_BASE + 0x48) -- obsolete
  228. //#define ERROR_PCW_CANNOT_READ_CABINET                 (ERROR_PCW_BASE + 0x49) -- obsolete
  229.   ERROR_PCW_WRITE_SUMMARY_PROPERTIES           = (ERROR_PCW_BASE + $4a);
  230.   {$EXTERNALSYM ERROR_PCW_WRITE_SUMMARY_PROPERTIES}
  231.   ERROR_PCW_TFILEDATA_LONG_FILE_TABLE_KEY      = (ERROR_PCW_BASE + $4b);
  232.   {$EXTERNALSYM ERROR_PCW_TFILEDATA_LONG_FILE_TABLE_KEY}
  233.   ERROR_PCW_TFILEDATA_BLANK_FILE_TABLE_KEY     = (ERROR_PCW_BASE + $4c);
  234.   {$EXTERNALSYM ERROR_PCW_TFILEDATA_BLANK_FILE_TABLE_KEY}
  235.   ERROR_PCW_TFILEDATA_MISSING_FILE_TABLE_KEY   = (ERROR_PCW_BASE + $4d);
  236.   {$EXTERNALSYM ERROR_PCW_TFILEDATA_MISSING_FILE_TABLE_KEY}
  237.   ERROR_PCW_TFILEDATA_BAD_TARGET_FIELD         = (ERROR_PCW_BASE + $4e);
  238.   {$EXTERNALSYM ERROR_PCW_TFILEDATA_BAD_TARGET_FIELD}
  239.   ERROR_PCW_UPGRADED_IMAGE_PATCH_PATH_TOO_LONG = (ERROR_PCW_BASE + $4f);
  240.   {$EXTERNALSYM ERROR_PCW_UPGRADED_IMAGE_PATCH_PATH_TOO_LONG}
  242.   ERROR_PCW_UPGRADED_IMAGE_PATCH_PATH_NOT_EXIST = (ERROR_PCW_BASE + $50);
  243.   {$EXTERNALSYM ERROR_PCW_UPGRADED_IMAGE_PATCH_PATH_NOT_EXIST}
  244.   ERROR_PCW_UPGRADED_IMAGE_PATCH_PATH_NOT_MSI   = (ERROR_PCW_BASE + $51);
  245.   {$EXTERNALSYM ERROR_PCW_UPGRADED_IMAGE_PATCH_PATH_NOT_MSI}
  246.   ERROR_PCW_DUP_UPGRADED_IMAGE_PACKCODE         = (ERROR_PCW_BASE + $52);
  247.   {$EXTERNALSYM ERROR_PCW_DUP_UPGRADED_IMAGE_PACKCODE}
  248.   ERROR_PCW_UFILEIGNORE_BAD_UPGRADED_FIELD      = (ERROR_PCW_BASE + $53);
  249.   {$EXTERNALSYM ERROR_PCW_UFILEIGNORE_BAD_UPGRADED_FIELD}
  250.   ERROR_PCW_UFILEIGNORE_LONG_FILE_TABLE_KEY     = (ERROR_PCW_BASE + $54);
  251.   {$EXTERNALSYM ERROR_PCW_UFILEIGNORE_LONG_FILE_TABLE_KEY}
  252.   ERROR_PCW_UFILEIGNORE_BLANK_FILE_TABLE_KEY    = (ERROR_PCW_BASE + $55);
  253.   {$EXTERNALSYM ERROR_PCW_UFILEIGNORE_BLANK_FILE_TABLE_KEY}
  254.   ERROR_PCW_UFILEIGNORE_BAD_FILE_TABLE_KEY      = (ERROR_PCW_BASE + $56);
  255.   {$EXTERNALSYM ERROR_PCW_UFILEIGNORE_BAD_FILE_TABLE_KEY}
  256.   ERROR_PCW_FAMILY_RANGE_NAME_TOO_LONG          = (ERROR_PCW_BASE + $57);
  257.   {$EXTERNALSYM ERROR_PCW_FAMILY_RANGE_NAME_TOO_LONG}
  258.   ERROR_PCW_BAD_FAMILY_RANGE_NAME               = (ERROR_PCW_BASE + $58);
  259.   {$EXTERNALSYM ERROR_PCW_BAD_FAMILY_RANGE_NAME}
  260.   ERROR_PCW_FAMILY_RANGE_LONG_FILE_TABLE_KEY    = (ERROR_PCW_BASE + $59);
  261.   {$EXTERNALSYM ERROR_PCW_FAMILY_RANGE_LONG_FILE_TABLE_KEY}
  262.   ERROR_PCW_FAMILY_RANGE_BLANK_FILE_TABLE_KEY   = (ERROR_PCW_BASE + $5a);
  263.   {$EXTERNALSYM ERROR_PCW_FAMILY_RANGE_BLANK_FILE_TABLE_KEY}
  264.   ERROR_PCW_FAMILY_RANGE_LONG_RETAIN_OFFSETS    = (ERROR_PCW_BASE + $5b);
  265.   {$EXTERNALSYM ERROR_PCW_FAMILY_RANGE_LONG_RETAIN_OFFSETS}
  266.   ERROR_PCW_FAMILY_RANGE_BLANK_RETAIN_OFFSETS   = (ERROR_PCW_BASE + $5c);
  267.   {$EXTERNALSYM ERROR_PCW_FAMILY_RANGE_BLANK_RETAIN_OFFSETS}
  268.   ERROR_PCW_FAMILY_RANGE_BAD_RETAIN_OFFSETS     = (ERROR_PCW_BASE + $5d);
  269.   {$EXTERNALSYM ERROR_PCW_FAMILY_RANGE_BAD_RETAIN_OFFSETS}
  270.   ERROR_PCW_FAMILY_RANGE_LONG_RETAIN_LENGTHS    = (ERROR_PCW_BASE + $5e);
  271.   {$EXTERNALSYM ERROR_PCW_FAMILY_RANGE_LONG_RETAIN_LENGTHS}
  272.   ERROR_PCW_FAMILY_RANGE_BLANK_RETAIN_LENGTHS   = (ERROR_PCW_BASE + $5f);
  273.   {$EXTERNALSYM ERROR_PCW_FAMILY_RANGE_BLANK_RETAIN_LENGTHS}
  275.   ERROR_PCW_FAMILY_RANGE_BAD_RETAIN_LENGTHS = (ERROR_PCW_BASE + $60);
  276.   {$EXTERNALSYM ERROR_PCW_FAMILY_RANGE_BAD_RETAIN_LENGTHS}
  277.   ERROR_PCW_FAMILY_RANGE_COUNT_MISMATCH     = (ERROR_PCW_BASE + $61);
  278.   {$EXTERNALSYM ERROR_PCW_FAMILY_RANGE_COUNT_MISMATCH}
  279.   ERROR_PCW_EXTFILE_LONG_IGNORE_OFFSETS     = (ERROR_PCW_BASE + $62);
  280.   {$EXTERNALSYM ERROR_PCW_EXTFILE_LONG_IGNORE_OFFSETS}
  281.   ERROR_PCW_EXTFILE_BAD_IGNORE_OFFSETS      = (ERROR_PCW_BASE + $63);
  282.   {$EXTERNALSYM ERROR_PCW_EXTFILE_BAD_IGNORE_OFFSETS}
  283.   ERROR_PCW_EXTFILE_LONG_IGNORE_LENGTHS     = (ERROR_PCW_BASE + $64);
  284.   {$EXTERNALSYM ERROR_PCW_EXTFILE_LONG_IGNORE_LENGTHS}
  285.   ERROR_PCW_EXTFILE_BAD_IGNORE_LENGTHS      = (ERROR_PCW_BASE + $65);
  286.   {$EXTERNALSYM ERROR_PCW_EXTFILE_BAD_IGNORE_LENGTHS}
  287.   ERROR_PCW_EXTFILE_IGNORE_COUNT_MISMATCH   = (ERROR_PCW_BASE + $66);
  288.   {$EXTERNALSYM ERROR_PCW_EXTFILE_IGNORE_COUNT_MISMATCH}
  289.   ERROR_PCW_EXTFILE_LONG_RETAIN_OFFSETS     = (ERROR_PCW_BASE + $67);
  290.   {$EXTERNALSYM ERROR_PCW_EXTFILE_LONG_RETAIN_OFFSETS}
  291.   ERROR_PCW_EXTFILE_BAD_RETAIN_OFFSETS      = (ERROR_PCW_BASE + $68);
  292.   {$EXTERNALSYM ERROR_PCW_EXTFILE_BAD_RETAIN_OFFSETS}
  293. //#define ERROR_PCW_EXTFILE_RETAIN_COUNT_MISMATCH       (ERROR_PCW_BASE + 0x69) -- obsolete
  294.   ERROR_PCW_TFILEDATA_LONG_IGNORE_OFFSETS   = (ERROR_PCW_BASE + $6a);
  295.   {$EXTERNALSYM ERROR_PCW_TFILEDATA_LONG_IGNORE_OFFSETS}
  296.   ERROR_PCW_TFILEDATA_BAD_IGNORE_OFFSETS    = (ERROR_PCW_BASE + $6b);
  297.   {$EXTERNALSYM ERROR_PCW_TFILEDATA_BAD_IGNORE_OFFSETS}
  298.   ERROR_PCW_TFILEDATA_LONG_IGNORE_LENGTHS   = (ERROR_PCW_BASE + $6c);
  299.   {$EXTERNALSYM ERROR_PCW_TFILEDATA_LONG_IGNORE_LENGTHS}
  300.   ERROR_PCW_TFILEDATA_BAD_IGNORE_LENGTHS    = (ERROR_PCW_BASE + $6d);
  301.   {$EXTERNALSYM ERROR_PCW_TFILEDATA_BAD_IGNORE_LENGTHS}
  302.   ERROR_PCW_TFILEDATA_IGNORE_COUNT_MISMATCH = (ERROR_PCW_BASE + $6e);
  303.   {$EXTERNALSYM ERROR_PCW_TFILEDATA_IGNORE_COUNT_MISMATCH}
  304.   ERROR_PCW_TFILEDATA_LONG_RETAIN_OFFSETS   = (ERROR_PCW_BASE + $6f);
  305.   {$EXTERNALSYM ERROR_PCW_TFILEDATA_LONG_RETAIN_OFFSETS}
  307.   ERROR_PCW_TFILEDATA_BAD_RETAIN_OFFSETS = (ERROR_PCW_BASE + $70);
  308.   {$EXTERNALSYM ERROR_PCW_TFILEDATA_BAD_RETAIN_OFFSETS}
  309. //#define ERROR_PCW_TFILEDATA_RETAIN_COUNT_MISMATCH     (ERROR_PCW_BASE + 0x71) -- obsolete
  310.   ERROR_PCW_CANT_GENERATE_TRANSFORM            = (ERROR_PCW_BASE + $72);
  311.   {$EXTERNALSYM ERROR_PCW_CANT_GENERATE_TRANSFORM}
  312.   ERROR_PCW_CANT_CREATE_SUMMARY_INFO           = (ERROR_PCW_BASE + $73);
  313.   {$EXTERNALSYM ERROR_PCW_CANT_CREATE_SUMMARY_INFO}
  314.   ERROR_PCW_CANT_GENERATE_TRANSFORM_POUND      = (ERROR_PCW_BASE + $74);
  315.   {$EXTERNALSYM ERROR_PCW_CANT_GENERATE_TRANSFORM_POUND}
  316.   ERROR_PCW_CANT_CREATE_SUMMARY_INFO_POUND     = (ERROR_PCW_BASE + $75);
  317.   {$EXTERNALSYM ERROR_PCW_CANT_CREATE_SUMMARY_INFO_POUND}
  318.   ERROR_PCW_BAD_UPGRADED_IMAGE_PRODUCT_CODE    = (ERROR_PCW_BASE + $76);
  319.   {$EXTERNALSYM ERROR_PCW_BAD_UPGRADED_IMAGE_PRODUCT_CODE}
  320.   ERROR_PCW_BAD_UPGRADED_IMAGE_PRODUCT_VERSION = (ERROR_PCW_BASE + $77);
  321.   {$EXTERNALSYM ERROR_PCW_BAD_UPGRADED_IMAGE_PRODUCT_VERSION}
  322.   ERROR_PCW_BAD_UPGRADED_IMAGE_UPGRADE_CODE    = (ERROR_PCW_BASE + $78);
  323.   {$EXTERNALSYM ERROR_PCW_BAD_UPGRADED_IMAGE_UPGRADE_CODE}
  324.   ERROR_PCW_BAD_TARGET_IMAGE_PRODUCT_CODE      = (ERROR_PCW_BASE + $79);
  325.   {$EXTERNALSYM ERROR_PCW_BAD_TARGET_IMAGE_PRODUCT_CODE}
  326.   ERROR_PCW_BAD_TARGET_IMAGE_PRODUCT_VERSION   = (ERROR_PCW_BASE + $7a);
  327.   {$EXTERNALSYM ERROR_PCW_BAD_TARGET_IMAGE_PRODUCT_VERSION}
  328.   ERROR_PCW_BAD_TARGET_IMAGE_UPGRADE_CODE      = (ERROR_PCW_BASE + $7b);
  329.   {$EXTERNALSYM ERROR_PCW_BAD_TARGET_IMAGE_UPGRADE_CODE}
  330.   ERROR_PCW_MATCHED_PRODUCT_VERSIONS           = (ERROR_PCW_BASE + $7c);
  331.   {$EXTERNALSYM ERROR_PCW_MATCHED_PRODUCT_VERSIONS}
  332.   ERROR_PCW_NEXTxd                             = (ERROR_PCW_BASE + $7d);
  333.   {$EXTERNALSYM ERROR_PCW_NEXTxd}
  334.   ERROR_PCW_NEXTxe                             = (ERROR_PCW_BASE + $7e);
  335.   {$EXTERNALSYM ERROR_PCW_NEXTxe}
  336.   ERROR_PCW_NEXTxf                             = (ERROR_PCW_BASE + $7f);
  337.   {$EXTERNALSYM ERROR_PCW_NEXTxf}
  339. (*
  340. #define ERROR_PCW_NEXTx0           (ERROR_PCW_BASE + 0x80)
  341. #define ERROR_PCW_NEXTx1           (ERROR_PCW_BASE + 0x81)
  342. #define ERROR_PCW_NEXTx2           (ERROR_PCW_BASE + 0x82)
  343. #define ERROR_PCW_NEXTx3           (ERROR_PCW_BASE + 0x83)
  344. #define ERROR_PCW_NEXTx4           (ERROR_PCW_BASE + 0x84)
  345. #define ERROR_PCW_NEXTx5           (ERROR_PCW_BASE + 0x85)
  346. #define ERROR_PCW_NEXTx6           (ERROR_PCW_BASE + 0x86)
  347. #define ERROR_PCW_NEXTx7           (ERROR_PCW_BASE + 0x87)
  348. #define ERROR_PCW_NEXTx8           (ERROR_PCW_BASE + 0x88)
  349. #define ERROR_PCW_NEXTx9           (ERROR_PCW_BASE + 0x89)
  350. #define ERROR_PCW_NEXTxa           (ERROR_PCW_BASE + 0x8a)
  351. #define ERROR_PCW_NEXTxb           (ERROR_PCW_BASE + 0x8b)
  352. #define ERROR_PCW_NEXTxc           (ERROR_PCW_BASE + 0x8c)
  353. #define ERROR_PCW_NEXTxd           (ERROR_PCW_BASE + 0x8d)
  354. #define ERROR_PCW_NEXTxe           (ERROR_PCW_BASE + 0x8e)
  355. #define ERROR_PCW_NEXTxf           (ERROR_PCW_BASE + 0x8f)
  356. *)
  359. //  Control IDs for hwndStatus child Text controls; title is required
  361.   IDC_STATUS_TITLE = ($1cf0);
  362.   {$EXTERNALSYM IDC_STATUS_TITLE}
  363.   IDC_STATUS_DATA1 = ($1cf1);
  364.   {$EXTERNALSYM IDC_STATUS_DATA1}
  365.   IDC_STATUS_DATA2 = ($1cf2);
  366.   {$EXTERNALSYM IDC_STATUS_DATA2}
  368. function UiCreatePatchPackageA(szaPcpPath, szaPatchPath, szaLogPath: LPSTR; hwndStatus: HWND; szaTempFolder: LPSTR; fRemoveTempFolderIfPresent: BOOL): UINT; stdcall;
  369. {$EXTERNALSYM UiCreatePatchPackageA}
  370. function UiCreatePatchPackageW(szwPcpPath, szwPatchPath, szwLogPath: LPWSTR; hwndStatus: HWND; szwTempFolder: LPWSTR; fRemoveTempFolderIfPresent: BOOL): UINT; stdcall;
  371. {$EXTERNALSYM UiCreatePatchPackageW}
  373. {$IFDEF UNICODE}
  374. function UiCreatePatchPackage(szwPcpPath, szwPatchPath, szwLogPath: LPWSTR; hwndStatus: HWND; szwTempFolder: LPWSTR; fRemoveTempFolderIfPresent: BOOL): UINT; stdcall;
  375. {$EXTERNALSYM UiCreatePatchPackage}
  376. {$ELSE}
  377. function UiCreatePatchPackage(szaPcpPath, szaPatchPath, szaLogPath: LPSTR; hwndStatus: HWND; szaTempFolder: LPSTR; fRemoveTempFolderIfPresent: BOOL): UINT; stdcall;
  378. {$EXTERNALSYM UiCreatePatchPackage}
  379. {$ENDIF}
  381. implementation
  383. const
  384.   patchwiz = 'patchwiz.dll'; // mvb Installed in SamplesSysMgmtMsiPatching
  387. {$IFDEF DYNAMIC_LINK}
  388. var
  389.   _UiCreatePatchPackageA: Pointer;
  391. function UiCreatePatchPackageA;
  392. begin
  393.   GetProcedureAddress(_UiCreatePatchPackageA, patchwiz, 'UiCreatePatchPackageA');
  394.   asm
  395.     mov esp, ebp
  396.     pop ebp
  397.     jmp [_UiCreatePatchPackageA]
  398.   end;
  399. end;
  400. {$ELSE}
  401. function UiCreatePatchPackageA; external patchwiz name 'UiCreatePatchPackageA';
  402. {$ENDIF DYNAMIC_LINK}
  404. {$IFDEF DYNAMIC_LINK}
  405. var
  406.   _UiCreatePatchPackageW: Pointer;
  408. function UiCreatePatchPackageW;
  409. begin
  410.   GetProcedureAddress(_UiCreatePatchPackageW, patchwiz, 'UiCreatePatchPackageW');
  411.   asm
  412.     mov esp, ebp
  413.     pop ebp
  414.     jmp [_UiCreatePatchPackageW]
  415.   end;
  416. end;
  417. {$ELSE}
  418. function UiCreatePatchPackageW; external patchwiz name 'UiCreatePatchPackageW';
  419. {$ENDIF DYNAMIC_LINK}
  420. {$IFDEF UNICODE}
  422. {$IFDEF DYNAMIC_LINK}
  423. var
  424.   _UiCreatePatchPackage: Pointer;
  426. function UiCreatePatchPackage;
  427. begin
  428.   GetProcedureAddress(_UiCreatePatchPackage, patchwiz, 'UiCreatePatchPackageW');
  429.   asm
  430.     mov esp, ebp
  431.     pop ebp
  432.     jmp [_UiCreatePatchPackage]
  433.   end;
  434. end;
  435. {$ELSE}
  436. function UiCreatePatchPackage; external patchwiz name 'UiCreatePatchPackageW';
  437. {$ENDIF DYNAMIC_LINK}
  438. {$ELSE}
  440. {$IFDEF DYNAMIC_LINK}
  441. var
  442.   _UiCreatePatchPackage: Pointer;
  444. function UiCreatePatchPackage;
  445. begin
  446.   GetProcedureAddress(_UiCreatePatchPackage, patchwiz, 'UiCreatePatchPackageA');
  447.   asm
  448.     mov esp, ebp
  449.     pop ebp
  450.     jmp [_UiCreatePatchPackage]
  451.   end;
  452. end;
  453. {$ELSE}
  454. function UiCreatePatchPackage; external patchwiz name 'UiCreatePatchPackageA';
  455. {$ENDIF DYNAMIC_LINK}
  456. {$ENDIF}
  458. end.