DLL parámetros de salida (OUT)

[PedroAlfonso]

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;