Re: How to lock keys.

["DuckE" <nospam_steved94@home.com>]

Here is the test code I used to see the SetConsoleCtrlHandler function at
work:

--------------------------- File TestHandler.adb --------------------
WITH CtrlCHandler;
WITH Win32;
WITH Win32.WinCon;
WITH Ada.Text_Io;

PROCEDURE TestHandler IS
  result : Win32.BOOL;
BEGIN
  Ada.Text_Io.Put_Line( "Start" );
  result := Win32.WinCon.SetConsoleCtrlHandler( HandlerRoutine =>
CtrlCHandler.MyHandler'ACCESS,
                                                Add => Win32.TRUE );
  DELAY 5.0;
  Ada.Text_Io.Put_Line( "Finish" );
  DELAY 2.0;
END TestHandler;

------------------ File: CtrlCHandler.ads --------------------------

WITH Win32;
PACKAGE CtrlCHandler IS

  FUNCTION MyHandler( ctrlType : Win32.DWORD ) RETURN Win32.BOOL;
  PRAGMA Convention( stdcall, MyHandler );

END CtrlCHandler;

------------------- File: CtrlCHandler.adb -----------------------

WITH Win32;
WITH Win32.WinCon;
WITH Ada.Text_Io;

PACKAGE BODY CtrlCHandler IS

  FUNCTION MyHandler( ctrlType : Win32.DWORD ) RETURN Win32.BOOL IS
  BEGIN
    Ada.Text_Io.Put_Line( "Handled!" );
    RETURN Win32.TRUE;
  END MyHandler;

END CtrlCHandler;

-----------------------------------------------------------------------

I hope this helps,

SteveD