type
TEnroll = function(Out Template :Pchar; ImagePath
char; Out GuideMessage :Pchar;
HOwner,x1,y1,x2,y2,Core :integer): integer; stdcall;
TEstaELDedo = function(): Integer; stdcall;
TCapturaFP = procedure(HOwner,x1,y1,x2,y2,Core :integer); stdcall;
var
Form1: TForm1;
implementation
{$R *.dfm}
{$H+}
procedure TForm1.EnrollClick(Sender: TObject);
var
hLib: Cardinal;
Enrola: TEnroll;
Template,GuideMessage : Pchar;
res : integer;
begin
hLib := LoadLibrary('UF100.DLL');
Enrola := GetProcAddress(hLib,'EnrollUser');
res := Enrola(Template,'D:\MIENTRAS\prueba.bmp',GuideMessage,Form1.Handle,0,0,0,0,1);
Memo1.Lines.Add('Enrola :'+intToStr(Res));
FreeLibrary(hLib);
end;