Windows编程

开发平台：

Delphi

JwaMsi.pas：源码内容

begin
GetProcedureAddress(_MsiGetUserInfoW, msilib, 'MsiGetUserInfoW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetUserInfoW]
end;
end;
{$ELSE}
function MsiGetUserInfoW; external msilib name 'MsiGetUserInfoW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetUserInfo: Pointer;
function MsiGetUserInfo;
begin
GetProcedureAddress(_MsiGetUserInfo, msilib, 'MsiGetUserInfoW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetUserInfo]
end;
end;
{$ELSE}
function MsiGetUserInfo; external msilib name 'MsiGetUserInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetUserInfo: Pointer;
function MsiGetUserInfo;
begin
GetProcedureAddress(_MsiGetUserInfo, msilib, 'MsiGetUserInfoA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetUserInfo]
end;
end;
{$ELSE}
function MsiGetUserInfo; external msilib name 'MsiGetUserInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiCollectUserInfoA: Pointer;
function MsiCollectUserInfoA;
begin
GetProcedureAddress(_MsiCollectUserInfoA, msilib, 'MsiCollectUserInfoA');
asm
mov esp, ebp
pop ebp
jmp [_MsiCollectUserInfoA]
end;
end;
{$ELSE}
function MsiCollectUserInfoA; external msilib name 'MsiCollectUserInfoA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiCollectUserInfoW: Pointer;
function MsiCollectUserInfoW;
begin
GetProcedureAddress(_MsiCollectUserInfoW, msilib, 'MsiCollectUserInfoW');
asm
mov esp, ebp
pop ebp
jmp [_MsiCollectUserInfoW]
end;
end;
{$ELSE}
function MsiCollectUserInfoW; external msilib name 'MsiCollectUserInfoW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiCollectUserInfo: Pointer;
function MsiCollectUserInfo;
begin
GetProcedureAddress(_MsiCollectUserInfo, msilib, 'MsiCollectUserInfoW');
asm
mov esp, ebp
pop ebp
jmp [_MsiCollectUserInfo]
end;
end;
{$ELSE}
function MsiCollectUserInfo; external msilib name 'MsiCollectUserInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiCollectUserInfo: Pointer;
function MsiCollectUserInfo;
begin
GetProcedureAddress(_MsiCollectUserInfo, msilib, 'MsiCollectUserInfoA');
asm
mov esp, ebp
pop ebp
jmp [_MsiCollectUserInfo]
end;
end;
{$ELSE}
function MsiCollectUserInfo; external msilib name 'MsiCollectUserInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiApplyPatchA: Pointer;
function MsiApplyPatchA;
begin
GetProcedureAddress(_MsiApplyPatchA, msilib, 'MsiApplyPatchA');
asm
mov esp, ebp
pop ebp
jmp [_MsiApplyPatchA]
end;
end;
{$ELSE}
function MsiApplyPatchA; external msilib name 'MsiApplyPatchA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiApplyPatchW: Pointer;
function MsiApplyPatchW;
begin
GetProcedureAddress(_MsiApplyPatchW, msilib, 'MsiApplyPatchW');
asm
mov esp, ebp
pop ebp
jmp [_MsiApplyPatchW]
end;
end;
{$ELSE}
function MsiApplyPatchW; external msilib name 'MsiApplyPatchW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiApplyPatch: Pointer;
function MsiApplyPatch;
begin
GetProcedureAddress(_MsiApplyPatch, msilib, 'MsiApplyPatchW');
asm
mov esp, ebp
pop ebp
jmp [_MsiApplyPatch]
end;
end;
{$ELSE}
function MsiApplyPatch; external msilib name 'MsiApplyPatchW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiApplyPatch: Pointer;
function MsiApplyPatch;
begin
GetProcedureAddress(_MsiApplyPatch, msilib, 'MsiApplyPatchA');
asm
mov esp, ebp
pop ebp
jmp [_MsiApplyPatch]
end;
end;
{$ELSE}
function MsiApplyPatch; external msilib name 'MsiApplyPatchA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetPatchInfoA: Pointer;
function MsiGetPatchInfoA;
begin
GetProcedureAddress(_MsiGetPatchInfoA, msilib, 'MsiGetPatchInfoA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetPatchInfoA]
end;
end;
{$ELSE}
function MsiGetPatchInfoA; external msilib name 'MsiGetPatchInfoA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetPatchInfoW: Pointer;
function MsiGetPatchInfoW;
begin
GetProcedureAddress(_MsiGetPatchInfoW, msilib, 'MsiGetPatchInfoW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetPatchInfoW]
end;
end;
{$ELSE}
function MsiGetPatchInfoW; external msilib name 'MsiGetPatchInfoW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetPatchInfo: Pointer;
function MsiGetPatchInfo;
begin
GetProcedureAddress(_MsiGetPatchInfo, msilib, 'MsiGetPatchInfoW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetPatchInfo]
end;
end;
{$ELSE}
function MsiGetPatchInfo; external msilib name 'MsiGetPatchInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetPatchInfo: Pointer;
function MsiGetPatchInfo;
begin
GetProcedureAddress(_MsiGetPatchInfo, msilib, 'MsiGetPatchInfoA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetPatchInfo]
end;
end;
{$ELSE}
function MsiGetPatchInfo; external msilib name 'MsiGetPatchInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumPatchesA: Pointer;
function MsiEnumPatchesA;
begin
GetProcedureAddress(_MsiEnumPatchesA, msilib, 'MsiEnumPatchesA');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumPatchesA]
end;
end;
{$ELSE}
function MsiEnumPatchesA; external msilib name 'MsiEnumPatchesA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumPatchesW: Pointer;
function MsiEnumPatchesW;
begin
GetProcedureAddress(_MsiEnumPatchesW, msilib, 'MsiEnumPatchesW');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumPatchesW]
end;
end;
{$ELSE}
function MsiEnumPatchesW; external msilib name 'MsiEnumPatchesW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumPatches: Pointer;
function MsiEnumPatches;
begin
GetProcedureAddress(_MsiEnumPatches, msilib, 'MsiEnumPatchesW');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumPatches]
end;
end;
{$ELSE}
function MsiEnumPatches; external msilib name 'MsiEnumPatchesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumPatches: Pointer;
function MsiEnumPatches;
begin
GetProcedureAddress(_MsiEnumPatches, msilib, 'MsiEnumPatchesA');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumPatches]
end;
end;
{$ELSE}
function MsiEnumPatches; external msilib name 'MsiEnumPatchesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiQueryFeatureStateA: Pointer;
function MsiQueryFeatureStateA;
begin
GetProcedureAddress(_MsiQueryFeatureStateA, msilib, 'MsiQueryFeatureStateA');
asm
mov esp, ebp
pop ebp
jmp [_MsiQueryFeatureStateA]
end;
end;
{$ELSE}
function MsiQueryFeatureStateA; external msilib name 'MsiQueryFeatureStateA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiQueryFeatureStateW: Pointer;
function MsiQueryFeatureStateW;
begin
GetProcedureAddress(_MsiQueryFeatureStateW, msilib, 'MsiQueryFeatureStateW');
asm
mov esp, ebp
pop ebp
jmp [_MsiQueryFeatureStateW]
end;
end;
{$ELSE}
function MsiQueryFeatureStateW; external msilib name 'MsiQueryFeatureStateW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiQueryFeatureState: Pointer;
function MsiQueryFeatureState;
begin
GetProcedureAddress(_MsiQueryFeatureState, msilib, 'MsiQueryFeatureStateW');
asm
mov esp, ebp
pop ebp
jmp [_MsiQueryFeatureState]
end;
end;
{$ELSE}
function MsiQueryFeatureState; external msilib name 'MsiQueryFeatureStateW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiQueryFeatureState: Pointer;
function MsiQueryFeatureState;
begin
GetProcedureAddress(_MsiQueryFeatureState, msilib, 'MsiQueryFeatureStateA');
asm
mov esp, ebp
pop ebp
jmp [_MsiQueryFeatureState]
end;
end;
{$ELSE}
function MsiQueryFeatureState; external msilib name 'MsiQueryFeatureStateA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiUseFeatureA: Pointer;
function MsiUseFeatureA;
begin
GetProcedureAddress(_MsiUseFeatureA, msilib, 'MsiUseFeatureA');
asm
mov esp, ebp
pop ebp
jmp [_MsiUseFeatureA]
end;
end;
{$ELSE}
function MsiUseFeatureA; external msilib name 'MsiUseFeatureA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiUseFeatureW: Pointer;
function MsiUseFeatureW;
begin
GetProcedureAddress(_MsiUseFeatureW, msilib, 'MsiUseFeatureW');
asm
mov esp, ebp
pop ebp
jmp [_MsiUseFeatureW]
end;
end;
{$ELSE}
function MsiUseFeatureW; external msilib name 'MsiUseFeatureW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiUseFeature: Pointer;
function MsiUseFeature;
begin
GetProcedureAddress(_MsiUseFeature, msilib, 'MsiUseFeatureW');
asm
mov esp, ebp
pop ebp
jmp [_MsiUseFeature]
end;
end;
{$ELSE}
function MsiUseFeature; external msilib name 'MsiUseFeatureW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiUseFeature: Pointer;
function MsiUseFeature;
begin
GetProcedureAddress(_MsiUseFeature, msilib, 'MsiUseFeatureA');
asm
mov esp, ebp
pop ebp
jmp [_MsiUseFeature]
end;
end;
{$ELSE}
function MsiUseFeature; external msilib name 'MsiUseFeatureA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiUseFeatureExA: Pointer;
function MsiUseFeatureExA;
begin
GetProcedureAddress(_MsiUseFeatureExA, msilib, 'MsiUseFeatureExA');
asm
mov esp, ebp
pop ebp
jmp [_MsiUseFeatureExA]
end;
end;
{$ELSE}
function MsiUseFeatureExA; external msilib name 'MsiUseFeatureExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiUseFeatureExW: Pointer;
function MsiUseFeatureExW;
begin
GetProcedureAddress(_MsiUseFeatureExW, msilib, 'MsiUseFeatureExW');
asm
mov esp, ebp
pop ebp
jmp [_MsiUseFeatureExW]
end;
end;
{$ELSE}
function MsiUseFeatureExW; external msilib name 'MsiUseFeatureExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiUseFeatureEx: Pointer;
function MsiUseFeatureEx;
begin
GetProcedureAddress(_MsiUseFeatureEx, msilib, 'MsiUseFeatureExW');
asm
mov esp, ebp
pop ebp
jmp [_MsiUseFeatureEx]
end;
end;
{$ELSE}
function MsiUseFeatureEx; external msilib name 'MsiUseFeatureExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiUseFeatureEx: Pointer;
function MsiUseFeatureEx;
begin
GetProcedureAddress(_MsiUseFeatureEx, msilib, 'MsiUseFeatureExA');
asm
mov esp, ebp
pop ebp
jmp [_MsiUseFeatureEx]
end;
end;
{$ELSE}
function MsiUseFeatureEx; external msilib name 'MsiUseFeatureExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFeatureUsageA: Pointer;
function MsiGetFeatureUsageA;
begin
GetProcedureAddress(_MsiGetFeatureUsageA, msilib, 'MsiGetFeatureUsageA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFeatureUsageA]
end;
end;
{$ELSE}
function MsiGetFeatureUsageA; external msilib name 'MsiGetFeatureUsageA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFeatureUsageW: Pointer;
function MsiGetFeatureUsageW;
begin
GetProcedureAddress(_MsiGetFeatureUsageW, msilib, 'MsiGetFeatureUsageW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFeatureUsageW]
end;
end;
{$ELSE}
function MsiGetFeatureUsageW; external msilib name 'MsiGetFeatureUsageW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFeatureUsage: Pointer;
function MsiGetFeatureUsage;
begin
GetProcedureAddress(_MsiGetFeatureUsage, msilib, 'MsiGetFeatureUsageW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFeatureUsage]
end;
end;
{$ELSE}
function MsiGetFeatureUsage; external msilib name 'MsiGetFeatureUsageW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFeatureUsage: Pointer;
function MsiGetFeatureUsage;
begin
GetProcedureAddress(_MsiGetFeatureUsage, msilib, 'MsiGetFeatureUsageA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFeatureUsage]
end;
end;
{$ELSE}
function MsiGetFeatureUsage; external msilib name 'MsiGetFeatureUsageA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiConfigureFeatureA: Pointer;
function MsiConfigureFeatureA;
begin
GetProcedureAddress(_MsiConfigureFeatureA, msilib, 'MsiConfigureFeatureA');
asm
mov esp, ebp
pop ebp
jmp [_MsiConfigureFeatureA]
end;
end;
{$ELSE}
function MsiConfigureFeatureA; external msilib name 'MsiConfigureFeatureA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiConfigureFeatureW: Pointer;
function MsiConfigureFeatureW;
begin
GetProcedureAddress(_MsiConfigureFeatureW, msilib, 'MsiConfigureFeatureW');
asm
mov esp, ebp
pop ebp
jmp [_MsiConfigureFeatureW]
end;
end;
{$ELSE}
function MsiConfigureFeatureW; external msilib name 'MsiConfigureFeatureW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiConfigureFeature: Pointer;
function MsiConfigureFeature;
begin
GetProcedureAddress(_MsiConfigureFeature, msilib, 'MsiConfigureFeatureW');
asm
mov esp, ebp
pop ebp
jmp [_MsiConfigureFeature]
end;
end;
{$ELSE}
function MsiConfigureFeature; external msilib name 'MsiConfigureFeatureW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiConfigureFeature: Pointer;
function MsiConfigureFeature;
begin
GetProcedureAddress(_MsiConfigureFeature, msilib, 'MsiConfigureFeatureA');
asm
mov esp, ebp
pop ebp
jmp [_MsiConfigureFeature]
end;
end;
{$ELSE}
function MsiConfigureFeature; external msilib name 'MsiConfigureFeatureA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiReinstallFeatureA: Pointer;
function MsiReinstallFeatureA;
begin
GetProcedureAddress(_MsiReinstallFeatureA, msilib, 'MsiReinstallFeatureA');
asm
mov esp, ebp
pop ebp
jmp [_MsiReinstallFeatureA]
end;
end;
{$ELSE}
function MsiReinstallFeatureA; external msilib name 'MsiReinstallFeatureA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiReinstallFeatureW: Pointer;
function MsiReinstallFeatureW;
begin
GetProcedureAddress(_MsiReinstallFeatureW, msilib, 'MsiReinstallFeatureW');
asm
mov esp, ebp
pop ebp
jmp [_MsiReinstallFeatureW]
end;
end;
{$ELSE}
function MsiReinstallFeatureW; external msilib name 'MsiReinstallFeatureW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiReinstallFeature: Pointer;
function MsiReinstallFeature;
begin
GetProcedureAddress(_MsiReinstallFeature, msilib, 'MsiReinstallFeatureW');
asm
mov esp, ebp
pop ebp
jmp [_MsiReinstallFeature]
end;
end;
{$ELSE}
function MsiReinstallFeature; external msilib name 'MsiReinstallFeatureW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiReinstallFeature: Pointer;
function MsiReinstallFeature;
begin
GetProcedureAddress(_MsiReinstallFeature, msilib, 'MsiReinstallFeatureA');
asm
mov esp, ebp
pop ebp
jmp [_MsiReinstallFeature]
end;
end;
{$ELSE}
function MsiReinstallFeature; external msilib name 'MsiReinstallFeatureA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiProvideComponentA: Pointer;
function MsiProvideComponentA;
begin
GetProcedureAddress(_MsiProvideComponentA, msilib, 'MsiProvideComponentA');
asm
mov esp, ebp
pop ebp
jmp [_MsiProvideComponentA]
end;
end;
{$ELSE}
function MsiProvideComponentA; external msilib name 'MsiProvideComponentA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiProvideComponentW: Pointer;
function MsiProvideComponentW;
begin
GetProcedureAddress(_MsiProvideComponentW, msilib, 'MsiProvideComponentW');
asm
mov esp, ebp
pop ebp
jmp [_MsiProvideComponentW]
end;
end;
{$ELSE}
function MsiProvideComponentW; external msilib name 'MsiProvideComponentW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiProvideComponent: Pointer;
function MsiProvideComponent;
begin
GetProcedureAddress(_MsiProvideComponent, msilib, 'MsiProvideComponentW');
asm
mov esp, ebp
pop ebp
jmp [_MsiProvideComponent]
end;
end;
{$ELSE}
function MsiProvideComponent; external msilib name 'MsiProvideComponentW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiProvideComponent: Pointer;
function MsiProvideComponent;
begin
GetProcedureAddress(_MsiProvideComponent, msilib, 'MsiProvideComponentA');
asm
mov esp, ebp
pop ebp
jmp [_MsiProvideComponent]
end;
end;
{$ELSE}
function MsiProvideComponent; external msilib name 'MsiProvideComponentA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiProvideQualifiedComponentA: Pointer;
function MsiProvideQualifiedComponentA;
begin
GetProcedureAddress(_MsiProvideQualifiedComponentA, msilib, 'MsiProvideQualifiedComponentA');
asm
mov esp, ebp
pop ebp
jmp [_MsiProvideQualifiedComponentA]
end;
end;
{$ELSE}
function MsiProvideQualifiedComponentA; external msilib name 'MsiProvideQualifiedComponentA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiProvideQualifiedComponentW: Pointer;
function MsiProvideQualifiedComponentW;
begin
GetProcedureAddress(_MsiProvideQualifiedComponentW, msilib, 'MsiProvideQualifiedComponentW');
asm
mov esp, ebp
pop ebp
jmp [_MsiProvideQualifiedComponentW]
end;
end;
{$ELSE}
function MsiProvideQualifiedComponentW; external msilib name 'MsiProvideQualifiedComponentW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiProvideQualifiedComponent: Pointer;
function MsiProvideQualifiedComponent;
begin
GetProcedureAddress(_MsiProvideQualifiedComponent, msilib, 'MsiProvideQualifiedComponentW');
asm
mov esp, ebp
pop ebp
jmp [_MsiProvideQualifiedComponent]
end;
end;
{$ELSE}
function MsiProvideQualifiedComponent; external msilib name 'MsiProvideQualifiedComponentW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiProvideQualifiedComponent: Pointer;
function MsiProvideQualifiedComponent;
begin
GetProcedureAddress(_MsiProvideQualifiedComponent, msilib, 'MsiProvideQualifiedComponentA');
asm
mov esp, ebp
pop ebp
jmp [_MsiProvideQualifiedComponent]
end;
end;
{$ELSE}
function MsiProvideQualifiedComponent; external msilib name 'MsiProvideQualifiedComponentA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiProvideQualifiedComponentExA: Pointer;
function MsiProvideQualifiedComponentExA;
begin
GetProcedureAddress(_MsiProvideQualifiedComponentExA, msilib, 'MsiProvideQualifiedComponentExA');
asm
mov esp, ebp
pop ebp
jmp [_MsiProvideQualifiedComponentExA]
end;
end;
{$ELSE}
function MsiProvideQualifiedComponentExA; external msilib name 'MsiProvideQualifiedComponentExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiProvideQualifiedComponentExW: Pointer;
function MsiProvideQualifiedComponentExW;
begin
GetProcedureAddress(_MsiProvideQualifiedComponentExW, msilib, 'MsiProvideQualifiedComponentExW');
asm
mov esp, ebp
pop ebp
jmp [_MsiProvideQualifiedComponentExW]
end;
end;
{$ELSE}
function MsiProvideQualifiedComponentExW; external msilib name 'MsiProvideQualifiedComponentExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiProvideQualifiedComponentEx: Pointer;
function MsiProvideQualifiedComponentEx;
begin
GetProcedureAddress(_MsiProvideQualifiedComponentEx, msilib, 'MsiProvideQualifiedComponentExW');
asm
mov esp, ebp
pop ebp
jmp [_MsiProvideQualifiedComponentEx]
end;
end;
{$ELSE}
function MsiProvideQualifiedComponentEx; external msilib name 'MsiProvideQualifiedComponentExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiProvideQualifiedComponentEx: Pointer;
function MsiProvideQualifiedComponentEx;
begin
GetProcedureAddress(_MsiProvideQualifiedComponentEx, msilib, 'MsiProvideQualifiedComponentExA');
asm
mov esp, ebp
pop ebp
jmp [_MsiProvideQualifiedComponentEx]
end;
end;
{$ELSE}
function MsiProvideQualifiedComponentEx; external msilib name 'MsiProvideQualifiedComponentExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetComponentPathA: Pointer;
function MsiGetComponentPathA;
begin
GetProcedureAddress(_MsiGetComponentPathA, msilib, 'MsiGetComponentPathA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetComponentPathA]
end;
end;
{$ELSE}
function MsiGetComponentPathA; external msilib name 'MsiGetComponentPathA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetComponentPathW: Pointer;
function MsiGetComponentPathW;
begin
GetProcedureAddress(_MsiGetComponentPathW, msilib, 'MsiGetComponentPathW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetComponentPathW]
end;
end;
{$ELSE}
function MsiGetComponentPathW; external msilib name 'MsiGetComponentPathW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetComponentPath: Pointer;
function MsiGetComponentPath;
begin
GetProcedureAddress(_MsiGetComponentPath, msilib, 'MsiGetComponentPathW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetComponentPath]
end;
end;
{$ELSE}
function MsiGetComponentPath; external msilib name 'MsiGetComponentPathW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetComponentPath: Pointer;
function MsiGetComponentPath;
begin
GetProcedureAddress(_MsiGetComponentPath, msilib, 'MsiGetComponentPathA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetComponentPath]
end;
end;
{$ELSE}
function MsiGetComponentPath; external msilib name 'MsiGetComponentPathA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiProvideAssemblyA: Pointer;
function MsiProvideAssemblyA;
begin
GetProcedureAddress(_MsiProvideAssemblyA, msilib, 'MsiProvideAssemblyA');
asm
mov esp, ebp
pop ebp
jmp [_MsiProvideAssemblyA]
end;
end;
{$ELSE}
function MsiProvideAssemblyA; external msilib name 'MsiProvideAssemblyA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiProvideAssemblyW: Pointer;
function MsiProvideAssemblyW;
begin
GetProcedureAddress(_MsiProvideAssemblyW, msilib, 'MsiProvideAssemblyW');
asm
mov esp, ebp
pop ebp
jmp [_MsiProvideAssemblyW]
end;
end;
{$ELSE}
function MsiProvideAssemblyW; external msilib name 'MsiProvideAssemblyW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiProvideAssembly: Pointer;
function MsiProvideAssembly;
begin
GetProcedureAddress(_MsiProvideAssembly, msilib, 'MsiProvideAssemblyW');
asm
mov esp, ebp
pop ebp
jmp [_MsiProvideAssembly]
end;
end;
{$ELSE}
function MsiProvideAssembly; external msilib name 'MsiProvideAssemblyW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiProvideAssembly: Pointer;
function MsiProvideAssembly;
begin
GetProcedureAddress(_MsiProvideAssembly, msilib, 'MsiProvideAssemblyA');
asm
mov esp, ebp
pop ebp
jmp [_MsiProvideAssembly]
end;
end;
{$ELSE}
function MsiProvideAssembly; external msilib name 'MsiProvideAssemblyA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumProductsA: Pointer;
function MsiEnumProductsA;
begin
GetProcedureAddress(_MsiEnumProductsA, msilib, 'MsiEnumProductsA');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumProductsA]
end;
end;
{$ELSE}
function MsiEnumProductsA; external msilib name 'MsiEnumProductsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumProductsW: Pointer;
function MsiEnumProductsW;
begin
GetProcedureAddress(_MsiEnumProductsW, msilib, 'MsiEnumProductsW');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumProductsW]
end;
end;
{$ELSE}
function MsiEnumProductsW; external msilib name 'MsiEnumProductsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumProducts: Pointer;
function MsiEnumProducts;
begin
GetProcedureAddress(_MsiEnumProducts, msilib, 'MsiEnumProductsW');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumProducts]
end;
end;
{$ELSE}
function MsiEnumProducts; external msilib name 'MsiEnumProductsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumProducts: Pointer;
function MsiEnumProducts;
begin
GetProcedureAddress(_MsiEnumProducts, msilib, 'MsiEnumProductsA');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumProducts]
end;
end;
{$ELSE}
function MsiEnumProducts; external msilib name 'MsiEnumProductsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF WIN32_MSI_110}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumRelatedProductsA: Pointer;
function MsiEnumRelatedProductsA;
begin
GetProcedureAddress(_MsiEnumRelatedProductsA, msilib, 'MsiEnumRelatedProductsA');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumRelatedProductsA]
end;
end;
{$ELSE}
function MsiEnumRelatedProductsA; external msilib name 'MsiEnumRelatedProductsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumRelatedProductsW: Pointer;
function MsiEnumRelatedProductsW;
begin
GetProcedureAddress(_MsiEnumRelatedProductsW, msilib, 'MsiEnumRelatedProductsW');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumRelatedProductsW]
end;
end;
{$ELSE}
function MsiEnumRelatedProductsW; external msilib name 'MsiEnumRelatedProductsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumRelatedProducts: Pointer;
function MsiEnumRelatedProducts;
begin
GetProcedureAddress(_MsiEnumRelatedProducts, msilib, 'MsiEnumRelatedProductsW');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumRelatedProducts]
end;
end;
{$ELSE}
function MsiEnumRelatedProducts; external msilib name 'MsiEnumRelatedProductsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumRelatedProducts: Pointer;
function MsiEnumRelatedProducts;
begin
GetProcedureAddress(_MsiEnumRelatedProducts, msilib, 'MsiEnumRelatedProductsA');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumRelatedProducts]
end;
end;
{$ELSE}
function MsiEnumRelatedProducts; external msilib name 'MsiEnumRelatedProductsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$ENDIF WIN32_MSI_110}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumFeaturesA: Pointer;
function MsiEnumFeaturesA;
begin
GetProcedureAddress(_MsiEnumFeaturesA, msilib, 'MsiEnumFeaturesA');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumFeaturesA]
end;
end;
{$ELSE}
function MsiEnumFeaturesA; external msilib name 'MsiEnumFeaturesA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumFeaturesW: Pointer;
function MsiEnumFeaturesW;
begin
GetProcedureAddress(_MsiEnumFeaturesW, msilib, 'MsiEnumFeaturesW');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumFeaturesW]
end;
end;
{$ELSE}
function MsiEnumFeaturesW; external msilib name 'MsiEnumFeaturesW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumFeatures: Pointer;
function MsiEnumFeatures;
begin
GetProcedureAddress(_MsiEnumFeatures, msilib, 'MsiEnumFeaturesW');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumFeatures]
end;
end;
{$ELSE}
function MsiEnumFeatures; external msilib name 'MsiEnumFeaturesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumFeatures: Pointer;
function MsiEnumFeatures;
begin
GetProcedureAddress(_MsiEnumFeatures, msilib, 'MsiEnumFeaturesA');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumFeatures]
end;
end;
{$ELSE}
function MsiEnumFeatures; external msilib name 'MsiEnumFeaturesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumComponentsA: Pointer;
function MsiEnumComponentsA;
begin
GetProcedureAddress(_MsiEnumComponentsA, msilib, 'MsiEnumComponentsA');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumComponentsA]
end;
end;
{$ELSE}
function MsiEnumComponentsA; external msilib name 'MsiEnumComponentsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumComponentsW: Pointer;
function MsiEnumComponentsW;
begin
GetProcedureAddress(_MsiEnumComponentsW, msilib, 'MsiEnumComponentsW');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumComponentsW]
end;
end;
{$ELSE}
function MsiEnumComponentsW; external msilib name 'MsiEnumComponentsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumComponents: Pointer;
function MsiEnumComponents;
begin
GetProcedureAddress(_MsiEnumComponents, msilib, 'MsiEnumComponentsW');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumComponents]
end;
end;
{$ELSE}
function MsiEnumComponents; external msilib name 'MsiEnumComponentsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumComponents: Pointer;
function MsiEnumComponents;
begin
GetProcedureAddress(_MsiEnumComponents, msilib, 'MsiEnumComponentsA');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumComponents]
end;
end;
{$ELSE}
function MsiEnumComponents; external msilib name 'MsiEnumComponentsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumClientsA: Pointer;
function MsiEnumClientsA;
begin
GetProcedureAddress(_MsiEnumClientsA, msilib, 'MsiEnumClientsA');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumClientsA]
end;
end;
{$ELSE}
function MsiEnumClientsA; external msilib name 'MsiEnumClientsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumClientsW: Pointer;
function MsiEnumClientsW;
begin
GetProcedureAddress(_MsiEnumClientsW, msilib, 'MsiEnumClientsW');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumClientsW]
end;
end;
{$ELSE}
function MsiEnumClientsW; external msilib name 'MsiEnumClientsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumClients: Pointer;
function MsiEnumClients;
begin
GetProcedureAddress(_MsiEnumClients, msilib, 'MsiEnumClientsW');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumClients]
end;
end;
{$ELSE}
function MsiEnumClients; external msilib name 'MsiEnumClientsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumClients: Pointer;
function MsiEnumClients;
begin
GetProcedureAddress(_MsiEnumClients, msilib, 'MsiEnumClientsA');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumClients]
end;
end;
{$ELSE}
function MsiEnumClients; external msilib name 'MsiEnumClientsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumComponentQualifiersA: Pointer;
function MsiEnumComponentQualifiersA;
begin
GetProcedureAddress(_MsiEnumComponentQualifiersA, msilib, 'MsiEnumComponentQualifiersA');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumComponentQualifiersA]
end;
end;
{$ELSE}
function MsiEnumComponentQualifiersA; external msilib name 'MsiEnumComponentQualifiersA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumComponentQualifiersW: Pointer;
function MsiEnumComponentQualifiersW;
begin
GetProcedureAddress(_MsiEnumComponentQualifiersW, msilib, 'MsiEnumComponentQualifiersW');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumComponentQualifiersW]
end;
end;
{$ELSE}
function MsiEnumComponentQualifiersW; external msilib name 'MsiEnumComponentQualifiersW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumComponentQualifiers: Pointer;
function MsiEnumComponentQualifiers;
begin
GetProcedureAddress(_MsiEnumComponentQualifiers, msilib, 'MsiEnumComponentQualifiersW');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumComponentQualifiers]
end;
end;
{$ELSE}
function MsiEnumComponentQualifiers; external msilib name 'MsiEnumComponentQualifiersW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiEnumComponentQualifiers: Pointer;
function MsiEnumComponentQualifiers;
begin
GetProcedureAddress(_MsiEnumComponentQualifiers, msilib, 'MsiEnumComponentQualifiersA');
asm
mov esp, ebp
pop ebp
jmp [_MsiEnumComponentQualifiers]
end;
end;
{$ELSE}
function MsiEnumComponentQualifiers; external msilib name 'MsiEnumComponentQualifiersA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiOpenProductA: Pointer;
function MsiOpenProductA;
begin
GetProcedureAddress(_MsiOpenProductA, msilib, 'MsiOpenProductA');
asm
mov esp, ebp
pop ebp
jmp [_MsiOpenProductA]
end;
end;
{$ELSE}
function MsiOpenProductA; external msilib name 'MsiOpenProductA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiOpenProductW: Pointer;
function MsiOpenProductW;
begin
GetProcedureAddress(_MsiOpenProductW, msilib, 'MsiOpenProductW');
asm
mov esp, ebp
pop ebp
jmp [_MsiOpenProductW]
end;
end;
{$ELSE}
function MsiOpenProductW; external msilib name 'MsiOpenProductW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiOpenProduct: Pointer;
function MsiOpenProduct;
begin
GetProcedureAddress(_MsiOpenProduct, msilib, 'MsiOpenProductW');
asm
mov esp, ebp
pop ebp
jmp [_MsiOpenProduct]
end;
end;
{$ELSE}
function MsiOpenProduct; external msilib name 'MsiOpenProductW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiOpenProduct: Pointer;
function MsiOpenProduct;
begin
GetProcedureAddress(_MsiOpenProduct, msilib, 'MsiOpenProductA');
asm
mov esp, ebp
pop ebp
jmp [_MsiOpenProduct]
end;
end;
{$ELSE}
function MsiOpenProduct; external msilib name 'MsiOpenProductA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiOpenPackageA: Pointer;
function MsiOpenPackageA;
begin
GetProcedureAddress(_MsiOpenPackageA, msilib, 'MsiOpenPackageA');
asm
mov esp, ebp
pop ebp
jmp [_MsiOpenPackageA]
end;
end;
{$ELSE}
function MsiOpenPackageA; external msilib name 'MsiOpenPackageA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiOpenPackageW: Pointer;
function MsiOpenPackageW;
begin
GetProcedureAddress(_MsiOpenPackageW, msilib, 'MsiOpenPackageW');
asm
mov esp, ebp
pop ebp
jmp [_MsiOpenPackageW]
end;
end;
{$ELSE}
function MsiOpenPackageW; external msilib name 'MsiOpenPackageW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiOpenPackage: Pointer;
function MsiOpenPackage;
begin
GetProcedureAddress(_MsiOpenPackage, msilib, 'MsiOpenPackageW');
asm
mov esp, ebp
pop ebp
jmp [_MsiOpenPackage]
end;
end;
{$ELSE}
function MsiOpenPackage; external msilib name 'MsiOpenPackageW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiOpenPackage: Pointer;
function MsiOpenPackage;
begin
GetProcedureAddress(_MsiOpenPackage, msilib, 'MsiOpenPackageA');
asm
mov esp, ebp
pop ebp
jmp [_MsiOpenPackage]
end;
end;
{$ELSE}
function MsiOpenPackage; external msilib name 'MsiOpenPackageA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiOpenPackageExA: Pointer;
function MsiOpenPackageExA;
begin
GetProcedureAddress(_MsiOpenPackageExA, msilib, 'MsiOpenPackageExA');
asm
mov esp, ebp
pop ebp
jmp [_MsiOpenPackageExA]
end;
end;
{$ELSE}
function MsiOpenPackageExA; external msilib name 'MsiOpenPackageExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiOpenPackageExW: Pointer;
function MsiOpenPackageExW;
begin
GetProcedureAddress(_MsiOpenPackageExW, msilib, 'MsiOpenPackageExW');
asm
mov esp, ebp
pop ebp
jmp [_MsiOpenPackageExW]
end;
end;
{$ELSE}
function MsiOpenPackageExW; external msilib name 'MsiOpenPackageExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiOpenPackageEx: Pointer;
function MsiOpenPackageEx;
begin
GetProcedureAddress(_MsiOpenPackageEx, msilib, 'MsiOpenPackageExW');
asm
mov esp, ebp
pop ebp
jmp [_MsiOpenPackageEx]
end;
end;
{$ELSE}
function MsiOpenPackageEx; external msilib name 'MsiOpenPackageExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiOpenPackageEx: Pointer;
function MsiOpenPackageEx;
begin
GetProcedureAddress(_MsiOpenPackageEx, msilib, 'MsiOpenPackageExA');
asm
mov esp, ebp
pop ebp
jmp [_MsiOpenPackageEx]
end;
end;
{$ELSE}
function MsiOpenPackageEx; external msilib name 'MsiOpenPackageExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetProductPropertyA: Pointer;
function MsiGetProductPropertyA;
begin
GetProcedureAddress(_MsiGetProductPropertyA, msilib, 'MsiGetProductPropertyA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetProductPropertyA]
end;
end;
{$ELSE}
function MsiGetProductPropertyA; external msilib name 'MsiGetProductPropertyA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetProductPropertyW: Pointer;
function MsiGetProductPropertyW;
begin
GetProcedureAddress(_MsiGetProductPropertyW, msilib, 'MsiGetProductPropertyW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetProductPropertyW]
end;
end;
{$ELSE}
function MsiGetProductPropertyW; external msilib name 'MsiGetProductPropertyW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetProductProperty: Pointer;
function MsiGetProductProperty;
begin
GetProcedureAddress(_MsiGetProductProperty, msilib, 'MsiGetProductPropertyW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetProductProperty]
end;
end;
{$ELSE}
function MsiGetProductProperty; external msilib name 'MsiGetProductPropertyW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetProductProperty: Pointer;
function MsiGetProductProperty;
begin
GetProcedureAddress(_MsiGetProductProperty, msilib, 'MsiGetProductPropertyA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetProductProperty]
end;
end;
{$ELSE}
function MsiGetProductProperty; external msilib name 'MsiGetProductPropertyA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiVerifyPackageA: Pointer;
function MsiVerifyPackageA;
begin
GetProcedureAddress(_MsiVerifyPackageA, msilib, 'MsiVerifyPackageA');
asm
mov esp, ebp
pop ebp
jmp [_MsiVerifyPackageA]
end;
end;
{$ELSE}
function MsiVerifyPackageA; external msilib name 'MsiVerifyPackageA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiVerifyPackageW: Pointer;
function MsiVerifyPackageW;
begin
GetProcedureAddress(_MsiVerifyPackageW, msilib, 'MsiVerifyPackageW');
asm
mov esp, ebp
pop ebp
jmp [_MsiVerifyPackageW]
end;
end;
{$ELSE}
function MsiVerifyPackageW; external msilib name 'MsiVerifyPackageW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiVerifyPackage: Pointer;
function MsiVerifyPackage;
begin
GetProcedureAddress(_MsiVerifyPackage, msilib, 'MsiVerifyPackageW');
asm
mov esp, ebp
pop ebp
jmp [_MsiVerifyPackage]
end;
end;
{$ELSE}
function MsiVerifyPackage; external msilib name 'MsiVerifyPackageW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiVerifyPackage: Pointer;
function MsiVerifyPackage;
begin
GetProcedureAddress(_MsiVerifyPackage, msilib, 'MsiVerifyPackageA');
asm
mov esp, ebp
pop ebp
jmp [_MsiVerifyPackage]
end;
end;
{$ELSE}
function MsiVerifyPackage; external msilib name 'MsiVerifyPackageA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFeatureInfoA: Pointer;
function MsiGetFeatureInfoA;
begin
GetProcedureAddress(_MsiGetFeatureInfoA, msilib, 'MsiGetFeatureInfoA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFeatureInfoA]
end;
end;
{$ELSE}
function MsiGetFeatureInfoA; external msilib name 'MsiGetFeatureInfoA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFeatureInfoW: Pointer;
function MsiGetFeatureInfoW;
begin
GetProcedureAddress(_MsiGetFeatureInfoW, msilib, 'MsiGetFeatureInfoW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFeatureInfoW]
end;
end;
{$ELSE}
function MsiGetFeatureInfoW; external msilib name 'MsiGetFeatureInfoW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFeatureInfo: Pointer;
function MsiGetFeatureInfo;
begin
GetProcedureAddress(_MsiGetFeatureInfo, msilib, 'MsiGetFeatureInfoW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFeatureInfo]
end;
end;
{$ELSE}
function MsiGetFeatureInfo; external msilib name 'MsiGetFeatureInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFeatureInfo: Pointer;
function MsiGetFeatureInfo;
begin
GetProcedureAddress(_MsiGetFeatureInfo, msilib, 'MsiGetFeatureInfoA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFeatureInfo]
end;
end;
{$ELSE}
function MsiGetFeatureInfo; external msilib name 'MsiGetFeatureInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiInstallMissingComponentA: Pointer;
function MsiInstallMissingComponentA;
begin
GetProcedureAddress(_MsiInstallMissingComponentA, msilib, 'MsiInstallMissingComponentA');
asm
mov esp, ebp
pop ebp
jmp [_MsiInstallMissingComponentA]
end;
end;
{$ELSE}
function MsiInstallMissingComponentA; external msilib name 'MsiInstallMissingComponentA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiInstallMissingComponentW: Pointer;
function MsiInstallMissingComponentW;
begin
GetProcedureAddress(_MsiInstallMissingComponentW, msilib, 'MsiInstallMissingComponentW');
asm
mov esp, ebp
pop ebp
jmp [_MsiInstallMissingComponentW]
end;
end;
{$ELSE}
function MsiInstallMissingComponentW; external msilib name 'MsiInstallMissingComponentW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiInstallMissingComponent: Pointer;
function MsiInstallMissingComponent;
begin
GetProcedureAddress(_MsiInstallMissingComponent, msilib, 'MsiInstallMissingComponentW');
asm
mov esp, ebp
pop ebp
jmp [_MsiInstallMissingComponent]
end;
end;
{$ELSE}
function MsiInstallMissingComponent; external msilib name 'MsiInstallMissingComponentW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiInstallMissingComponent: Pointer;
function MsiInstallMissingComponent;
begin
GetProcedureAddress(_MsiInstallMissingComponent, msilib, 'MsiInstallMissingComponentA');
asm
mov esp, ebp
pop ebp
jmp [_MsiInstallMissingComponent]
end;
end;
{$ELSE}
function MsiInstallMissingComponent; external msilib name 'MsiInstallMissingComponentA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiInstallMissingFileA: Pointer;
function MsiInstallMissingFileA;
begin
GetProcedureAddress(_MsiInstallMissingFileA, msilib, 'MsiInstallMissingFileA');
asm
mov esp, ebp
pop ebp
jmp [_MsiInstallMissingFileA]
end;
end;
{$ELSE}
function MsiInstallMissingFileA; external msilib name 'MsiInstallMissingFileA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiInstallMissingFileW: Pointer;
function MsiInstallMissingFileW;
begin
GetProcedureAddress(_MsiInstallMissingFileW, msilib, 'MsiInstallMissingFileW');
asm
mov esp, ebp
pop ebp
jmp [_MsiInstallMissingFileW]
end;
end;
{$ELSE}
function MsiInstallMissingFileW; external msilib name 'MsiInstallMissingFileW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiInstallMissingFile: Pointer;
function MsiInstallMissingFile;
begin
GetProcedureAddress(_MsiInstallMissingFile, msilib, 'MsiInstallMissingFileW');
asm
mov esp, ebp
pop ebp
jmp [_MsiInstallMissingFile]
end;
end;
{$ELSE}
function MsiInstallMissingFile; external msilib name 'MsiInstallMissingFileW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiInstallMissingFile: Pointer;
function MsiInstallMissingFile;
begin
GetProcedureAddress(_MsiInstallMissingFile, msilib, 'MsiInstallMissingFileA');
asm
mov esp, ebp
pop ebp
jmp [_MsiInstallMissingFile]
end;
end;
{$ELSE}
function MsiInstallMissingFile; external msilib name 'MsiInstallMissingFileA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiLocateComponentA: Pointer;
function MsiLocateComponentA;
begin
GetProcedureAddress(_MsiLocateComponentA, msilib, 'MsiLocateComponentA');
asm
mov esp, ebp
pop ebp
jmp [_MsiLocateComponentA]
end;
end;
{$ELSE}
function MsiLocateComponentA; external msilib name 'MsiLocateComponentA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiLocateComponentW: Pointer;
function MsiLocateComponentW;
begin
GetProcedureAddress(_MsiLocateComponentW, msilib, 'MsiLocateComponentW');
asm
mov esp, ebp
pop ebp
jmp [_MsiLocateComponentW]
end;
end;
{$ELSE}
function MsiLocateComponentW; external msilib name 'MsiLocateComponentW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiLocateComponent: Pointer;
function MsiLocateComponent;
begin
GetProcedureAddress(_MsiLocateComponent, msilib, 'MsiLocateComponentW');
asm
mov esp, ebp
pop ebp
jmp [_MsiLocateComponent]
end;
end;
{$ELSE}
function MsiLocateComponent; external msilib name 'MsiLocateComponentW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiLocateComponent: Pointer;
function MsiLocateComponent;
begin
GetProcedureAddress(_MsiLocateComponent, msilib, 'MsiLocateComponentA');
asm
mov esp, ebp
pop ebp
jmp [_MsiLocateComponent]
end;
end;
{$ELSE}
function MsiLocateComponent; external msilib name 'MsiLocateComponentA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF WIN32_MSI_110}
{$IFDEF DYNAMIC_LINK}
var
_MsiSourceListClearAllA: Pointer;
function MsiSourceListClearAllA;
begin
GetProcedureAddress(_MsiSourceListClearAllA, msilib, 'MsiSourceListClearAllA');
asm
mov esp, ebp
pop ebp
jmp [_MsiSourceListClearAllA]
end;
end;
{$ELSE}
function MsiSourceListClearAllA; external msilib name 'MsiSourceListClearAllA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiSourceListClearAllW: Pointer;
function MsiSourceListClearAllW;
begin
GetProcedureAddress(_MsiSourceListClearAllW, msilib, 'MsiSourceListClearAllW');
asm
mov esp, ebp
pop ebp
jmp [_MsiSourceListClearAllW]
end;
end;
{$ELSE}
function MsiSourceListClearAllW; external msilib name 'MsiSourceListClearAllW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiSourceListClearAll: Pointer;
function MsiSourceListClearAll;
begin
GetProcedureAddress(_MsiSourceListClearAll, msilib, 'MsiSourceListClearAllW');
asm
mov esp, ebp
pop ebp
jmp [_MsiSourceListClearAll]
end;
end;
{$ELSE}
function MsiSourceListClearAll; external msilib name 'MsiSourceListClearAllW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiSourceListClearAll: Pointer;
function MsiSourceListClearAll;
begin
GetProcedureAddress(_MsiSourceListClearAll, msilib, 'MsiSourceListClearAllA');
asm
mov esp, ebp
pop ebp
jmp [_MsiSourceListClearAll]
end;
end;
{$ELSE}
function MsiSourceListClearAll; external msilib name 'MsiSourceListClearAllA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiSourceListAddSourceA: Pointer;
function MsiSourceListAddSourceA;
begin
GetProcedureAddress(_MsiSourceListAddSourceA, msilib, 'MsiSourceListAddSourceA');
asm
mov esp, ebp
pop ebp
jmp [_MsiSourceListAddSourceA]
end;
end;
{$ELSE}
function MsiSourceListAddSourceA; external msilib name 'MsiSourceListAddSourceA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiSourceListAddSourceW: Pointer;
function MsiSourceListAddSourceW;
begin
GetProcedureAddress(_MsiSourceListAddSourceW, msilib, 'MsiSourceListAddSourceW');
asm
mov esp, ebp
pop ebp
jmp [_MsiSourceListAddSourceW]
end;
end;
{$ELSE}
function MsiSourceListAddSourceW; external msilib name 'MsiSourceListAddSourceW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiSourceListAddSource: Pointer;
function MsiSourceListAddSource;
begin
GetProcedureAddress(_MsiSourceListAddSource, msilib, 'MsiSourceListAddSourceW');
asm
mov esp, ebp
pop ebp
jmp [_MsiSourceListAddSource]
end;
end;
{$ELSE}
function MsiSourceListAddSource; external msilib name 'MsiSourceListAddSourceW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiSourceListAddSource: Pointer;
function MsiSourceListAddSource;
begin
GetProcedureAddress(_MsiSourceListAddSource, msilib, 'MsiSourceListAddSourceA');
asm
mov esp, ebp
pop ebp
jmp [_MsiSourceListAddSource]
end;
end;
{$ELSE}
function MsiSourceListAddSource; external msilib name 'MsiSourceListAddSourceA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiSourceListForceResolutionA: Pointer;
function MsiSourceListForceResolutionA;
begin
GetProcedureAddress(_MsiSourceListForceResolutionA, msilib, 'MsiSourceListForceResolutionA');
asm
mov esp, ebp
pop ebp
jmp [_MsiSourceListForceResolutionA]
end;
end;
{$ELSE}
function MsiSourceListForceResolutionA; external msilib name 'MsiSourceListForceResolutionA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiSourceListForceResolutionW: Pointer;
function MsiSourceListForceResolutionW;
begin
GetProcedureAddress(_MsiSourceListForceResolutionW, msilib, 'MsiSourceListForceResolutionW');
asm
mov esp, ebp
pop ebp
jmp [_MsiSourceListForceResolutionW]
end;
end;
{$ELSE}
function MsiSourceListForceResolutionW; external msilib name 'MsiSourceListForceResolutionW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiSourceListForceResolution: Pointer;
function MsiSourceListForceResolution;
begin
GetProcedureAddress(_MsiSourceListForceResolution, msilib, 'MsiSourceListForceResolutionW');
asm
mov esp, ebp
pop ebp
jmp [_MsiSourceListForceResolution]
end;
end;
{$ELSE}
function MsiSourceListForceResolution; external msilib name 'MsiSourceListForceResolutionW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiSourceListForceResolution: Pointer;
function MsiSourceListForceResolution;
begin
GetProcedureAddress(_MsiSourceListForceResolution, msilib, 'MsiSourceListForceResolutionA');
asm
mov esp, ebp
pop ebp
jmp [_MsiSourceListForceResolution]
end;
end;
{$ELSE}
function MsiSourceListForceResolution; external msilib name 'MsiSourceListForceResolutionA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$ENDIF WIN32_MSI_110}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFileVersionA: Pointer;
function MsiGetFileVersionA;
begin
GetProcedureAddress(_MsiGetFileVersionA, msilib, 'MsiGetFileVersionA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFileVersionA]
end;
end;
{$ELSE}
function MsiGetFileVersionA; external msilib name 'MsiGetFileVersionA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFileVersionW: Pointer;
function MsiGetFileVersionW;
begin
GetProcedureAddress(_MsiGetFileVersionW, msilib, 'MsiGetFileVersionW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFileVersionW]
end;
end;
{$ELSE}
function MsiGetFileVersionW; external msilib name 'MsiGetFileVersionW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFileVersion: Pointer;
function MsiGetFileVersion;
begin
GetProcedureAddress(_MsiGetFileVersion, msilib, 'MsiGetFileVersionW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFileVersion]
end;
end;
{$ELSE}
function MsiGetFileVersion; external msilib name 'MsiGetFileVersionW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFileVersion: Pointer;
function MsiGetFileVersion;
begin
GetProcedureAddress(_MsiGetFileVersion, msilib, 'MsiGetFileVersionA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFileVersion]
end;
end;
{$ELSE}
function MsiGetFileVersion; external msilib name 'MsiGetFileVersionA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFileHashA: Pointer;
function MsiGetFileHashA;
begin
GetProcedureAddress(_MsiGetFileHashA, msilib, 'MsiGetFileHashA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFileHashA]
end;
end;
{$ELSE}
function MsiGetFileHashA; external msilib name 'MsiGetFileHashA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFileHashW: Pointer;
function MsiGetFileHashW;
begin
GetProcedureAddress(_MsiGetFileHashW, msilib, 'MsiGetFileHashW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFileHashW]
end;
end;
{$ELSE}
function MsiGetFileHashW; external msilib name 'MsiGetFileHashW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFileHash: Pointer;
function MsiGetFileHash;
begin
GetProcedureAddress(_MsiGetFileHash, msilib, 'MsiGetFileHashW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFileHash]
end;
end;
{$ELSE}
function MsiGetFileHash; external msilib name 'MsiGetFileHashW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFileHash: Pointer;
function MsiGetFileHash;
begin
GetProcedureAddress(_MsiGetFileHash, msilib, 'MsiGetFileHashA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFileHash]
end;
end;
{$ELSE}
function MsiGetFileHash; external msilib name 'MsiGetFileHashA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFileSignatureInformationA: Pointer;
function MsiGetFileSignatureInformationA;
begin
GetProcedureAddress(_MsiGetFileSignatureInformationA, msilib, 'MsiGetFileSignatureInformationA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFileSignatureInformationA]
end;
end;
{$ELSE}
function MsiGetFileSignatureInformationA; external msilib name 'MsiGetFileSignatureInformationA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFileSignatureInformationW: Pointer;
function MsiGetFileSignatureInformationW;
begin
GetProcedureAddress(_MsiGetFileSignatureInformationW, msilib, 'MsiGetFileSignatureInformationW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFileSignatureInformationW]
end;
end;
{$ELSE}
function MsiGetFileSignatureInformationW; external msilib name 'MsiGetFileSignatureInformationW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFileSignatureInformation: Pointer;
function MsiGetFileSignatureInformation;
begin
GetProcedureAddress(_MsiGetFileSignatureInformation, msilib, 'MsiGetFileSignatureInformationW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFileSignatureInformation]
end;
end;
{$ELSE}
function MsiGetFileSignatureInformation; external msilib name 'MsiGetFileSignatureInformationW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetFileSignatureInformation: Pointer;
function MsiGetFileSignatureInformation;
begin
GetProcedureAddress(_MsiGetFileSignatureInformation, msilib, 'MsiGetFileSignatureInformationA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetFileSignatureInformation]
end;
end;
{$ELSE}
function MsiGetFileSignatureInformation; external msilib name 'MsiGetFileSignatureInformationA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF WIN32_MSI_110}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetShortcutTargetA: Pointer;
function MsiGetShortcutTargetA;
begin
GetProcedureAddress(_MsiGetShortcutTargetA, msilib, 'MsiGetShortcutTargetA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetShortcutTargetA]
end;
end;
{$ELSE}
function MsiGetShortcutTargetA; external msilib name 'MsiGetShortcutTargetA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetShortcutTargetW: Pointer;
function MsiGetShortcutTargetW;
begin
GetProcedureAddress(_MsiGetShortcutTargetW, msilib, 'MsiGetShortcutTargetW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetShortcutTargetW]
end;
end;
{$ELSE}
function MsiGetShortcutTargetW; external msilib name 'MsiGetShortcutTargetW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetShortcutTarget: Pointer;
function MsiGetShortcutTarget;
begin
GetProcedureAddress(_MsiGetShortcutTarget, msilib, 'MsiGetShortcutTargetW');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetShortcutTarget]
end;
end;
{$ELSE}
function MsiGetShortcutTarget; external msilib name 'MsiGetShortcutTargetW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiGetShortcutTarget: Pointer;
function MsiGetShortcutTarget;
begin
GetProcedureAddress(_MsiGetShortcutTarget, msilib, 'MsiGetShortcutTargetA');
asm
mov esp, ebp
pop ebp
jmp [_MsiGetShortcutTarget]
end;
end;
{$ELSE}
function MsiGetShortcutTarget; external msilib name 'MsiGetShortcutTargetA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MsiIsProductElevatedA: Pointer;
function MsiIsProductElevatedA;
begin
GetProcedureAddress(_MsiIsProductElevatedA, msilib, 'MsiIsProductElevatedA');
asm
mov esp, ebp
pop ebp
jmp [_MsiIsProductElevatedA]
end;
end;
{$ELSE}
function MsiIsProductElevatedA; external msilib name 'MsiIsProductElevatedA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsiIsProductElevatedW: Pointer;
function MsiIsProductElevatedW;
begin
GetProcedureAddress(_MsiIsProductElevatedW, msilib, 'MsiIsProductElevatedW');
asm
mov esp, ebp
pop ebp
jmp [_MsiIsProductElevatedW]
end;
end;
{$ELSE}
function MsiIsProductElevatedW; external msilib name 'MsiIsProductElevatedW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MsiIsProductElevated: Pointer;
function MsiIsProductElevated;
begin
GetProcedureAddress(_MsiIsProductElevated, msilib, 'MsiIsProductElevatedW');
asm
mov esp, ebp
pop ebp
jmp [_MsiIsProductElevated]
end;
end;
{$ELSE}
function MsiIsProductElevated; external msilib name 'MsiIsProductElevatedW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MsiIsProductElevated: Pointer;
function MsiIsProductElevated;
begin
GetProcedureAddress(_MsiIsProductElevated, msilib, 'MsiIsProductElevatedA');
asm
mov esp, ebp
pop ebp
jmp [_MsiIsProductElevated]
end;
end;
{$ELSE}
function MsiIsProductElevated; external msilib name 'MsiIsProductElevatedA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
end.