Evitar errores en BlockInput

[roman]

Empezado por Ramsay

¿ Si esta funcion no existe mostraria un error de todas formas al sistema ?

No mostraría nada, pero no por el bloque try-except sino porque tu aplicación ni siquiera se ejecutaría. La manera en que importas la función (static loading) requiere que la función exista al momento de iniciar la aplicación y, de no ser así, el S.O aborta la carga de la aplicación con un mensaje de error que no puedes interceptar.

Para poder verificar la existencia de la función en tiempo de ejecución debes usar una carga dinámica de la función, usando LoadLibrary y GetProcAddress, de la API de Windows.

También, según leo, en las versiones recientes de Delphi existe la directiva delayed, que agregarías a la declaración de la función:

Código Delphi [-]
function BlockInput(fBlockInput: Boolean): DWORD; stdcall; external 'user32.DLL' delayed;

con lo cual podrías verificar la existencia de la función antes de usarla por primera vez.

// Saludos