No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Cargar una DLL en tiempo de Ejecucion.

delphi

Type
  TDLLProc = procedure(Var Param: String);
Var
  hDLL  : Integer;
  MyProc: TDLLProc;
  s     : String;
begin
  hDLL := LoadLibrary('MiDLL.dll');
  @MyProc := GetProcAddress(hDLL, 'DLLProc');
  If @MyProc <> Nil Then
    MyProc(s);
  FreeLibrary(hDLL);
end;

Saludos!