Detect It Easy dll SDK

unit diedll;
(*
Detect It Easy dll SDK
Does not supported QTScripts. Crashed! Remove "db" directory.
*)
interface

uses
  Windows;

const
  DIE_SHOWERRORS         : DWORD = $00000001;
  DIE_SHOWOPTIONS        : DWORD = $00000002;
  DIE_SHOWVERSION        : DWORD = $00000004;
  DIE_SHOWENTROPY        : DWORD = $00000008;
  DIE_SINGLELINEOUTPUT   : DWORD = $00000010;
  DIE_SHOWFILEFORMATONCE : DWORD = $00000020;

function DIE_scanA(pszFileName: LPCSTR; pszOutBuffer: LPCSTR; nOutBufferSize: LongInt;
 nFlags: UINT): LongInt; stdcall;
function DIE_scanW(pwszFileName: LPWSTR; pwszOutBuffer: LPWSTR; nOutBufferSize: LongInt;
 nFlags: UINT): LongInt; stdcall;
function DIE_version(): LPCSTR; stdcall;
procedure DIE_reset(); stdcall;

implementation

const
  DiEDllName = 'diedll.dll';

function DIE_scanA; external DiEDllName name '_DIE_scanA@16';
function DIE_scanW; external DiEDllName name '_DIE_scanW@16';
function DIE_version; external DiEDllName name '_DIE_version@0';
procedure DIE_reset; external DiEDllName name '_DIE_reset@0';

end.