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 begin
@FuncionDll := GetProcAddress(HandleDll, 'ShowCursor');
if (@FuncionDll <> nil) then begin
FuncionDll(mostrar); 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?