Ver Mensaje Individual
  #4  
Antiguo 03-12-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.108
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
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?
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 03-12-2005 a las 04:32:21. Razón: Corrección del código fuente.
Responder Con Cita