Fórum Duvidas com DLL #320308

type TCallMeDll = function ou procedure<declaração exata após o nome>: StdCall;
var CallMeDll: TCallMeDll;
    FuncPtr: TFarProc;
    hDll: THandle;
    result: <tipo de retorno>; // pode usar variant, mas cuidado
begin
  hDll := LoadLibrary(´<caminho da dll>´);
  FuncPtr := GetProcAddress(hDLL, ´<´Nome da Função´ (a função deve ser declarada na seção Exports da DLL com a opção Name ´Nome da Função´)>´);
  @CallMeDll := FuncPtr;
  if @CallMeDll <> nil then result := CallMeDll(<argumentos necessários para a função>);
  FuncPtr := nil;
  FreeLibrary(hDll);
end;