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 memo1自动循环上下滚屏

Delphi url protocol 让浏览器运行本地的exe程序

Delphi tstringlist indexof find 查找字符串

Delphi startcount() 时间计数器

Delphi 关于运算符

Delphi windows 编程[23] - 快捷键资源

Delphi firedac tfddatamove 导出csv

Delphi判断系统是否安装tcp/ip协议

Delphi窗体自适应分辨率

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

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