Архив форумов ЦИТФорума

[Александр Гвозд]

Можно ли чисто на паскале написать программу резидента? Что бы ее кусок остался в памяти после завершения и перехватывал какое-то прерывание.

[ToJIcTbIu]

Можно

var oldIntProc: procedure;
procedure myIntProc(); interrupt;
begin
oldIntProc; {если хочещь чобы старый обработчик что-то делал}
{лучше пусть делает если ты там собираешься перехватить что-то типа прерывания от клавиатуры или др...}
... {тут что-то ты сам делаешь}
end;

begin
getIntVec(<номер прерывания>,@oldIntVec); {сохраняешь старую процедуру}
setIntVec(<тот-же номер прерывания>,@myIntProc); {устанавливаешь свою}
{а вот тут ешо какая-то функция msdos вызывается типа оставить эту прогу резидентной в памяти, посмотри в справочноке по функциям msdos}
end.

щас просто нет рядом паскаля чобы посмотреть, может ещё что-то забыл написать не помню уже как это делается (давно это было), главное знать суть