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 一个文件重复生成的小工具[附源码]

Delphi xe5 Delphi 解析 json

Delphi dcc32.exe 参数说明

Delphi 开发安卓时判断进入非活动

Delphi 字符串加密解密(不支持中文)

Delphi自动检测u盘插入、拔出及获取u盘盘符

Delphi intraweb 在iis下发布的web.config

Delphi listview中加载图片

Delphi 学习使用资源文件 - 字符串资源

Delphi列表控件tlistview定位到某一行

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

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