Contributor: ANDREW EIGUS
{>> Possible. Just capture int 01h (as your HelpPC describes:>> Single Step) and int 03h (as your HelpPC describes: Breakpoint).>> They will be executed when there will be someone trapping your program>> by steps. You may place such code in those interrupt procedures:
}
Program NoDebug;
uses Dos;
var
OldInt01, OldInt03, OldExitProc : pointer;
Procedure DebugDetected;
Begin
WriteLn('Hey! Stop tracing my program!');
Halt
End; { DebugDetected }
Procedure NewInt01; interrupt; assembler;
Asm
call dword ptr [OldInt01]
call DebugDetected
End; { NewInt01 }
Procedure NewInt03; interrupt; assembler;
Asm
call dword ptr [OldInt03]
call DebugDetected
End; { NewInt03 }
Procedure NewExitProc; far;
Begin
ExitProc := OldExitProc;
SetIntVec(01,ドル OldInt01);
SetIntVec(03,ドル OldInt03)
End; { NewExitProc }
Begin
GetIntVec(01,ドル OldInt01);
GetIntVec(03,ドル OldInt03);
OldExitProc := ExitProc;
ExitProc := @NewExitProc;
SetIntVec(01,ドル Addr(NewInt01));
SetIntVec(03,ドル Addr(NewInt03));
WriteLn('Here your program goes...')
End.