Жми-форум обо всём

(* Инициализация движка *)
     procedure init_engine(var engine: pxc_engine; debug: xc_dbg_message); external XC_DLL;
     (* Деинициализация движка *)
     procedure free_engine(var engine: pxc_engine); external XC_DLL;
     (* Установка настроек сканирования движка (при инициализации настройки устанавливаются поумолчанию) *)
     procedure xc_setoptions(engine: pxc_engine; scanners: xc_opts_scn; maxfsize, maxasize: int64; tempdir: pchar); external XC_DLL;
     (* Добавление сигнатуры в инициализированый движок *)
     procedure xc_readsign(root: pxc_engine; const sign: pchar); external XC_DLL;
     (* Упаковка существующей непакованной БД *)
     procedure xc_packing_db(dbfile: pchar; dbdate: pchar; license: pchar); external XC_DLL;
     (* Загрузка непакованой БД *)
     procedure xc_load_xdb(root: pxc_engine; filename: pchar); external XC_DLL;
     (* Загрузка упакованой БД *)
     procedure xc_load_xpb(root: pxc_engine; filename: pchar); external XC_DLL;
     (* Загрузка всех БД из указаной директории *)
     procedure xc_load_dbdir(engine: pxc_engine; dir: pchar; loadxdb: boolean); external XC_DLL;
     (* Сканирование файла на наличие сигнатуры (результат работы: XC_CLEAR, XC_VIRUS, XC_EREAD, XC_ESIZE) *)
     function xc_matchfile(engine: pxc_engine; filename: pchar; var virname: pchar; progresscall: xc_scan_progres; debugcall: xc_dbg_message; progress: boolean = false): integer; external XC_DLL;
     (* Сканирование буфера (return XC_CLEAR, XC_VIRUS, XC_EREAD, XC_ESIZE) (сканирование без проверки md5)*)
     function xc_scanbuffer(engine: pxc_engine; buffer: xc_buffer; ftype: dword; var virname: pchar): boolean; external XC_DLL;
     (* Кол-во загруженых сигнатур *)
     function xc_sigcount(engine: pxc_engine): integer; external XC_DLL;
     (* Максимальная дата всех загруженых БД *)
     function xc_db_date(engine: pxc_engine): pchar; external XC_DLL;
     (* Наименование движка *)
     function xc_name: pchar; external XC_DLL;
     (* Версия движка *)
     function xc_version: pchar; external XC_DLL;
     (* Перевод строки в 16ти-ричную систему *)
     function xc_str2hex(const str: widestring): widestring; external XC_DLL;
     (* md5 файла *)
     function xc_md5file(const filename: widestring): widestring; external XC_DLL;
     (* md5 строки *)
     function xc_md5string(const str: widestring): widestring; external XC_DLL;
     (* Информация о РЕ файле *)
     function xc_getpeinfo(filename: pchar; var peinfo: xc_peinfo): boolean; external XC_DLL;
     (* Проверка есть ли файл в белой базе *)
     function xc_inwhitelist(engine: pxc_engine; mdhash: pchar; size: integer; var whitename: pchar): boolean; external XC_DLL;
     (* Удаление файла *)
     function xc_deletefile(FileName: pchar) : boolean; external XC_DLL;
     (* Нормализация HTML файлов *)
     function xc_html_exctract(filename: pchar; path: pchar): boolean; external XC_DLL;
     (* Получение НЕХ кода от позиции spos размером в count байт *)
     function xc_getfilehex(filename: widestring; spos, count: integer): widestring; external XC_DLL;
     (* Распаковка упакованной БД *)
     procedure xc_unpack_xdb(filename: pchar); external XC_DLL;

Form1.Caption:=xc_md5file('Путь к вашему файлу');