Обработка прерываний клавиатуры в резидентной программе

[Vilgelm]

Здравствуйте.

Стоит предо мною такая задача:

имеется резидентная программа (keep (1), которая выполняет функцию будильника. Требуется сделать ручное управление временем между тиками.

Но это не страшно, как это сделать, я разобрался. Мой вопрос вот такой:

как именно мне обрабатывать нажатия клавиш в резидентной программе? Т.е. написал я if keypressed и так далее, только вот ведь программа то на нажатие клавиш не реагирует, ибо висит "в бэкграунде". Т.е. все мои нажатия клавиш обрабатывает уже сама коммандная строка (в моем случае DosBox).

Сорри, что субмубрно написал, болею

[cliv]

написать свой обработчик прерывания клавиатуры int9 и в нем проверять нажатие клавиши например такой

[alexcoder]

написать свой обработчик прерывания клавиатуры int9 и в нем проверять нажатие клавиши например такой

Как я понял, это нужно на паскале.
Вот, когда-то делал подобное, делается писк при нажатии на клавиши.

{$M $1000,0,0}
Program Scan_code;
Uses Crt,Dos;

Var
   OldKey: Procedure;
   keyfl,t,last: Byte;
   vkl:boolean;
   chst, dl:integer;
   cod1,cod2:integer;
{$F+}
Procedure Key; Interrupt;	{обработчик прерывания}
Begin
 t:=Port[$60];
 case t of
   $2a: keyfl:=keyfl or 2;       {установка флага Shift}
   $1:  keyfl:=keyfl or 1;       {установка флага Esc}
   $aa: keyfl:=keyfl and $fd;    {Сброс флага Shift}
   $81: keyfl:=keyfl and $fe;    {Сброс флага Esc}
 end;
 if keyfl=3 then
  begin
   vkl:=not(vkl);
   if not(vkl) then write ('-==Режим озвучки включён.==-')
    else write ('-==Режим озвучки выключен.==-')
  end;
 if (not(vkl) and (last<>t))then
  begin
    if t and $80=0 then Sound(chst)
    else Sound(chst+chst div 2);
    if (t=1) or (t=42) or (t=54) or (t=28) then Delay(dl*3)
    else Delay(dl);
    Nosound;
  end;
 last:=t;
 Inline($9C);
 OldKey;
End;
{$F-}

Begin			{основная программа}
 if ParamCount<>2 then
   Writeln ('Введены неверные параметры. Первый параметр - частота, второй длительность. Пример ввода:os 1000 100')
 else
   begin
   val(paramstr(1),chst,cod1);
   val(paramstr(2),dl,cod2);
   if (chst<=0) or (dl<=0) or (cod1<>0) or (cod2<>0) then
    begin
     Writeln ('Введены неверные параметры. Первый параметр - частота, второй длительность. Пример ввода:os 1000 100');
    end
   else
    begin
     if dl>500 then Writeln ('Длительность не должна превышать 500 мсек')
     else begin
       writeln ('Вкл/Выкл озвучки клавиатуры - Esc+LSift');
       GetIntVec($9,@OldKey);
       SetIntVec($9,Addr(Key));
       Keep(0);
     end;
    end;
  end;
End.

[cliv]

можно попробовать написать обработчик и на паскале, но перехватывать прерывание все равно придется ибо

программа то на нажатие клавиш не реагирует, ибо висит "в бэкграунде"

другим способом получить управление не получится