Windows编程

开发平台：

Delphi

JwaWinCrypt.pas：源码内容

begin
GetProcedureAddress(_CertVerifySubjectCertContext, crypt32, 'CertVerifySubjectCertificateContext');
asm
mov esp, ebp
pop ebp
jmp [_CertVerifySubjectCertContext]
end;
end;
{$ELSE}
function CertVerifySubjectCertificateContext; external crypt32 name 'CertVerifySubjectCertificateContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertDuplicateCertificateContext: Pointer;
function CertDuplicateCertificateContext;
begin
GetProcedureAddress(_CertDuplicateCertificateContext, crypt32, 'CertDuplicateCertificateContext');
asm
mov esp, ebp
pop ebp
jmp [_CertDuplicateCertificateContext]
end;
end;
{$ELSE}
function CertDuplicateCertificateContext; external crypt32 name 'CertDuplicateCertificateContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertCreateCertificateContext: Pointer;
function CertCreateCertificateContext;
begin
GetProcedureAddress(_CertCreateCertificateContext, crypt32, 'CertCreateCertificateContext');
asm
mov esp, ebp
pop ebp
jmp [_CertCreateCertificateContext]
end;
end;
{$ELSE}
function CertCreateCertificateContext; external crypt32 name 'CertCreateCertificateContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertFreeCertificateContext: Pointer;
function CertFreeCertificateContext;
begin
GetProcedureAddress(_CertFreeCertificateContext, crypt32, 'CertFreeCertificateContext');
asm
mov esp, ebp
pop ebp
jmp [_CertFreeCertificateContext]
end;
end;
{$ELSE}
function CertFreeCertificateContext; external crypt32 name 'CertFreeCertificateContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertSetCertContextProperty: Pointer;
function CertSetCertificateContextProperty;
begin
GetProcedureAddress(_CertSetCertContextProperty, crypt32, 'CertSetCertificateContextProperty');
asm
mov esp, ebp
pop ebp
jmp [_CertSetCertContextProperty]
end;
end;
{$ELSE}
function CertSetCertificateContextProperty; external crypt32 name 'CertSetCertificateContextProperty';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertGetCertContextProperty: Pointer;
function CertGetCertificateContextProperty;
begin
GetProcedureAddress(_CertGetCertContextProperty, crypt32, 'CertGetCertificateContextProperty');
asm
mov esp, ebp
pop ebp
jmp [_CertGetCertContextProperty]
end;
end;
{$ELSE}
function CertGetCertificateContextProperty; external crypt32 name 'CertGetCertificateContextProperty';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertEnumCertContextProperties: Pointer;
function CertEnumCertificateContextProperties;
begin
GetProcedureAddress(_CertEnumCertContextProperties, crypt32, 'CertEnumCertificateContextProperties');
asm
mov esp, ebp
pop ebp
jmp [_CertEnumCertContextProperties]
end;
end;
{$ELSE}
function CertEnumCertificateContextProperties; external crypt32 name 'CertEnumCertificateContextProperties';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertGetCRLFromStore: Pointer;
function CertGetCRLFromStore;
begin
GetProcedureAddress(_CertGetCRLFromStore, crypt32, 'CertGetCRLFromStore');
asm
mov esp, ebp
pop ebp
jmp [_CertGetCRLFromStore]
end;
end;
{$ELSE}
function CertGetCRLFromStore; external crypt32 name 'CertGetCRLFromStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertEnumCRLsInStore: Pointer;
function CertEnumCRLsInStore;
begin
GetProcedureAddress(_CertEnumCRLsInStore, crypt32, 'CertEnumCRLsInStore');
asm
mov esp, ebp
pop ebp
jmp [_CertEnumCRLsInStore]
end;
end;
{$ELSE}
function CertEnumCRLsInStore; external crypt32 name 'CertEnumCRLsInStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertFindCRLInStore: Pointer;
function CertFindCRLInStore;
begin
GetProcedureAddress(_CertFindCRLInStore, crypt32, 'CertFindCRLInStore');
asm
mov esp, ebp
pop ebp
jmp [_CertFindCRLInStore]
end;
end;
{$ELSE}
function CertFindCRLInStore; external crypt32 name 'CertFindCRLInStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertDuplicateCRLContext: Pointer;
function CertDuplicateCRLContext;
begin
GetProcedureAddress(_CertDuplicateCRLContext, crypt32, 'CertDuplicateCRLContext');
asm
mov esp, ebp
pop ebp
jmp [_CertDuplicateCRLContext]
end;
end;
{$ELSE}
function CertDuplicateCRLContext; external crypt32 name 'CertDuplicateCRLContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertCreateCRLContext: Pointer;
function CertCreateCRLContext;
begin
GetProcedureAddress(_CertCreateCRLContext, crypt32, 'CertCreateCRLContext');
asm
mov esp, ebp
pop ebp
jmp [_CertCreateCRLContext]
end;
end;
{$ELSE}
function CertCreateCRLContext; external crypt32 name 'CertCreateCRLContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertFreeCRLContext: Pointer;
function CertFreeCRLContext;
begin
GetProcedureAddress(_CertFreeCRLContext, crypt32, 'CertFreeCRLContext');
asm
mov esp, ebp
pop ebp
jmp [_CertFreeCRLContext]
end;
end;
{$ELSE}
function CertFreeCRLContext; external crypt32 name 'CertFreeCRLContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertSetCRLContextProperty: Pointer;
function CertSetCRLContextProperty;
begin
GetProcedureAddress(_CertSetCRLContextProperty, crypt32, 'CertSetCRLContextProperty');
asm
mov esp, ebp
pop ebp
jmp [_CertSetCRLContextProperty]
end;
end;
{$ELSE}
function CertSetCRLContextProperty; external crypt32 name 'CertSetCRLContextProperty';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertGetCRLContextProperty: Pointer;
function CertGetCRLContextProperty;
begin
GetProcedureAddress(_CertGetCRLContextProperty, crypt32, 'CertGetCRLContextProperty');
asm
mov esp, ebp
pop ebp
jmp [_CertGetCRLContextProperty]
end;
end;
{$ELSE}
function CertGetCRLContextProperty; external crypt32 name 'CertGetCRLContextProperty';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertEnumCRLContextProperties: Pointer;
function CertEnumCRLContextProperties;
begin
GetProcedureAddress(_CertEnumCRLContextProperties, crypt32, 'CertEnumCRLContextProperties');
asm
mov esp, ebp
pop ebp
jmp [_CertEnumCRLContextProperties]
end;
end;
{$ELSE}
function CertEnumCRLContextProperties; external crypt32 name 'CertEnumCRLContextProperties';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertFindCertificateInCRL: Pointer;
function CertFindCertificateInCRL;
begin
GetProcedureAddress(_CertFindCertificateInCRL, crypt32, 'CertFindCertificateInCRL');
asm
mov esp, ebp
pop ebp
jmp [_CertFindCertificateInCRL]
end;
end;
{$ELSE}
function CertFindCertificateInCRL; external crypt32 name 'CertFindCertificateInCRL';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertAddEncodedCertToStore: Pointer;
function CertAddEncodedCertificateToStore;
begin
GetProcedureAddress(_CertAddEncodedCertToStore, crypt32, 'CertAddEncodedCertificateToStore');
asm
mov esp, ebp
pop ebp
jmp [_CertAddEncodedCertToStore]
end;
end;
{$ELSE}
function CertAddEncodedCertificateToStore; external crypt32 name 'CertAddEncodedCertificateToStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertAddCertContextToStore: Pointer;
function CertAddCertificateContextToStore;
begin
GetProcedureAddress(_CertAddCertContextToStore, crypt32, 'CertAddCertificateContextToStore');
asm
mov esp, ebp
pop ebp
jmp [_CertAddCertContextToStore]
end;
end;
{$ELSE}
function CertAddCertificateContextToStore; external crypt32 name 'CertAddCertificateContextToStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertAddSerializedElementToStore: Pointer;
function CertAddSerializedElementToStore;
begin
GetProcedureAddress(_CertAddSerializedElementToStore, crypt32, 'CertAddSerializedElementToStore');
asm
mov esp, ebp
pop ebp
jmp [_CertAddSerializedElementToStore]
end;
end;
{$ELSE}
function CertAddSerializedElementToStore; external crypt32 name 'CertAddSerializedElementToStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertDeleteCertificateFromStore: Pointer;
function CertDeleteCertificateFromStore;
begin
GetProcedureAddress(_CertDeleteCertificateFromStore, crypt32, 'CertDeleteCertificateFromStore');
asm
mov esp, ebp
pop ebp
jmp [_CertDeleteCertificateFromStore]
end;
end;
{$ELSE}
function CertDeleteCertificateFromStore; external crypt32 name 'CertDeleteCertificateFromStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertAddEncodedCRLToStore: Pointer;
function CertAddEncodedCRLToStore;
begin
GetProcedureAddress(_CertAddEncodedCRLToStore, crypt32, 'CertAddEncodedCRLToStore');
asm
mov esp, ebp
pop ebp
jmp [_CertAddEncodedCRLToStore]
end;
end;
{$ELSE}
function CertAddEncodedCRLToStore; external crypt32 name 'CertAddEncodedCRLToStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertAddCRLContextToStore: Pointer;
function CertAddCRLContextToStore;
begin
GetProcedureAddress(_CertAddCRLContextToStore, crypt32, 'CertAddCRLContextToStore');
asm
mov esp, ebp
pop ebp
jmp [_CertAddCRLContextToStore]
end;
end;
{$ELSE}
function CertAddCRLContextToStore; external crypt32 name 'CertAddCRLContextToStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertDeleteCRLFromStore: Pointer;
function CertDeleteCRLFromStore;
begin
GetProcedureAddress(_CertDeleteCRLFromStore, crypt32, 'CertDeleteCRLFromStore');
asm
mov esp, ebp
pop ebp
jmp [_CertDeleteCRLFromStore]
end;
end;
{$ELSE}
function CertDeleteCRLFromStore; external crypt32 name 'CertDeleteCRLFromStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertSerializeCertStoreElement: Pointer;
function CertSerializeCertificateStoreElement;
begin
GetProcedureAddress(_CertSerializeCertStoreElement, crypt32, 'CertSerializeCertificateStoreElement');
asm
mov esp, ebp
pop ebp
jmp [_CertSerializeCertStoreElement]
end;
end;
{$ELSE}
function CertSerializeCertificateStoreElement; external crypt32 name 'CertSerializeCertificateStoreElement';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertSerializeCRLStoreElement: Pointer;
function CertSerializeCRLStoreElement;
begin
GetProcedureAddress(_CertSerializeCRLStoreElement, crypt32, 'CertSerializeCRLStoreElement');
asm
mov esp, ebp
pop ebp
jmp [_CertSerializeCRLStoreElement]
end;
end;
{$ELSE}
function CertSerializeCRLStoreElement; external crypt32 name 'CertSerializeCRLStoreElement';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertDuplicateCTLContext: Pointer;
function CertDuplicateCTLContext;
begin
GetProcedureAddress(_CertDuplicateCTLContext, crypt32, 'CertDuplicateCTLContext');
asm
mov esp, ebp
pop ebp
jmp [_CertDuplicateCTLContext]
end;
end;
{$ELSE}
function CertDuplicateCTLContext; external crypt32 name 'CertDuplicateCTLContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertCreateCTLContext: Pointer;
function CertCreateCTLContext;
begin
GetProcedureAddress(_CertCreateCTLContext, crypt32, 'CertCreateCTLContext');
asm
mov esp, ebp
pop ebp
jmp [_CertCreateCTLContext]
end;
end;
{$ELSE}
function CertCreateCTLContext; external crypt32 name 'CertCreateCTLContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertFreeCTLContext: Pointer;
function CertFreeCTLContext;
begin
GetProcedureAddress(_CertFreeCTLContext, crypt32, 'CertFreeCTLContext');
asm
mov esp, ebp
pop ebp
jmp [_CertFreeCTLContext]
end;
end;
{$ELSE}
function CertFreeCTLContext; external crypt32 name 'CertFreeCTLContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertSetCTLContextProperty: Pointer;
function CertSetCTLContextProperty;
begin
GetProcedureAddress(_CertSetCTLContextProperty, crypt32, 'CertSetCTLContextProperty');
asm
mov esp, ebp
pop ebp
jmp [_CertSetCTLContextProperty]
end;
end;
{$ELSE}
function CertSetCTLContextProperty; external crypt32 name 'CertSetCTLContextProperty';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertGetCTLContextProperty: Pointer;
function CertGetCTLContextProperty;
begin
GetProcedureAddress(_CertGetCTLContextProperty, crypt32, 'CertGetCTLContextProperty');
asm
mov esp, ebp
pop ebp
jmp [_CertGetCTLContextProperty]
end;
end;
{$ELSE}
function CertGetCTLContextProperty; external crypt32 name 'CertGetCTLContextProperty';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertEnumCTLContextProperties: Pointer;
function CertEnumCTLContextProperties;
begin
GetProcedureAddress(_CertEnumCTLContextProperties, crypt32, 'CertEnumCTLContextProperties');
asm
mov esp, ebp
pop ebp
jmp [_CertEnumCTLContextProperties]
end;
end;
{$ELSE}
function CertEnumCTLContextProperties; external crypt32 name 'CertEnumCTLContextProperties';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertEnumCTLsInStore: Pointer;
function CertEnumCTLsInStore;
begin
GetProcedureAddress(_CertEnumCTLsInStore, crypt32, 'CertEnumCTLsInStore');
asm
mov esp, ebp
pop ebp
jmp [_CertEnumCTLsInStore]
end;
end;
{$ELSE}
function CertEnumCTLsInStore; external crypt32 name 'CertEnumCTLsInStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertFindSubjectInCTL: Pointer;
function CertFindSubjectInCTL;
begin
GetProcedureAddress(_CertFindSubjectInCTL, crypt32, 'CertFindSubjectInCTL');
asm
mov esp, ebp
pop ebp
jmp [_CertFindSubjectInCTL]
end;
end;
{$ELSE}
function CertFindSubjectInCTL; external crypt32 name 'CertFindSubjectInCTL';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertFindCTLInStore: Pointer;
function CertFindCTLInStore;
begin
GetProcedureAddress(_CertFindCTLInStore, crypt32, 'CertFindCTLInStore');
asm
mov esp, ebp
pop ebp
jmp [_CertFindCTLInStore]
end;
end;
{$ELSE}
function CertFindCTLInStore; external crypt32 name 'CertFindCTLInStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertAddEncodedCTLToStore: Pointer;
function CertAddEncodedCTLToStore;
begin
GetProcedureAddress(_CertAddEncodedCTLToStore, crypt32, 'CertAddEncodedCTLToStore');
asm
mov esp, ebp
pop ebp
jmp [_CertAddEncodedCTLToStore]
end;
end;
{$ELSE}
function CertAddEncodedCTLToStore; external crypt32 name 'CertAddEncodedCTLToStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertAddCTLContextToStore: Pointer;
function CertAddCTLContextToStore;
begin
GetProcedureAddress(_CertAddCTLContextToStore, crypt32, 'CertAddCTLContextToStore');
asm
mov esp, ebp
pop ebp
jmp [_CertAddCTLContextToStore]
end;
end;
{$ELSE}
function CertAddCTLContextToStore; external crypt32 name 'CertAddCTLContextToStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertSerializeCTLStoreElement: Pointer;
function CertSerializeCTLStoreElement;
begin
GetProcedureAddress(_CertSerializeCTLStoreElement, crypt32, 'CertSerializeCTLStoreElement');
asm
mov esp, ebp
pop ebp
jmp [_CertSerializeCTLStoreElement]
end;
end;
{$ELSE}
function CertSerializeCTLStoreElement; external crypt32 name 'CertSerializeCTLStoreElement';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertDeleteCTLFromStore: Pointer;
function CertDeleteCTLFromStore;
begin
GetProcedureAddress(_CertDeleteCTLFromStore, crypt32, 'CertDeleteCTLFromStore');
asm
mov esp, ebp
pop ebp
jmp [_CertDeleteCTLFromStore]
end;
end;
{$ELSE}
function CertDeleteCTLFromStore; external crypt32 name 'CertDeleteCTLFromStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertAddCertificateLinkToStore: Pointer;
function CertAddCertificateLinkToStore;
begin
GetProcedureAddress(_CertAddCertificateLinkToStore, crypt32, 'CertAddCertificateLinkToStore');
asm
mov esp, ebp
pop ebp
jmp [_CertAddCertificateLinkToStore]
end;
end;
{$ELSE}
function CertAddCertificateLinkToStore; external crypt32 name 'CertAddCertificateLinkToStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertAddCRLLinkToStore: Pointer;
function CertAddCRLLinkToStore;
begin
GetProcedureAddress(_CertAddCRLLinkToStore, crypt32, 'CertAddCRLLinkToStore');
asm
mov esp, ebp
pop ebp
jmp [_CertAddCRLLinkToStore]
end;
end;
{$ELSE}
function CertAddCRLLinkToStore; external crypt32 name 'CertAddCRLLinkToStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertAddCTLLinkToStore: Pointer;
function CertAddCTLLinkToStore;
begin
GetProcedureAddress(_CertAddCTLLinkToStore, crypt32, 'CertAddCTLLinkToStore');
asm
mov esp, ebp
pop ebp
jmp [_CertAddCTLLinkToStore]
end;
end;
{$ELSE}
function CertAddCTLLinkToStore; external crypt32 name 'CertAddCTLLinkToStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertAddStoreToCollection: Pointer;
function CertAddStoreToCollection;
begin
GetProcedureAddress(_CertAddStoreToCollection, crypt32, 'CertAddStoreToCollection');
asm
mov esp, ebp
pop ebp
jmp [_CertAddStoreToCollection]
end;
end;
{$ELSE}
function CertAddStoreToCollection; external crypt32 name 'CertAddStoreToCollection';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertRemoveStoreFromCollection: Pointer;
procedure CertRemoveStoreFromCollection;
begin
GetProcedureAddress(_CertRemoveStoreFromCollection, crypt32, 'CertRemoveStoreFromCollection');
asm
mov esp, ebp
pop ebp
jmp [_CertRemoveStoreFromCollection]
end;
end;
{$ELSE}
procedure CertRemoveStoreFromCollection; external crypt32 name 'CertRemoveStoreFromCollection';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertControlStore: Pointer;
function CertControlStore;
begin
GetProcedureAddress(_CertControlStore, crypt32, 'CertControlStore');
asm
mov esp, ebp
pop ebp
jmp [_CertControlStore]
end;
end;
{$ELSE}
function CertControlStore; external crypt32 name 'CertControlStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertSetStoreProperty: Pointer;
function CertSetStoreProperty;
begin
GetProcedureAddress(_CertSetStoreProperty, crypt32, 'CertSetStoreProperty');
asm
mov esp, ebp
pop ebp
jmp [_CertSetStoreProperty]
end;
end;
{$ELSE}
function CertSetStoreProperty; external crypt32 name 'CertSetStoreProperty';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertGetStoreProperty: Pointer;
function CertGetStoreProperty;
begin
GetProcedureAddress(_CertGetStoreProperty, crypt32, 'CertGetStoreProperty');
asm
mov esp, ebp
pop ebp
jmp [_CertGetStoreProperty]
end;
end;
{$ELSE}
function CertGetStoreProperty; external crypt32 name 'CertGetStoreProperty';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertCreateContext: Pointer;
function CertCreateContext;
begin
GetProcedureAddress(_CertCreateContext, crypt32, 'CertCreateContext');
asm
mov esp, ebp
pop ebp
jmp [_CertCreateContext]
end;
end;
{$ELSE}
function CertCreateContext; external crypt32 name 'CertCreateContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertRegisterSystemStore: Pointer;
function CertRegisterSystemStore;
begin
GetProcedureAddress(_CertRegisterSystemStore, crypt32, 'CertRegisterSystemStore');
asm
mov esp, ebp
pop ebp
jmp [_CertRegisterSystemStore]
end;
end;
{$ELSE}
function CertRegisterSystemStore; external crypt32 name 'CertRegisterSystemStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertRegisterPhysicalStore: Pointer;
function CertRegisterPhysicalStore;
begin
GetProcedureAddress(_CertRegisterPhysicalStore, crypt32, 'CertRegisterPhysicalStore');
asm
mov esp, ebp
pop ebp
jmp [_CertRegisterPhysicalStore]
end;
end;
{$ELSE}
function CertRegisterPhysicalStore; external crypt32 name 'CertRegisterPhysicalStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertUnregisterSystemStore: Pointer;
function CertUnregisterSystemStore;
begin
GetProcedureAddress(_CertUnregisterSystemStore, crypt32, 'CertUnregisterSystemStore');
asm
mov esp, ebp
pop ebp
jmp [_CertUnregisterSystemStore]
end;
end;
{$ELSE}
function CertUnregisterSystemStore; external crypt32 name 'CertUnregisterSystemStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertUnregisterPhysicalStore: Pointer;
function CertUnregisterPhysicalStore;
begin
GetProcedureAddress(_CertUnregisterPhysicalStore, crypt32, 'CertUnregisterPhysicalStore');
asm
mov esp, ebp
pop ebp
jmp [_CertUnregisterPhysicalStore]
end;
end;
{$ELSE}
function CertUnregisterPhysicalStore; external crypt32 name 'CertUnregisterPhysicalStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertEnumSystemStoreLocation: Pointer;
function CertEnumSystemStoreLocation;
begin
GetProcedureAddress(_CertEnumSystemStoreLocation, crypt32, 'CertEnumSystemStoreLocation');
asm
mov esp, ebp
pop ebp
jmp [_CertEnumSystemStoreLocation]
end;
end;
{$ELSE}
function CertEnumSystemStoreLocation; external crypt32 name 'CertEnumSystemStoreLocation';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertEnumSystemStore: Pointer;
function CertEnumSystemStore;
begin
GetProcedureAddress(_CertEnumSystemStore, crypt32, 'CertEnumSystemStore');
asm
mov esp, ebp
pop ebp
jmp [_CertEnumSystemStore]
end;
end;
{$ELSE}
function CertEnumSystemStore; external crypt32 name 'CertEnumSystemStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertEnumPhysicalStore: Pointer;
function CertEnumPhysicalStore;
begin
GetProcedureAddress(_CertEnumPhysicalStore, crypt32, 'CertEnumPhysicalStore');
asm
mov esp, ebp
pop ebp
jmp [_CertEnumPhysicalStore]
end;
end;
{$ELSE}
function CertEnumPhysicalStore; external crypt32 name 'CertEnumPhysicalStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertGetEnhancedKeyUsage: Pointer;
function CertGetEnhancedKeyUsage;
begin
GetProcedureAddress(_CertGetEnhancedKeyUsage, crypt32, 'CertGetEnhancedKeyUsage');
asm
mov esp, ebp
pop ebp
jmp [_CertGetEnhancedKeyUsage]
end;
end;
{$ELSE}
function CertGetEnhancedKeyUsage; external crypt32 name 'CertGetEnhancedKeyUsage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertSetEnhancedKeyUsage: Pointer;
function CertSetEnhancedKeyUsage;
begin
GetProcedureAddress(_CertSetEnhancedKeyUsage, crypt32, 'CertSetEnhancedKeyUsage');
asm
mov esp, ebp
pop ebp
jmp [_CertSetEnhancedKeyUsage]
end;
end;
{$ELSE}
function CertSetEnhancedKeyUsage; external crypt32 name 'CertSetEnhancedKeyUsage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertAddEnhKeyUsageIdentifier: Pointer;
function CertAddEnhancedKeyUsageIdentifier;
begin
GetProcedureAddress(_CertAddEnhKeyUsageIdentifier, crypt32, 'CertAddEnhancedKeyUsageIdentifier');
asm
mov esp, ebp
pop ebp
jmp [_CertAddEnhKeyUsageIdentifier]
end;
end;
{$ELSE}
function CertAddEnhancedKeyUsageIdentifier; external crypt32 name 'CertAddEnhancedKeyUsageIdentifier';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertRemoveEnhKeyUsageIdent: Pointer;
function CertRemoveEnhancedKeyUsageIdentifier;
begin
GetProcedureAddress(_CertRemoveEnhKeyUsageIdent, crypt32, 'CertRemoveEnhancedKeyUsageIdentifier');
asm
mov esp, ebp
pop ebp
jmp [_CertRemoveEnhKeyUsageIdent]
end;
end;
{$ELSE}
function CertRemoveEnhancedKeyUsageIdentifier; external crypt32 name 'CertRemoveEnhancedKeyUsageIdentifier';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertGetValidUsages: Pointer;
function CertGetValidUsages;
begin
GetProcedureAddress(_CertGetValidUsages, crypt32, 'CertGetValidUsages');
asm
mov esp, ebp
pop ebp
jmp [_CertGetValidUsages]
end;
end;
{$ELSE}
function CertGetValidUsages; external crypt32 name 'CertGetValidUsages';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptMsgGetAndVerifySigner: Pointer;
function CryptMsgGetAndVerifySigner;
begin
GetProcedureAddress(_CryptMsgGetAndVerifySigner, crypt32, 'CryptMsgGetAndVerifySigner');
asm
mov esp, ebp
pop ebp
jmp [_CryptMsgGetAndVerifySigner]
end;
end;
{$ELSE}
function CryptMsgGetAndVerifySigner; external crypt32 name 'CryptMsgGetAndVerifySigner';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptMsgSignCTL: Pointer;
function CryptMsgSignCTL;
begin
GetProcedureAddress(_CryptMsgSignCTL, crypt32, 'CryptMsgSignCTL');
asm
mov esp, ebp
pop ebp
jmp [_CryptMsgSignCTL]
end;
end;
{$ELSE}
function CryptMsgSignCTL; external crypt32 name 'CryptMsgSignCTL';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptMsgEncodeAndSignCTL: Pointer;
function CryptMsgEncodeAndSignCTL;
begin
GetProcedureAddress(_CryptMsgEncodeAndSignCTL, crypt32, 'CryptMsgEncodeAndSignCTL');
asm
mov esp, ebp
pop ebp
jmp [_CryptMsgEncodeAndSignCTL]
end;
end;
{$ELSE}
function CryptMsgEncodeAndSignCTL; external crypt32 name 'CryptMsgEncodeAndSignCTL';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertFindSubjectInSortedCTL: Pointer;
function CertFindSubjectInSortedCTL;
begin
GetProcedureAddress(_CertFindSubjectInSortedCTL, crypt32, 'CertFindSubjectInSortedCTL');
asm
mov esp, ebp
pop ebp
jmp [_CertFindSubjectInSortedCTL]
end;
end;
{$ELSE}
function CertFindSubjectInSortedCTL; external crypt32 name 'CertFindSubjectInSortedCTL';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertEnumSubjectInSortedCTL: Pointer;
function CertEnumSubjectInSortedCTL;
begin
GetProcedureAddress(_CertEnumSubjectInSortedCTL, crypt32, 'CertEnumSubjectInSortedCTL');
asm
mov esp, ebp
pop ebp
jmp [_CertEnumSubjectInSortedCTL]
end;
end;
{$ELSE}
function CertEnumSubjectInSortedCTL; external crypt32 name 'CertEnumSubjectInSortedCTL';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertVerifyCTLUsage: Pointer;
function CertVerifyCTLUsage;
begin
GetProcedureAddress(_CertVerifyCTLUsage, crypt32, 'CertVerifyCTLUsage');
asm
mov esp, ebp
pop ebp
jmp [_CertVerifyCTLUsage]
end;
end;
{$ELSE}
function CertVerifyCTLUsage; external crypt32 name 'CertVerifyCTLUsage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertVerifyRevocation: Pointer;
function CertVerifyRevocation;
begin
GetProcedureAddress(_CertVerifyRevocation, crypt32, 'CertVerifyRevocation');
asm
mov esp, ebp
pop ebp
jmp [_CertVerifyRevocation]
end;
end;
{$ELSE}
function CertVerifyRevocation; external crypt32 name 'CertVerifyRevocation';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertCompareIntegerBlob: Pointer;
function CertCompareIntegerBlob;
begin
GetProcedureAddress(_CertCompareIntegerBlob, crypt32, 'CertCompareIntegerBlob');
asm
mov esp, ebp
pop ebp
jmp [_CertCompareIntegerBlob]
end;
end;
{$ELSE}
function CertCompareIntegerBlob; external crypt32 name 'CertCompareIntegerBlob';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertCompareCertificate: Pointer;
function CertCompareCertificate;
begin
GetProcedureAddress(_CertCompareCertificate, crypt32, 'CertCompareCertificate');
asm
mov esp, ebp
pop ebp
jmp [_CertCompareCertificate]
end;
end;
{$ELSE}
function CertCompareCertificate; external crypt32 name 'CertCompareCertificate';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertCompareCertificateName: Pointer;
function CertCompareCertificateName;
begin
GetProcedureAddress(_CertCompareCertificateName, crypt32, 'CertCompareCertificateName');
asm
mov esp, ebp
pop ebp
jmp [_CertCompareCertificateName]
end;
end;
{$ELSE}
function CertCompareCertificateName; external crypt32 name 'CertCompareCertificateName';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertIsRDNAttrsInCertificateName: Pointer;
function CertIsRDNAttrsInCertificateName;
begin
GetProcedureAddress(_CertIsRDNAttrsInCertificateName, crypt32, 'CertIsRDNAttrsInCertificateName');
asm
mov esp, ebp
pop ebp
jmp [_CertIsRDNAttrsInCertificateName]
end;
end;
{$ELSE}
function CertIsRDNAttrsInCertificateName; external crypt32 name 'CertIsRDNAttrsInCertificateName';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertComparePublicKeyInfo: Pointer;
function CertComparePublicKeyInfo;
begin
GetProcedureAddress(_CertComparePublicKeyInfo, crypt32, 'CertComparePublicKeyInfo');
asm
mov esp, ebp
pop ebp
jmp [_CertComparePublicKeyInfo]
end;
end;
{$ELSE}
function CertComparePublicKeyInfo; external crypt32 name 'CertComparePublicKeyInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertGetPublicKeyLength: Pointer;
function CertGetPublicKeyLength;
begin
GetProcedureAddress(_CertGetPublicKeyLength, crypt32, 'CertGetPublicKeyLength');
asm
mov esp, ebp
pop ebp
jmp [_CertGetPublicKeyLength]
end;
end;
{$ELSE}
function CertGetPublicKeyLength; external crypt32 name 'CertGetPublicKeyLength';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptVerifyCertificateSignature: Pointer;
function CryptVerifyCertificateSignature;
begin
GetProcedureAddress(_CryptVerifyCertificateSignature, crypt32, 'CryptVerifyCertificateSignature');
asm
mov esp, ebp
pop ebp
jmp [_CryptVerifyCertificateSignature]
end;
end;
{$ELSE}
function CryptVerifyCertificateSignature; external crypt32 name 'CryptVerifyCertificateSignature';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptVerifyCertSignatureEx: Pointer;
function CryptVerifyCertificateSignatureEx;
begin
GetProcedureAddress(_CryptVerifyCertSignatureEx, crypt32, 'CryptVerifyCertificateSignatureEx');
asm
mov esp, ebp
pop ebp
jmp [_CryptVerifyCertSignatureEx]
end;
end;
{$ELSE}
function CryptVerifyCertificateSignatureEx; external crypt32 name 'CryptVerifyCertificateSignatureEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptHashToBeSigned: Pointer;
function CryptHashToBeSigned;
begin
GetProcedureAddress(_CryptHashToBeSigned, crypt32, 'CryptHashToBeSigned');
asm
mov esp, ebp
pop ebp
jmp [_CryptHashToBeSigned]
end;
end;
{$ELSE}
function CryptHashToBeSigned; external crypt32 name 'CryptHashToBeSigned';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptHashCertificate: Pointer;
function CryptHashCertificate;
begin
GetProcedureAddress(_CryptHashCertificate, crypt32, 'CryptHashCertificate');
asm
mov esp, ebp
pop ebp
jmp [_CryptHashCertificate]
end;
end;
{$ELSE}
function CryptHashCertificate; external crypt32 name 'CryptHashCertificate';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptSignCertificate: Pointer;
function CryptSignCertificate;
begin
GetProcedureAddress(_CryptSignCertificate, crypt32, 'CryptSignCertificate');
asm
mov esp, ebp
pop ebp
jmp [_CryptSignCertificate]
end;
end;
{$ELSE}
function CryptSignCertificate; external crypt32 name 'CryptSignCertificate';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptSignAndEncodeCertificate: Pointer;
function CryptSignAndEncodeCertificate;
begin
GetProcedureAddress(_CryptSignAndEncodeCertificate, crypt32, 'CryptSignAndEncodeCertificate');
asm
mov esp, ebp
pop ebp
jmp [_CryptSignAndEncodeCertificate]
end;
end;
{$ELSE}
function CryptSignAndEncodeCertificate; external crypt32 name 'CryptSignAndEncodeCertificate';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertVerifyTimeValidity: Pointer;
function CertVerifyTimeValidity;
begin
GetProcedureAddress(_CertVerifyTimeValidity, crypt32, 'CertVerifyTimeValidity');
asm
mov esp, ebp
pop ebp
jmp [_CertVerifyTimeValidity]
end;
end;
{$ELSE}
function CertVerifyTimeValidity; external crypt32 name 'CertVerifyTimeValidity';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertVerifyCRLTimeValidity: Pointer;
function CertVerifyCRLTimeValidity;
begin
GetProcedureAddress(_CertVerifyCRLTimeValidity, crypt32, 'CertVerifyCRLTimeValidity');
asm
mov esp, ebp
pop ebp
jmp [_CertVerifyCRLTimeValidity]
end;
end;
{$ELSE}
function CertVerifyCRLTimeValidity; external crypt32 name 'CertVerifyCRLTimeValidity';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertVerifyValidityNesting: Pointer;
function CertVerifyValidityNesting;
begin
GetProcedureAddress(_CertVerifyValidityNesting, crypt32, 'CertVerifyValidityNesting');
asm
mov esp, ebp
pop ebp
jmp [_CertVerifyValidityNesting]
end;
end;
{$ELSE}
function CertVerifyValidityNesting; external crypt32 name 'CertVerifyValidityNesting';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertVerifyCRLRevocation: Pointer;
function CertVerifyCRLRevocation;
begin
GetProcedureAddress(_CertVerifyCRLRevocation, crypt32, 'CertVerifyCRLRevocation');
asm
mov esp, ebp
pop ebp
jmp [_CertVerifyCRLRevocation]
end;
end;
{$ELSE}
function CertVerifyCRLRevocation; external crypt32 name 'CertVerifyCRLRevocation';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertAlgIdToOID: Pointer;
function CertAlgIdToOID;
begin
GetProcedureAddress(_CertAlgIdToOID, crypt32, 'CertAlgIdToOID');
asm
mov esp, ebp
pop ebp
jmp [_CertAlgIdToOID]
end;
end;
{$ELSE}
function CertAlgIdToOID; external crypt32 name 'CertAlgIdToOID';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertOIDToAlgId: Pointer;
function CertOIDToAlgId;
begin
GetProcedureAddress(_CertOIDToAlgId, crypt32, 'CertOIDToAlgId');
asm
mov esp, ebp
pop ebp
jmp [_CertOIDToAlgId]
end;
end;
{$ELSE}
function CertOIDToAlgId; external crypt32 name 'CertOIDToAlgId';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertFindExtension: Pointer;
function CertFindExtension;
begin
GetProcedureAddress(_CertFindExtension, crypt32, 'CertFindExtension');
asm
mov esp, ebp
pop ebp
jmp [_CertFindExtension]
end;
end;
{$ELSE}
function CertFindExtension; external crypt32 name 'CertFindExtension';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertFindAttribute: Pointer;
function CertFindAttribute;
begin
GetProcedureAddress(_CertFindAttribute, crypt32, 'CertFindAttribute');
asm
mov esp, ebp
pop ebp
jmp [_CertFindAttribute]
end;
end;
{$ELSE}
function CertFindAttribute; external crypt32 name 'CertFindAttribute';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertFindRDNAttr: Pointer;
function CertFindRDNAttr;
begin
GetProcedureAddress(_CertFindRDNAttr, crypt32, 'CertFindRDNAttr');
asm
mov esp, ebp
pop ebp
jmp [_CertFindRDNAttr]
end;
end;
{$ELSE}
function CertFindRDNAttr; external crypt32 name 'CertFindRDNAttr';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertGetIntendedKeyUsage: Pointer;
function CertGetIntendedKeyUsage;
begin
GetProcedureAddress(_CertGetIntendedKeyUsage, crypt32, 'CertGetIntendedKeyUsage');
asm
mov esp, ebp
pop ebp
jmp [_CertGetIntendedKeyUsage]
end;
end;
{$ELSE}
function CertGetIntendedKeyUsage; external crypt32 name 'CertGetIntendedKeyUsage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptInstallDefaultContext: Pointer;
function CryptInstallDefaultContext;
begin
GetProcedureAddress(_CryptInstallDefaultContext, crypt32, 'CryptInstallDefaultContext');
asm
mov esp, ebp
pop ebp
jmp [_CryptInstallDefaultContext]
end;
end;
{$ELSE}
function CryptInstallDefaultContext; external crypt32 name 'CryptInstallDefaultContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptUninstallDefaultContext: Pointer;
function CryptUninstallDefaultContext;
begin
GetProcedureAddress(_CryptUninstallDefaultContext, crypt32, 'CryptUninstallDefaultContext');
asm
mov esp, ebp
pop ebp
jmp [_CryptUninstallDefaultContext]
end;
end;
{$ELSE}
function CryptUninstallDefaultContext; external crypt32 name 'CryptUninstallDefaultContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptExportPublicKeyInfo: Pointer;
function CryptExportPublicKeyInfo;
begin
GetProcedureAddress(_CryptExportPublicKeyInfo, crypt32, 'CryptExportPublicKeyInfo');
asm
mov esp, ebp
pop ebp
jmp [_CryptExportPublicKeyInfo]
end;
end;
{$ELSE}
function CryptExportPublicKeyInfo; external crypt32 name 'CryptExportPublicKeyInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptExportPublicKeyInfoEx: Pointer;
function CryptExportPublicKeyInfoEx;
begin
GetProcedureAddress(_CryptExportPublicKeyInfoEx, crypt32, 'CryptExportPublicKeyInfoEx');
asm
mov esp, ebp
pop ebp
jmp [_CryptExportPublicKeyInfoEx]
end;
end;
{$ELSE}
function CryptExportPublicKeyInfoEx; external crypt32 name 'CryptExportPublicKeyInfoEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptImportPublicKeyInfo: Pointer;
function CryptImportPublicKeyInfo;
begin
GetProcedureAddress(_CryptImportPublicKeyInfo, crypt32, 'CryptImportPublicKeyInfo');
asm
mov esp, ebp
pop ebp
jmp [_CryptImportPublicKeyInfo]
end;
end;
{$ELSE}
function CryptImportPublicKeyInfo; external crypt32 name 'CryptImportPublicKeyInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptImportPublicKeyInfoEx: Pointer;
function CryptImportPublicKeyInfoEx;
begin
GetProcedureAddress(_CryptImportPublicKeyInfoEx, crypt32, 'CryptImportPublicKeyInfoEx');
asm
mov esp, ebp
pop ebp
jmp [_CryptImportPublicKeyInfoEx]
end;
end;
{$ELSE}
function CryptImportPublicKeyInfoEx; external crypt32 name 'CryptImportPublicKeyInfoEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptAcquireCertPrivateKey: Pointer;
function CryptAcquireCertificatePrivateKey;
begin
GetProcedureAddress(_CryptAcquireCertPrivateKey, crypt32, 'CryptAcquireCertificatePrivateKey');
asm
mov esp, ebp
pop ebp
jmp [_CryptAcquireCertPrivateKey]
end;
end;
{$ELSE}
function CryptAcquireCertificatePrivateKey; external crypt32 name 'CryptAcquireCertificatePrivateKey';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptFindCertificateKeyProvInfo: Pointer;
function CryptFindCertificateKeyProvInfo;
begin
GetProcedureAddress(_CryptFindCertificateKeyProvInfo, crypt32, 'CryptFindCertificateKeyProvInfo');
asm
mov esp, ebp
pop ebp
jmp [_CryptFindCertificateKeyProvInfo]
end;
end;
{$ELSE}
function CryptFindCertificateKeyProvInfo; external crypt32 name 'CryptFindCertificateKeyProvInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptImportPKCS8: Pointer;
function CryptImportPKCS8;
begin
GetProcedureAddress(_CryptImportPKCS8, crypt32, 'CryptImportPKCS8');
asm
mov esp, ebp
pop ebp
jmp [_CryptImportPKCS8]
end;
end;
{$ELSE}
function CryptImportPKCS8; external crypt32 name 'CryptImportPKCS8';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptExportPKCS8: Pointer;
function CryptExportPKCS8;
begin
GetProcedureAddress(_CryptExportPKCS8, crypt32, 'CryptExportPKCS8');
asm
mov esp, ebp
pop ebp
jmp [_CryptExportPKCS8]
end;
end;
{$ELSE}
function CryptExportPKCS8; external crypt32 name 'CryptExportPKCS8';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptExportPKCS8Ex: Pointer;
function CryptExportPKCS8Ex;
begin
GetProcedureAddress(_CryptExportPKCS8Ex, crypt32, 'CryptExportPKCS8Ex');
asm
mov esp, ebp
pop ebp
jmp [_CryptExportPKCS8Ex]
end;
end;
{$ELSE}
function CryptExportPKCS8Ex; external crypt32 name 'CryptExportPKCS8Ex';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptHashPublicKeyInfo: Pointer;
function CryptHashPublicKeyInfo;
begin
GetProcedureAddress(_CryptHashPublicKeyInfo, crypt32, 'CryptHashPublicKeyInfo');
asm
mov esp, ebp
pop ebp
jmp [_CryptHashPublicKeyInfo]
end;
end;
{$ELSE}
function CryptHashPublicKeyInfo; external crypt32 name 'CryptHashPublicKeyInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertRDNValueToStrA: Pointer;
function CertRDNValueToStrA;
begin
GetProcedureAddress(_CertRDNValueToStrA, crypt32, 'CertRDNValueToStrA');
asm
mov esp, ebp
pop ebp
jmp [_CertRDNValueToStrA]
end;
end;
{$ELSE}
function CertRDNValueToStrA; external crypt32 name 'CertRDNValueToStrA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertRDNValueToStrW: Pointer;
function CertRDNValueToStrW;
begin
GetProcedureAddress(_CertRDNValueToStrW, crypt32, 'CertRDNValueToStrW');
asm
mov esp, ebp
pop ebp
jmp [_CertRDNValueToStrW]
end;
end;
{$ELSE}
function CertRDNValueToStrW; external crypt32 name 'CertRDNValueToStrW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CertRDNValueToStr: Pointer;
function CertRDNValueToStr;
begin
GetProcedureAddress(_CertRDNValueToStr, crypt32, 'CertRDNValueToStrW');
asm
mov esp, ebp
pop ebp
jmp [_CertRDNValueToStr]
end;
end;
{$ELSE}
function CertRDNValueToStr; external crypt32 name 'CertRDNValueToStrW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CertRDNValueToStr: Pointer;
function CertRDNValueToStr;
begin
GetProcedureAddress(_CertRDNValueToStr, crypt32, 'CertRDNValueToStrA');
asm
mov esp, ebp
pop ebp
jmp [_CertRDNValueToStr]
end;
end;
{$ELSE}
function CertRDNValueToStr; external crypt32 name 'CertRDNValueToStrA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CertNameToStrA: Pointer;
function CertNameToStrA;
begin
GetProcedureAddress(_CertNameToStrA, crypt32, 'CertNameToStrA');
asm
mov esp, ebp
pop ebp
jmp [_CertNameToStrA]
end;
end;
{$ELSE}
function CertNameToStrA; external crypt32 name 'CertNameToStrA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertNameToStrW: Pointer;
function CertNameToStrW;
begin
GetProcedureAddress(_CertNameToStrW, crypt32, 'CertNameToStrW');
asm
mov esp, ebp
pop ebp
jmp [_CertNameToStrW]
end;
end;
{$ELSE}
function CertNameToStrW; external crypt32 name 'CertNameToStrW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CertNameToStr: Pointer;
function CertNameToStr;
begin
GetProcedureAddress(_CertNameToStr, crypt32, 'CertNameToStrW');
asm
mov esp, ebp
pop ebp
jmp [_CertNameToStr]
end;
end;
{$ELSE}
function CertNameToStr; external crypt32 name 'CertNameToStrW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CertNameToStr: Pointer;
function CertNameToStr;
begin
GetProcedureAddress(_CertNameToStr, crypt32, 'CertNameToStrA');
asm
mov esp, ebp
pop ebp
jmp [_CertNameToStr]
end;
end;
{$ELSE}
function CertNameToStr; external crypt32 name 'CertNameToStrA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CertStrToNameA: Pointer;
function CertStrToNameA;
begin
GetProcedureAddress(_CertStrToNameA, crypt32, 'CertStrToNameA');
asm
mov esp, ebp
pop ebp
jmp [_CertStrToNameA]
end;
end;
{$ELSE}
function CertStrToNameA; external crypt32 name 'CertStrToNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertStrToNameW: Pointer;
function CertStrToNameW;
begin
GetProcedureAddress(_CertStrToNameW, crypt32, 'CertStrToNameW');
asm
mov esp, ebp
pop ebp
jmp [_CertStrToNameW]
end;
end;
{$ELSE}
function CertStrToNameW; external crypt32 name 'CertStrToNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CertStrToName: Pointer;
function CertStrToName;
begin
GetProcedureAddress(_CertStrToName, crypt32, 'CertStrToNameW');
asm
mov esp, ebp
pop ebp
jmp [_CertStrToName]
end;
end;
{$ELSE}
function CertStrToName; external crypt32 name 'CertStrToNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CertStrToName: Pointer;
function CertStrToName;
begin
GetProcedureAddress(_CertStrToName, crypt32, 'CertStrToNameA');
asm
mov esp, ebp
pop ebp
jmp [_CertStrToName]
end;
end;
{$ELSE}
function CertStrToName; external crypt32 name 'CertStrToNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CertGetNameStringA: Pointer;
function CertGetNameStringA;
begin
GetProcedureAddress(_CertGetNameStringA, crypt32, 'CertGetNameStringA');
asm
mov esp, ebp
pop ebp
jmp [_CertGetNameStringA]
end;
end;
{$ELSE}
function CertGetNameStringA; external crypt32 name 'CertGetNameStringA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertGetNameStringW: Pointer;
function CertGetNameStringW;
begin
GetProcedureAddress(_CertGetNameStringW, crypt32, 'CertGetNameStringW');
asm
mov esp, ebp
pop ebp
jmp [_CertGetNameStringW]
end;
end;
{$ELSE}
function CertGetNameStringW; external crypt32 name 'CertGetNameStringW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CertGetNameString: Pointer;
function CertGetNameString;
begin
GetProcedureAddress(_CertGetNameString, crypt32, 'CertGetNameStringW');
asm
mov esp, ebp
pop ebp
jmp [_CertGetNameString]
end;
end;
{$ELSE}
function CertGetNameString; external crypt32 name 'CertGetNameStringW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CertGetNameString: Pointer;
function CertGetNameString;
begin
GetProcedureAddress(_CertGetNameString, crypt32, 'CertGetNameStringA');
asm
mov esp, ebp
pop ebp
jmp [_CertGetNameString]
end;
end;
{$ELSE}
function CertGetNameString; external crypt32 name 'CertGetNameStringA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CryptSignMessage: Pointer;
function CryptSignMessage;
begin
GetProcedureAddress(_CryptSignMessage, crypt32, 'CryptSignMessage');
asm
mov esp, ebp
pop ebp
jmp [_CryptSignMessage]
end;
end;
{$ELSE}
function CryptSignMessage; external crypt32 name 'CryptSignMessage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptVerifyMessageSignature: Pointer;
function CryptVerifyMessageSignature;
begin
GetProcedureAddress(_CryptVerifyMessageSignature, crypt32, 'CryptVerifyMessageSignature');
asm
mov esp, ebp
pop ebp
jmp [_CryptVerifyMessageSignature]
end;
end;
{$ELSE}
function CryptVerifyMessageSignature; external crypt32 name 'CryptVerifyMessageSignature';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptGetMessageSignerCount: Pointer;
function CryptGetMessageSignerCount;
begin
GetProcedureAddress(_CryptGetMessageSignerCount, crypt32, 'CryptGetMessageSignerCount');
asm
mov esp, ebp
pop ebp
jmp [_CryptGetMessageSignerCount]
end;
end;
{$ELSE}
function CryptGetMessageSignerCount; external crypt32 name 'CryptGetMessageSignerCount';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptGetMessageCertificates: Pointer;
function CryptGetMessageCertificates;
begin
GetProcedureAddress(_CryptGetMessageCertificates, crypt32, 'CryptGetMessageCertificates');
asm
mov esp, ebp
pop ebp
jmp [_CryptGetMessageCertificates]
end;
end;
{$ELSE}
function CryptGetMessageCertificates; external crypt32 name 'CryptGetMessageCertificates';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptVerDetachedMsgSignature: Pointer;
function CryptVerifyDetachedMessageSignature;
begin
GetProcedureAddress(_CryptVerDetachedMsgSignature, crypt32, 'CryptVerifyDetachedMessageSignature');
asm
mov esp, ebp
pop ebp
jmp [_CryptVerDetachedMsgSignature]
end;
end;
{$ELSE}
function CryptVerifyDetachedMessageSignature; external crypt32 name 'CryptVerifyDetachedMessageSignature';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptEncryptMessage: Pointer;
function CryptEncryptMessage;
begin
GetProcedureAddress(_CryptEncryptMessage, crypt32, 'CryptEncryptMessage');
asm
mov esp, ebp
pop ebp
jmp [_CryptEncryptMessage]
end;
end;
{$ELSE}
function CryptEncryptMessage; external crypt32 name 'CryptEncryptMessage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptDecryptMessage: Pointer;
function CryptDecryptMessage;
begin
GetProcedureAddress(_CryptDecryptMessage, crypt32, 'CryptDecryptMessage');
asm
mov esp, ebp
pop ebp
jmp [_CryptDecryptMessage]
end;
end;
{$ELSE}
function CryptDecryptMessage; external crypt32 name 'CryptDecryptMessage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptSignAndEncryptMessage: Pointer;
function CryptSignAndEncryptMessage;
begin
GetProcedureAddress(_CryptSignAndEncryptMessage, crypt32, 'CryptSignAndEncryptMessage');
asm
mov esp, ebp
pop ebp
jmp [_CryptSignAndEncryptMessage]
end;
end;
{$ELSE}
function CryptSignAndEncryptMessage; external crypt32 name 'CryptSignAndEncryptMessage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptDecryptAndVerMsgSig: Pointer;
function CryptDecryptAndVerifyMessageSignature;
begin
GetProcedureAddress(_CryptDecryptAndVerMsgSig, crypt32, 'CryptDecryptAndVerifyMessageSignature');
asm
mov esp, ebp
pop ebp
jmp [_CryptDecryptAndVerMsgSig]
end;
end;
{$ELSE}
function CryptDecryptAndVerifyMessageSignature; external crypt32 name 'CryptDecryptAndVerifyMessageSignature';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptDecodeMessage: Pointer;
function CryptDecodeMessage;
begin
GetProcedureAddress(_CryptDecodeMessage, crypt32, 'CryptDecodeMessage');
asm
mov esp, ebp
pop ebp
jmp [_CryptDecodeMessage]
end;
end;
{$ELSE}
function CryptDecodeMessage; external crypt32 name 'CryptDecodeMessage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptHashMessage: Pointer;
function CryptHashMessage;
begin
GetProcedureAddress(_CryptHashMessage, crypt32, 'CryptHashMessage');
asm
mov esp, ebp
pop ebp
jmp [_CryptHashMessage]
end;
end;
{$ELSE}
function CryptHashMessage; external crypt32 name 'CryptHashMessage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptVerifyMessageHash: Pointer;
function CryptVerifyMessageHash;
begin
GetProcedureAddress(_CryptVerifyMessageHash, crypt32, 'CryptVerifyMessageHash');
asm
mov esp, ebp
pop ebp
jmp [_CryptVerifyMessageHash]
end;
end;
{$ELSE}
function CryptVerifyMessageHash; external crypt32 name 'CryptVerifyMessageHash';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptVerifyDetachedMessageHash: Pointer;
function CryptVerifyDetachedMessageHash;
begin
GetProcedureAddress(_CryptVerifyDetachedMessageHash, crypt32, 'CryptVerifyDetachedMessageHash');
asm
mov esp, ebp
pop ebp
jmp [_CryptVerifyDetachedMessageHash]
end;
end;
{$ELSE}
function CryptVerifyDetachedMessageHash; external crypt32 name 'CryptVerifyDetachedMessageHash';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptSignMessageWithKey: Pointer;
function CryptSignMessageWithKey;
begin
GetProcedureAddress(_CryptSignMessageWithKey, crypt32, 'CryptSignMessageWithKey');
asm
mov esp, ebp
pop ebp
jmp [_CryptSignMessageWithKey]
end;
end;
{$ELSE}
function CryptSignMessageWithKey; external crypt32 name 'CryptSignMessageWithKey';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptVerifyMsgSigWithKey: Pointer;
function CryptVerifyMessageSignatureWithKey;
begin
GetProcedureAddress(_CryptVerifyMsgSigWithKey, crypt32, 'CryptVerifyMessageSignatureWithKey');
asm
mov esp, ebp
pop ebp
jmp [_CryptVerifyMsgSigWithKey]
end;
end;
{$ELSE}
function CryptVerifyMessageSignatureWithKey; external crypt32 name 'CryptVerifyMessageSignatureWithKey';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertOpenSystemStoreA: Pointer;
function CertOpenSystemStoreA;
begin
GetProcedureAddress(_CertOpenSystemStoreA, crypt32, 'CertOpenSystemStoreA');
asm
mov esp, ebp
pop ebp
jmp [_CertOpenSystemStoreA]
end;
end;
{$ELSE}
function CertOpenSystemStoreA; external crypt32 name 'CertOpenSystemStoreA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertOpenSystemStoreW: Pointer;
function CertOpenSystemStoreW;
begin
GetProcedureAddress(_CertOpenSystemStoreW, crypt32, 'CertOpenSystemStoreW');
asm
mov esp, ebp
pop ebp
jmp [_CertOpenSystemStoreW]
end;
end;
{$ELSE}
function CertOpenSystemStoreW; external crypt32 name 'CertOpenSystemStoreW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CertOpenSystemStore: Pointer;
function CertOpenSystemStore;
begin
GetProcedureAddress(_CertOpenSystemStore, crypt32, 'CertOpenSystemStoreW');
asm
mov esp, ebp
pop ebp
jmp [_CertOpenSystemStore]
end;
end;
{$ELSE}
function CertOpenSystemStore; external crypt32 name 'CertOpenSystemStoreW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CertOpenSystemStore: Pointer;
function CertOpenSystemStore;
begin
GetProcedureAddress(_CertOpenSystemStore, crypt32, 'CertOpenSystemStoreA');
asm
mov esp, ebp
pop ebp
jmp [_CertOpenSystemStore]
end;
end;
{$ELSE}
function CertOpenSystemStore; external crypt32 name 'CertOpenSystemStoreA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CertAddEncodedCertToSysStoreA: Pointer;
function CertAddEncodedCertificateToSystemStoreA;
begin
GetProcedureAddress(_CertAddEncodedCertToSysStoreA, crypt32, 'CertAddEncodedCertificateToSystemStoreA');
asm
mov esp, ebp
pop ebp
jmp [_CertAddEncodedCertToSysStoreA]
end;
end;
{$ELSE}
function CertAddEncodedCertificateToSystemStoreA; external crypt32 name 'CertAddEncodedCertificateToSystemStoreA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertAddEncodedCertToSysStoreW: Pointer;
function CertAddEncodedCertificateToSystemStoreW;
begin
GetProcedureAddress(_CertAddEncodedCertToSysStoreW, crypt32, 'CertAddEncodedCertificateToSystemStoreW');
asm
mov esp, ebp
pop ebp
jmp [_CertAddEncodedCertToSysStoreW]
end;
end;
{$ELSE}
function CertAddEncodedCertificateToSystemStoreW; external crypt32 name 'CertAddEncodedCertificateToSystemStoreW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CertAddEncodedCertToSysStore: Pointer;
function CertAddEncodedCertificateToSystemStore;
begin
GetProcedureAddress(_CertAddEncodedCertToSysStore, crypt32, 'CertAddEncodedCertificateToSystemStoreW');
asm
mov esp, ebp
pop ebp
jmp [_CertAddEncodedCertToSysStore]
end;
end;
{$ELSE}
function CertAddEncodedCertificateToSystemStore; external crypt32 name 'CertAddEncodedCertificateToSystemStoreW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CertAddEncodedCertToSysStore: Pointer;
function CertAddEncodedCertificateToSystemStore;
begin
GetProcedureAddress(_CertAddEncodedCertToSysStore, crypt32, 'CertAddEncodedCertificateToSystemStoreA');
asm
mov esp, ebp
pop ebp
jmp [_CertAddEncodedCertToSysStore]
end;
end;
{$ELSE}
function CertAddEncodedCertificateToSystemStore; external crypt32 name 'CertAddEncodedCertificateToSystemStoreA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_FindCertsByIssuer: Pointer;
function FindCertsByIssuer;
begin
GetProcedureAddress(_FindCertsByIssuer, softpub, 'FindCertsByIssuer');
asm
mov esp, ebp
pop ebp
jmp [_FindCertsByIssuer]
end;
end;
{$ELSE}
function FindCertsByIssuer; external softpub name 'FindCertsByIssuer';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptQueryObject: Pointer;
function CryptQueryObject;
begin
GetProcedureAddress(_CryptQueryObject, crypt32, 'CryptQueryObject');
asm
mov esp, ebp
pop ebp
jmp [_CryptQueryObject]
end;
end;
{$ELSE}
function CryptQueryObject; external crypt32 name 'CryptQueryObject';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptMemAlloc: Pointer;
function CryptMemAlloc;
begin
GetProcedureAddress(_CryptMemAlloc, crypt32, 'CryptMemAlloc');
asm
mov esp, ebp
pop ebp
jmp [_CryptMemAlloc]
end;
end;
{$ELSE}
function CryptMemAlloc; external crypt32 name 'CryptMemAlloc';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptMemRealloc: Pointer;
function CryptMemRealloc;
begin
GetProcedureAddress(_CryptMemRealloc, crypt32, 'CryptMemRealloc');
asm
mov esp, ebp
pop ebp
jmp [_CryptMemRealloc]
end;
end;
{$ELSE}
function CryptMemRealloc; external crypt32 name 'CryptMemRealloc';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptMemFree: Pointer;
procedure CryptMemFree;
begin
GetProcedureAddress(_CryptMemFree, crypt32, 'CryptMemFree');
asm
mov esp, ebp
pop ebp
jmp [_CryptMemFree]
end;
end;
{$ELSE}
procedure CryptMemFree; external crypt32 name 'CryptMemFree';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptCreateAsyncHandle: Pointer;
function CryptCreateAsyncHandle;
begin
GetProcedureAddress(_CryptCreateAsyncHandle, crypt32, 'CryptCreateAsyncHandle');
asm
mov esp, ebp
pop ebp
jmp [_CryptCreateAsyncHandle]
end;
end;
{$ELSE}
function CryptCreateAsyncHandle; external crypt32 name 'CryptCreateAsyncHandle';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptSetAsyncParam: Pointer;
function CryptSetAsyncParam;
begin
GetProcedureAddress(_CryptSetAsyncParam, crypt32, 'CryptSetAsyncParam');
asm
mov esp, ebp
pop ebp
jmp [_CryptSetAsyncParam]
end;
end;
{$ELSE}
function CryptSetAsyncParam; external crypt32 name 'CryptSetAsyncParam';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptGetAsyncParam: Pointer;
function CryptGetAsyncParam;
begin
GetProcedureAddress(_CryptGetAsyncParam, crypt32, 'CryptGetAsyncParam');
asm
mov esp, ebp
pop ebp
jmp [_CryptGetAsyncParam]
end;
end;
{$ELSE}
function CryptGetAsyncParam; external crypt32 name 'CryptGetAsyncParam';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptCloseAsyncHandle: Pointer;
function CryptCloseAsyncHandle;
begin
GetProcedureAddress(_CryptCloseAsyncHandle, crypt32, 'CryptCloseAsyncHandle');
asm
mov esp, ebp
pop ebp
jmp [_CryptCloseAsyncHandle]
end;
end;
{$ELSE}
function CryptCloseAsyncHandle; external crypt32 name 'CryptCloseAsyncHandle';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptRetrieveObjectByUrlA: Pointer;
function CryptRetrieveObjectByUrlA;
begin
GetProcedureAddress(_CryptRetrieveObjectByUrlA, crypt32, 'CryptRetrieveObjectByUrlA');
asm
mov esp, ebp
pop ebp
jmp [_CryptRetrieveObjectByUrlA]
end;
end;
{$ELSE}
function CryptRetrieveObjectByUrlA; external crypt32 name 'CryptRetrieveObjectByUrlA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptRetrieveObjectByUrlW: Pointer;
function CryptRetrieveObjectByUrlW;
begin
GetProcedureAddress(_CryptRetrieveObjectByUrlW, crypt32, 'CryptRetrieveObjectByUrlW');
asm
mov esp, ebp
pop ebp
jmp [_CryptRetrieveObjectByUrlW]
end;
end;
{$ELSE}
function CryptRetrieveObjectByUrlW; external crypt32 name 'CryptRetrieveObjectByUrlW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CryptRetrieveObjectByUrl: Pointer;
function CryptRetrieveObjectByUrl;
begin
GetProcedureAddress(_CryptRetrieveObjectByUrl, crypt32, 'CryptRetrieveObjectByUrlW');
asm
mov esp, ebp
pop ebp
jmp [_CryptRetrieveObjectByUrl]
end;
end;
{$ELSE}
function CryptRetrieveObjectByUrl; external crypt32 name 'CryptRetrieveObjectByUrlW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CryptRetrieveObjectByUrl: Pointer;
function CryptRetrieveObjectByUrl;
begin
GetProcedureAddress(_CryptRetrieveObjectByUrl, crypt32, 'CryptRetrieveObjectByUrlA');
asm
mov esp, ebp
pop ebp
jmp [_CryptRetrieveObjectByUrl]
end;
end;
{$ELSE}
function CryptRetrieveObjectByUrl; external crypt32 name 'CryptRetrieveObjectByUrlA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CryptInstallCancelRetrieval: Pointer;
function CryptInstallCancelRetrieval;
begin
GetProcedureAddress(_CryptInstallCancelRetrieval, crypt32, 'CryptInstallCancelRetrieval');
asm
mov esp, ebp
pop ebp
jmp [_CryptInstallCancelRetrieval]
end;
end;
{$ELSE}
function CryptInstallCancelRetrieval; external crypt32 name 'CryptInstallCancelRetrieval';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptUninstallCancelRetrieval: Pointer;
function CryptUninstallCancelRetrieval;
begin
GetProcedureAddress(_CryptUninstallCancelRetrieval, crypt32, 'CryptUninstallCancelRetrieval');
asm
mov esp, ebp
pop ebp
jmp [_CryptUninstallCancelRetrieval]
end;
end;
{$ELSE}
function CryptUninstallCancelRetrieval; external crypt32 name 'CryptUninstallCancelRetrieval';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptCancelAsyncRetrieval: Pointer;
function CryptCancelAsyncRetrieval;
begin
GetProcedureAddress(_CryptCancelAsyncRetrieval, crypt32, 'CryptCancelAsyncRetrieval');
asm
mov esp, ebp
pop ebp
jmp [_CryptCancelAsyncRetrieval]
end;
end;
{$ELSE}
function CryptCancelAsyncRetrieval; external crypt32 name 'CryptCancelAsyncRetrieval';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptGetObjectUrl: Pointer;
function CryptGetObjectUrl;
begin
GetProcedureAddress(_CryptGetObjectUrl, crypt32, 'CryptGetObjectUrl');
asm
mov esp, ebp
pop ebp
jmp [_CryptGetObjectUrl]
end;
end;
{$ELSE}
function CryptGetObjectUrl; external crypt32 name 'CryptGetObjectUrl';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptGetTimeValidObject: Pointer;
function CryptGetTimeValidObject;
begin
GetProcedureAddress(_CryptGetTimeValidObject, crypt32, 'CryptGetTimeValidObject');
asm
mov esp, ebp
pop ebp
jmp [_CryptGetTimeValidObject]
end;
end;
{$ELSE}
function CryptGetTimeValidObject; external crypt32 name 'CryptGetTimeValidObject';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptFlushTimeValidObject: Pointer;
function CryptFlushTimeValidObject;
begin
GetProcedureAddress(_CryptFlushTimeValidObject, crypt32, 'CryptFlushTimeValidObject');
asm
mov esp, ebp
pop ebp
jmp [_CryptFlushTimeValidObject]
end;
end;
{$ELSE}
function CryptFlushTimeValidObject; external crypt32 name 'CryptFlushTimeValidObject';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptProtectData: Pointer;
function CryptProtectData;
begin
GetProcedureAddress(_CryptProtectData, crypt32, 'CryptProtectData');
asm
mov esp, ebp
pop ebp
jmp [_CryptProtectData]
end;
end;
{$ELSE}
function CryptProtectData; external crypt32 name 'CryptProtectData';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptUnprotectData: Pointer;
function CryptUnprotectData;
begin
GetProcedureAddress(_CryptUnprotectData, crypt32, 'CryptUnprotectData');
asm
mov esp, ebp
pop ebp
jmp [_CryptUnprotectData]
end;
end;
{$ELSE}
function CryptUnprotectData; external crypt32 name 'CryptUnprotectData';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertCreateSelfSignCertificate: Pointer;
function CertCreateSelfSignCertificate;
begin
GetProcedureAddress(_CertCreateSelfSignCertificate, crypt32, 'CertCreateSelfSignCertificate');
asm
mov esp, ebp
pop ebp
jmp [_CertCreateSelfSignCertificate]
end;
end;
{$ELSE}
function CertCreateSelfSignCertificate; external crypt32 name 'CertCreateSelfSignCertificate';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptGetKeyIdentifierProperty: Pointer;
function CryptGetKeyIdentifierProperty;
begin
GetProcedureAddress(_CryptGetKeyIdentifierProperty, crypt32, 'CryptGetKeyIdentifierProperty');
asm
mov esp, ebp
pop ebp
jmp [_CryptGetKeyIdentifierProperty]
end;
end;
{$ELSE}
function CryptGetKeyIdentifierProperty; external crypt32 name 'CryptGetKeyIdentifierProperty';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptSetKeyIdentifierProperty: Pointer;
function CryptSetKeyIdentifierProperty;
begin
GetProcedureAddress(_CryptSetKeyIdentifierProperty, crypt32, 'CryptSetKeyIdentifierProperty');
asm
mov esp, ebp
pop ebp
jmp [_CryptSetKeyIdentifierProperty]
end;
end;
{$ELSE}
function CryptSetKeyIdentifierProperty; external crypt32 name 'CryptSetKeyIdentifierProperty';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptEnumKeyIdentProperties: Pointer;
function CryptEnumKeyIdentifierProperties;
begin
GetProcedureAddress(_CryptEnumKeyIdentProperties, crypt32, 'CryptEnumKeyIdentifierProperties');
asm
mov esp, ebp
pop ebp
jmp [_CryptEnumKeyIdentProperties]
end;
end;
{$ELSE}
function CryptEnumKeyIdentifierProperties; external crypt32 name 'CryptEnumKeyIdentifierProperties';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CryptCreateKeyIdentifierFromCSP: Pointer;
function CryptCreateKeyIdentifierFromCSP;
begin
GetProcedureAddress(_CryptCreateKeyIdentifierFromCSP, crypt32, 'CryptCreateKeyIdentifierFromCSP');
asm
mov esp, ebp
pop ebp
jmp [_CryptCreateKeyIdentifierFromCSP]
end;
end;
{$ELSE}
function CryptCreateKeyIdentifierFromCSP; external crypt32 name 'CryptCreateKeyIdentifierFromCSP';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertCreateCertChainEngine: Pointer;
function CertCreateCertificateChainEngine;
begin
GetProcedureAddress(_CertCreateCertChainEngine, crypt32, 'CertCreateCertificateChainEngine');
asm
mov esp, ebp
pop ebp
jmp [_CertCreateCertChainEngine]
end;
end;
{$ELSE}
function CertCreateCertificateChainEngine; external crypt32 name 'CertCreateCertificateChainEngine';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertFreeCertificateChainEngine: Pointer;
procedure CertFreeCertificateChainEngine;
begin
GetProcedureAddress(_CertFreeCertificateChainEngine, crypt32, 'CertFreeCertificateChainEngine');
asm
mov esp, ebp
pop ebp
jmp [_CertFreeCertificateChainEngine]
end;
end;
{$ELSE}
procedure CertFreeCertificateChainEngine; external crypt32 name 'CertFreeCertificateChainEngine';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertResyncCertChainEngine: Pointer;
function CertResyncCertificateChainEngine;
begin
GetProcedureAddress(_CertResyncCertChainEngine, crypt32, 'CertResyncCertificateChainEngine');
asm
mov esp, ebp
pop ebp
jmp [_CertResyncCertChainEngine]
end;
end;
{$ELSE}
function CertResyncCertificateChainEngine; external crypt32 name 'CertResyncCertificateChainEngine';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertGetCertificateChain: Pointer;
function CertGetCertificateChain;
begin
GetProcedureAddress(_CertGetCertificateChain, crypt32, 'CertGetCertificateChain');
asm
mov esp, ebp
pop ebp
jmp [_CertGetCertificateChain]
end;
end;
{$ELSE}
function CertGetCertificateChain; external crypt32 name 'CertGetCertificateChain';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertFreeCertificateChain: Pointer;
procedure CertFreeCertificateChain;
begin
GetProcedureAddress(_CertFreeCertificateChain, crypt32, 'CertFreeCertificateChain');
asm
mov esp, ebp
pop ebp
jmp [_CertFreeCertificateChain]
end;
end;
{$ELSE}
procedure CertFreeCertificateChain; external crypt32 name 'CertFreeCertificateChain';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertDuplicateCertificateChain: Pointer;
function CertDuplicateCertificateChain;
begin
GetProcedureAddress(_CertDuplicateCertificateChain, crypt32, 'CertDuplicateCertificateChain');
asm
mov esp, ebp
pop ebp
jmp [_CertDuplicateCertificateChain]
end;
end;
{$ELSE}
function CertDuplicateCertificateChain; external crypt32 name 'CertDuplicateCertificateChain';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertFindChainInStore: Pointer;
function CertFindChainInStore;
begin
GetProcedureAddress(_CertFindChainInStore, crypt32, 'CertFindChainInStore');
asm
mov esp, ebp
pop ebp
jmp [_CertFindChainInStore]
end;
end;
{$ELSE}
function CertFindChainInStore; external crypt32 name 'CertFindChainInStore';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CertVerifyCertChainPolicy: Pointer;
function CertVerifyCertificateChainPolicy;
begin
GetProcedureAddress(_CertVerifyCertChainPolicy, crypt32, 'CertVerifyCertificateChainPolicy');
asm
mov esp, ebp
pop ebp
jmp [_CertVerifyCertChainPolicy]
end;
end;
{$ELSE}
function CertVerifyCertificateChainPolicy; external crypt32 name 'CertVerifyCertificateChainPolicy';
{$ENDIF DYNAMIC_LINK}
end.