unit1.pas

确认指纹仪驱动是否为4000b。如果不是提示异常。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, xpWindow, mxOutlookBarPro, ImgList, ZnHideForm, Menus,
  WinSkinData, jpeg, ExtCtrls, Buttons,md5,Winsock,nb30;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Panel1: TPanel;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }


  end;

var
  Form1: TForm1;
  


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var  systemfile :string ;
     SysDir1: array[0..255] of char;
begin
    memo1.Text:='';
    label1.Caption:='';
    GetSystemDirectory(SysDir1,255);
    systemfile:= SysDir1;
if ('d41d8cd98f00b204e9800998ecf8427e'<> MD5Print(MD5File(systemfile+'\dpD00101.dll')))then//1
   memo1.Text:=memo1.Text+systemfile+'dpD00101.dll'+#13;

     
 if ('d41d8cd98f00b204e9800998ecf8427e'<> MD5Print(MD5File(systemfile+'\dpD00201.dll')))then//2
       memo1.Text:=memo1.Text+systemfile+'dpD00201.dll'+#13;

 if ('d41d8cd98f00b204e9800998ecf8427e'<> MD5Print(MD5File(systemfile+'\dpD00202.dll')))then//3
     memo1.Text:=memo1.Text+systemfile+'dpD00202.dll'+#13;


 if ('d41d8cd98f00b204e9800998ecf8427e'<> MD5Print(MD5File(systemfile+'\dpD00302.dll')))then//4
     memo1.Text:=memo1.Text+systemfile+'dpD00302.dll'+#13;


 if ('79fd7b411fe3e09f85e9eaaa2fcb4de2'<> MD5Print(MD5File(systemfile+'\dpD00701.dll')))then//5
     memo1.Text:=memo1.Text+systemfile+'dpD00701.dll'+#13;


 if ('e6015b90ed78eed94e6845c22e14cec9'<> MD5Print(MD5File(systemfile+'\dpDbase.dll')))then//6
     memo1.Text:=memo1.Text+systemfile+'dpDbase.dll'+#13;


 if ('bceff66154703c089df94c3ef2cd8c18'<> MD5Print(MD5File(systemfile+'\dpDevClt.dll')))then//7
     memo1.Text:=memo1.Text+systemfile+'dpDevClt.dll'+#13;


 if ('446c59253d831be5887ecab9df13b574'<> MD5Print(MD5File(systemfile+'\dpDevCtl.dll')))then//8
     memo1.Text:=memo1.Text+systemfile+'dpDevCtl.dll'+#13;


 if ('25e61102fedc04711749f7ff64c23547'<> MD5Print(MD5File(systemfile+'\dpDevDat.dll')))then//9
     memo1.Text:=memo1.Text+systemfile+'dpDevDat.dll'+#13;


 if ('cc9a62379d564eaa22052a85ea3900e4'<> MD5Print(MD5File(systemfile+'\dpFpFns.dll')))then//10
     memo1.Text:=memo1.Text+systemfile+'dpFpFns.dll'+#13;


 if ('7aa71f1250919ea36f32c1e50438cae4'<> MD5Print(MD5File(systemfile+'\dpFtrEx.dll')))then//11
     memo1.Text:=memo1.Text+systemfile+'dpFtrEx.dll'+#13;


 if ('d41d8cd98f00b204e9800998ecf8427e'<> MD5Print(MD5File(systemfile+'\dpI00101.dll')))then//12
     memo1.Text:=memo1.Text+systemfile+'dpI00101.dll'+#13;


 if ('d41d8cd98f00b204e9800998ecf8427e'<> MD5Print(MD5File(systemfile+'\dpI00201.dll')))then//13
     memo1.Text:=memo1.Text+systemfile+'dpI00201.dll'+#13;


 if ('d41d8cd98f00b204e9800998ecf8427e'<> MD5Print(MD5File(systemfile+'\dpI00202.dll')))then//14
     memo1.Text:=memo1.Text+systemfile+'dpI00202.dll'+#13;


 if ('d41d8cd98f00b204e9800998ecf8427e'<> MD5Print(MD5File(systemfile+'\dpI00302.dll')))then//15
     memo1.Text:=memo1.Text+systemfile+'dpI00302.dll'+#13;


 if ('9141f90df54d809c96e0c02cc472b0de'<> MD5Print(MD5File(systemfile+'\dpI00701.dll')))then//16
     memo1.Text:=memo1.Text+systemfile+'dpI00701.dll'+#13;


 if ('d2f15f86cc73489ba7e16a950621dc8d'<> MD5Print(MD5File(systemfile+'\dpMatch.dll')))then//17
     memo1.Text:=memo1.Text+systemfile+'dpMatch.dll'+#13;


 if ('ee4e56b93903fa122595f343f99c8ad7'<> MD5Print(MD5File(systemfile+'\dpUsbAda.dll')))then//18
     memo1.Text:=memo1.Text+systemfile+'dpUsbAda.dll'+#13;

 if ('d41d8cd98f00b204e9800998ecf8427e'= MD5Print(MD5File(systemfile+'\dpD00101.dll')))and //1
    ('d41d8cd98f00b204e9800998ecf8427e'= MD5Print(MD5File(systemfile+'\dpD00201.dll')))and //2
    ('e6015b90ed78eed94e6845c22e14cec9'= MD5Print(MD5File(systemfile+'\dpDbase.dll'))) and  //3
    ('d41d8cd98f00b204e9800998ecf8427e'= MD5Print(MD5File(systemfile+'\dpD00302.dll')))and  //  4
    ('79fd7b411fe3e09f85e9eaaa2fcb4de2'= MD5Print(MD5File(systemfile+'\dpD00701.dll')))and  //  5
    ('e6015b90ed78eed94e6845c22e14cec9'= MD5Print(MD5File(systemfile+'\dpDbase.dll'))) and  //  6
    ('bceff66154703c089df94c3ef2cd8c18'= MD5Print(MD5File(systemfile+'\dpDevClt.dll')))and  //  7
    ('446c59253d831be5887ecab9df13b574'= MD5Print(MD5File(systemfile+'\dpDevCtl.dll')))and  //  8
    ('25e61102fedc04711749f7ff64c23547'= MD5Print(MD5File(systemfile+'\dpDevDat.dll')))and   // 9
    ('cc9a62379d564eaa22052a85ea3900e4'= MD5Print(MD5File(systemfile+'\dpFpFns.dll'))) and    // 10
    ('7aa71f1250919ea36f32c1e50438cae4'= MD5Print(MD5File(systemfile+'\dpFtrEx.dll'))) and    // 11
    ('d41d8cd98f00b204e9800998ecf8427e'= MD5Print(MD5File(systemfile+'\dpI00101.dll')))and   // 12
    ('d41d8cd98f00b204e9800998ecf8427e'= MD5Print(MD5File(systemfile+'\dpI00201.dll')))and   // 13
    ('d41d8cd98f00b204e9800998ecf8427e'= MD5Print(MD5File(systemfile+'\dpI00202.dll')))and   // 14
    ('d41d8cd98f00b204e9800998ecf8427e'= MD5Print(MD5File(systemfile+'\dpI00302.dll')))and  //  15
    ('9141f90df54d809c96e0c02cc472b0de'= MD5Print(MD5File(systemfile+'\dpI00701.dll')))and  //  16
    ('d2f15f86cc73489ba7e16a950621dc8d'= MD5Print(MD5File(systemfile+'\dpMatch.dll'))) and   // 17
    ('ee4e56b93903fa122595f343f99c8ad7'= MD5Print(MD5File(systemfile+'\dpUsbAda.dll')))then
    label1.Caption:='正常！'
    else
    label1.Caption:='异常！';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  memo1.Text:='';
  label1.Caption:='';
end;

end.