Delphi 检测文件数字签名

本文整理自网络，侵删。

 
Uses Winapi.Windows, JwaSoftpub, CAPICOM_TLB, JwaWintrust;
 
Function IsCodeSigned(const Filename:String):Boolean;
var
  FileInfo   :TWinTrustFileInfo;
  TrustData  :TWinTrustData;
begin
  ZeroMemory(@FileInfo, SizeOf(TWintrustFileInfo));
  ZeroMemory(@TrustData, SizeOf(TWinTrustData));
  FileInfo.cbStruct             := SizeOf(TWintrustFileInfo);
  FileInfo.pcwszFilePath        := PWideChar(FileName);
  TrustData.cbStruct            := sizeof(TrustData);
  TrustData.dwUIChoice          := WTD_UI_NONE;
  TrustData.fdwRevocationChecks := WTD_REVOKE_NONE;
  TrustData.dwUnionChoice       := WTD_CHOICE_FILE;
  TrustData.InfoUnion.pFile     := @FileInfo;
  Result := WinVerifyTrust(INVALID_HANDLE_VALUE, WINTRUST_ACTION_GENERIC_VERIFY_V2, TrustData) = ERROR_SUCCESS;
end;
 

相关阅读 >>

Delphi disable_uac_vista

Delphi tstrings 过滤空行

Delphi 突破主动防御

Delphi rgbtohsb

Delphi xe2 idhttp 获取utf-8编码中文网页

Delphi 在 webservice 中采用 tsoapattachment 传输文件

Delphi编程用流来读取txt文件中的数据

Delphi 比较两数字大小取最大值

delph hash类

Delphi pchar和array [0..255] of char的区别

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 检测文件数字签名