PDA

Ver la Versión Completa : Llamar Dll


mcarazas
06-07-2006, 02:18:28
Hola de nuevo foro:


procedure TMainForm.iposdeestadosfinancieros1Click(Sender: TObject);
var Crear_form : procedure;
begin
a := 'Marcelo';
h := loadlibrary('TEFdll.dll');
if h <> 0 then
try
Crear_Form := GetProcAddress(h, 'Crear_form(a: String)');
if Assigned(crear_form) then
Crear_Form //procedimiento de la Dll
else
raise Exception.Create('Error');
finally
end
else
raise Exception.Create('Error');
end;

El problema es:
Como puedo declarar una variable de tipo procedimiento pero con parametros
necesito mandar variables a mi Dll para realizar una consulta, espero puedan ayudarme