Código
type
TCallMeDll = function(a,b: Integer): string;
var
CallMeDll: TCallMeDll;
FuncPtr: TFarProc;
hDll: handle;
result: string;
begin
hDll:=LoadLibrary('DelphiBoy.dll');
FuncPtr:=GetProcAddress(hDLL,'CallMe');
@CallMeDll:=FuncPtr;
if @CallMeDll <> nil then
result:=CallMeDll(4,5);
FuncPtr:=nil;
FreeLibrary(hDll);
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009