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 string.parse

Delphi webbrowser 加载html成web

Delphi_关于null,nil

winapi 字符及字符串函数(7): ischarlower - 是否是个小写字母

Delphi 创建文件夹并打开

Delphi 获取cpuid的函数

Delphi 软件welcome窗口代码

Delphi 根据扩展名的文件搜索

Delphi 杨辉三角

Delphi中break,exit,abort跳出循环的比较

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

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