Нужна программа, которая выводит на экран часы!

[gylayko]

Нужна резидентная программа, которая выводит часы! Не очень понимаю принцип работы резидентных программ, поэтому прошу помощи!

[Serge_Bliznykov]

ну допустим, есть у меня такая программка.
с товарищем делали. во времена MS DOS я ей постоянно пользовался.
Теоретически, я даже могу исходники опубликовать.

но мне интересно, а чем не устроили результаты поиска
результаты поиска в гугл ?

[gylayko]

нужно на паскале!

[Serge_Bliznykov]

нужно на паскале!

Резидентная?! На Паскале?! Вы точно не ошибаетесь?!!

Ну можно, конечно, и на Паскале, но ЗАЧЕМ?!?!?!!!!
Кто Вас учит? Это тоже самое, что добывать огонь трением и рубить дрова каменным топором!

p.s. посмотрю свои архивы. если найду что-то подходящее, то выложу...

[alexcoder]

Мсье знает толк в извращениях!

Вот пример резидентной программы на паскале:

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

Var
   OldKey: Procedure;
   keyfl,t  : 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 (t and $80=0) )then
  begin
    Sound(chst);
    Delay(dl);
    Nosound;
  end;
 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.

Для танкистов: ЭТО НЕ ТАЙМЕР!