Приведите пример любой резидентной программы (pascal)...

@koir · Регистрация: 08.06.2008

Студворк — интернет-сервис помощи студентам

Приведите пример любой резидентной программы (pascal)...

Запуск и передача параметров из командной строки windows.

Необходимо как можно больше исходников.

@marty0701 · 21.04.2009, 07:47

Держи нумер раз:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
{$M $800, 0, 0}
uses Crt, Dos;
var
  oldVector : Procedure;
  pisk:boolean;
  time:real;
  iks,igr,sec,bud,code,timer, zvuk, vrema: integer;
  h, m, s, hund : Word;
{$F+}
 
function LeadingZero(w : Word) : String;
var
  s : String;
begin
  Str(w:0,s);
  if Length(s) = 1 then
    s := '0' + s;
  LeadingZero := s;
end;
 
 
procedure NewProc; interrupt;
  var t:integer;
  begin
  time:=time+1;
   if(time>18) then begin
     time:=time-18;
       sec:=sec+1;
    if(sec mod timer)=0 then begin
   GetTime(h,m,s,hund);
  Gotoxy(iks,igr);
  Writeln(LeadingZero(h),':',
          LeadingZero(m),':',LeadingZero(s));
  end;
  end;
  oldvector;
  end;
 
 
begin
  if  ParamCount < 3 then
  writeln('Err!! VVEDITE 2a PARAMETRA, PRIMER: l4_1.exe 2 15')
  else
  begin
  clrscr;
  Val(ParamStr(1), iks, Code);
  Val(ParamStr(2), igr, Code);
  Val(ParamStr(3), timer, Code);
  GetIntVec($8,@OldVector);
  SetIntVec($8,Addr(NewProc));
  Keep(1);
  end;
end.

Выводит в заданном положении экрана часы.Значение секунд выводиться дискретно, в зависимости от 3го параметра. Запуск из командной строки. Например- prog1.pas 15 15 5 - выведет на экране в центре, секнды будут тоько кратные 5.

Добавлено через 2 минуты 42 секунды
Нумер два:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
{$M $800, 0, 0}
uses Crt, Dos;
var
  oldVector : Procedure;
{$F+}
procedure NewProc; interrupt;
begin
  if port[$60]< $80 then
  begin
    Sound(5000);
    Delay(10);
    Nosound;
    end;
  inline ($9C);
  oldVector;
end;
 
begin
  GetIntVec($9,@OldVector);
  SetIntVec($9,Addr(NewProc));
  Keep(1);
end.

БУдет клавиатуру озвучивать

Добавлено через 5 минут 14 секунд
В дагонку:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
{$M $800, 0, 0}
uses Crt, Dos;
var
  oldVector : Procedure;
  pisk:boolean;
  time:real;
  sec,bud,code,timer, zvuk, vrema: integer;
{$F+}
procedure NewProc; interrupt;
begin
  time:=time+1;
  if(time>20) then begin
  time:=time-20;
  sec:=sec+1;
  if(pisk=false) then
  begin
   if(sec mod timer)=0 then sound(2200);
   if(sec-bud)=0 then
   begin
   sound(2200);
   pisk:=true;
   end;
   end
   else
   if(sec-bud-6)=0 then
    begin
     nosound;
     pisk:=false;
     end;
     end;
  if((sec mod timer)=0)and(time>2)and(pisk=false) then nosound;
  oldvector;
  end;
 
begin
  if  ParamCount < 2 then
  writeln('Err!! VVEDITE 2a PARAMETRA, PRIMER: l4_1.exe 2 15')
  else
  begin
  Val(ParamStr(1), timer, Code);
  Val(ParamStr(2), bud, Code);
  time:=0;
  pisk:=false;
  GetIntVec($8,@OldVector);
  SetIntVec($8,Addr(NewProc));
  Keep(1);
  end;
end.

Это будильних! ну или что то вроде этого

1ый параметр - интервал коротких писков, 2ой - через сколько будить

@koir · 21.04.2009, 09:57 **[ТС]**

marty0701,
спасибо большое, разобрался.

@marty0701 · 21.04.2009, 11:16

Спасибо, в обмен на спасибо хочу

Ткни кнопку то

@koir · 21.04.2009, 13:39 **[ТС]**

если если обработчик клавиатуры, чтобы при нажатии любой клавишы издавался звук, но при этом клавиатура работала, то прошу поделиться,

что-то пишет у меня "неправильный command.com" - не знаю что это такое :-(

поставлю плюсик к репутации :-)

@marty0701 · 21.04.2009, 14:22

Если ты про пример №2 говоришь, то он прекрасно работает у меня. WinXP, обычный cmd. запускаю без параметров и прекрасно пишу с клавиатуры, и при этом слышу противные щелчки из спикера

Добавлено через 2 минуты 11 секунд
Пуск->Выполнить->cmd. А потом уже запускаешь. Ну у меня всё Ок работает, в своё время сдавались, как лыбы, так что на многих Компутерах проверялась, работает на УРА.

Добавлено через 2 минуты 49 секунд
Ты только эти программы не запускай из pascal'я напрямик. Блин, какие еще то варианты? даж не знаю.... В пасале твоя задача, нажать Compile и make или что то в этом роде. т.е. сотворить .exe файл. Потом уже копируешь его куда нажо и запускаешь через Cmd

как то так в общем.

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

@koir 1 / 1 / 0 Регистрация: 08.06.2008 Сообщений: 20

	Приведите пример любой резидентной программы (pascal)... 21.04.2009, 07:17. Показов 3331. Ответов 5 Метки нет (Все метки) Приведите пример любой резидентной программы (pascal)... Запуск и передача параметров из командной строки windows. Необходимо как можно больше исходников. 0

@koir 1 / 1 / 0 Регистрация: 08.06.2008 Сообщений: 20
	21.04.2009, 09:57 [ТС]
	marty0701, спасибо большое, разобрался. 1

@marty0701 43 / 10 / 1 Регистрация: 20.04.2009 Сообщений: 32
	21.04.2009, 11:16
	Спасибо, в обмен на спасибо хочу Ткни кнопку то 1

@koir 1 / 1 / 0 Регистрация: 08.06.2008 Сообщений: 20
	21.04.2009, 13:39 [ТС]
	если если обработчик клавиатуры, чтобы при нажатии любой клавишы издавался звук, но при этом клавиатура работала, то прошу поделиться, что-то пишет у меня "неправильный command.com" - не знаю что это такое :-( поставлю плюсик к репутации :-) 0

@marty0701 43 / 10 / 1 Регистрация: 20.04.2009 Сообщений: 32
	21.04.2009, 14:22
	Если ты про пример №2 говоришь, то он прекрасно работает у меня. WinXP, обычный cmd. запускаю без параметров и прекрасно пишу с клавиатуры, и при этом слышу противные щелчки из спикера Добавлено через 2 минуты 11 секунд Пуск->Выполнить->cmd. А потом уже запускаешь. Ну у меня всё Ок работает, в своё время сдавались, как лыбы, так что на многих Компутерах проверялась, работает на УРА. Добавлено через 2 минуты 49 секунд Ты только эти программы не запускай из pascal'я напрямик. Блин, какие еще то варианты? даж не знаю.... В пасале твоя задача, нажать Compile и make или что то в этом роде. т.е. сотворить .exe файл. Потом уже копируешь его куда нажо и запускаешь через Cmd как то так в общем. 0