Como evito error cuando no esta una Dll??

[[marceloalegre]]

estuve mirando el tema, siempre cargue las dll estaticamente...

estuve mirando el comando loadlibrary y cambie la declaracion.. pero no me anda... alguien puede postear un ejemplo claro de carga dinamica? porque llamo la dll es un procedure y no me da ni la hora... o sea no funciona...

[dec]

Hola,

Esto podría ser al menos una forma de llamar a una función situada en una librería realizando la carga de estas dinámicamente, como dicen que se dice. Es muy posible que no sea la única forma de hacerlo. Se trata, en este caso, de cargar la función "ShowCursor" que se encuentra en la librería "user32.dll".

Código Delphi [-]
procedure MostrarCursor(mostrar: boolean);
type
  TShowCursorProc = function(bShow: BOOL) : HResult; stdcall;
var
  HandleDll: THandle;
  FuncionDll: TShowCursorProc;
begin
  HandleDll := LoadLibrary('user32.dll');
  if (HandleDll <> 0) then // Se cargó la librería
  begin
    @FuncionDll := GetProcAddress(HandleDll, 'ShowCursor');
    if (@FuncionDll <> nil) then // Tenemos la función
    begin
      FuncionDll(mostrar); // Podemos utilizarla, pues
    end;
    FreeLibrary(HandleDll);
  end;
end;

Alguna vez he enlazado aquí a cierto artículo de Néstor Freire titulado "Cómo crear y utilizar las librerías en nuestros programas".

De todas formas Víctor, se me ocurre que hagas lo que te han sugerido, que me parece que podría funcionar, si es que no hay algún inconveniente en hacer algo como lo siguiente: que lo primero de todo en tu programa sea extraer la "DLL" que lleva incorporada y copiarla donde sea menester... ¿o es que se me escapa algo?

[fide]

Empezado por dec

Código Delphi [-]procedure MostrarCursor(mostrar: boolean);
type TShowCursorProc = function(bShow: BOOL) : HResult; stdcall;
var HandleDll: THandle; FuncionDll: TShowCursorProc; begin HandleDll := LoadLibrary('user32.dll');
if (HandleDll <> 0) then // Se cargó la librería
begin @FuncionDll := GetProcAddress(HandleDll, 'ShowCursor');
if (@FuncionDll <> nil) then // Tenemos la función
begin FuncionDll(mostrar); // Podemos utilizarla, pues
end;
FreeLibrary(HandleDll);
end;
end;

Ciertamente este codigo esta marabilloso. A mi me ha venido como cantaro a la fuente para hacer las cosas que necesito con dll. Jaaaa!