Cita:
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!