{PASCAL INTERFACE for AVICAP32 DLL}
{Converted from microsoft Header file by ArTee}
{Free to use - I'm NOT responsible fo bugs}
unit avicap32;
interface
uses Windows, Messages, SysUtils, MMSystem;……
加我微信:Leedege一起交流Delphi开发经验
uses IdHashSHA, IdGlobal;
function SHA1(Input: String): String;begin with TIdHashSHA1.Create do try Result := LowerCase(HashBytesAsHex(TidBytes( ...……