fm_face.pas

档案资料管理系统

unit FM_Face;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, EasyGrid, StdCtrls, Buttons, ExtCtrls,inifiles;

type
  TCec_MisReg=Function (RegNumber:string):String;
  TFM_FACE1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Shape1: TShape;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FM_FACE1: TFM_FACE1;
implementation

{$R *.dfm}

procedure TFM_FACE1.Timer1Timer(Sender: TObject);
var
 CEC_MISRP : TFarProc;
 CEC_MISR:TCEC_MISReg;
 CEC_MISRH : Thandle;
begin
 IF FM_Face1.AlphaBlendValue=255 then
   begin
    Timer1.Enabled:=False;
    CEC_MISRH := LoadLibrary(PChar(Extractfilepath(Application.ExeName)+'CEC_MISRegist.dll'));
    if CEC_MISRH <> 0 then
      begin
       CEC_MISRP:= GetProcAddress(CEC_MISRH, Pchar('Cec_MisReg'));  //注意函数大小写
       CEC_MISR := CEC_MISRP;
       CEC_MISR(Label6.Caption);
       FreeLibrary(CEC_MISRH);
       FM_Face1.Close;
      end
    else
     begin
      Application.MessageBox('CEC_MISRegist.Dll不存在或损坏请重新安装','真诚提醒您',MB_OK or MB_ICONINFORMATION);
      Application.Terminate;
     end;
   end;
 FM_Face1.AlphaBlendValue:=FM_Face1.AlphaBlendValue+1;
end;

procedure TFM_FACE1.FormCreate(Sender: TObject);
var
 Computer_Name:PChar;
 sComputer_Name:Dword;
begin
 GetMem(Computer_Name,256);
 GetComputerName(Computer_Name,sComputer_Name);
 Label6.Caption:=Computer_Name;
 FreeMem(Computer_Name);
end;
end.