function TDigital_CAPICOM.VerifySign(const AFileName: string): Boolean;
var
SignedData: ISignedData;
HashString: WideString;
ASignedContent: string;
begin
Result := True;
try
GetCertificate;
ASignedContent:= ExtractSignedContent(AFileName);
HashString:= GetFileHash(AFileName);
SignedData := CoSignedData.Create;
SignedData.Content := HashString;
SignedData.Verify(ASignedContent, False, CAPICOM_VERIFY_SIGNATURE_ONLY);
except
Result := False;
Raise Exception.Create('数字签名校验失败!');
end;
end;