Einfach nur die Header übersetzen.
Hier zum Beispiel für CryptQueryObject mal schnell getippt:
Delphi-Quellcode:
const
crypt32 = 'Crypt32.dll';
function CryptQueryObject(ObjectType : Cardinal; AObject : Pointer;
ExpectedContentTypeFlags : Cardinal; ExpectedFormatTypeFlags : Cardinal;
Flags : Cardinal; MsgAndCertEncodingTyper : PCardinal; ContentType : PCardinal;
FormatType : PCardinal; CertStore : Pointer; Msg : Pointer; Context : PPointer) : BOOL;
stdcall; external crypt32 name 'CryptQueryObject';
Lars S.
Wer nicht mit der Zeit geht, geht mit der Zeit.