Es mi aplicación que se está depurando ?

2/9/2019

2184

Es mi aplicación que se está depurando ?

¿Cómo saber si el código se ejecuta en modo de depuración.
he encontrado este código en algún sitio en Internet, no recuerdo la fuente así que no se de crédito al autor original.
función DebuggerPresent: boolean
tipo
& nbsp & nbsp TDebugProc = función: boolean stdcall
var
& nbsp & nbsp Kernel32: HMODULE
& nbsp & nbsp DebugProc: TDebugProc
begin
& nbsp & nbsp Resultado := False
& nbsp & nbsp Kernel32 := GetModuleHandle('kernel32.dll')
& nbsp & nbsp si Kernel32 <> 0 then
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp @DebugProc := GetProcAddress(Kernel32, 'IsDebuggerPresent')
& nbsp & nbsp & nbsp & nbsp si se ha Asignado(DebugProc), a continuación,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := DebugProc
& nbsp & nbsp final
fin

Es mi aplicacion que se esta depurando ?

Es mi aplicacion que se esta depurando ? : Multi-millones de consejos para hacer su vida mas facil.

¿Como saber si el codigo se ejecuta en modo de depuracion.
he encontrado este codigo en algun sitio en Internet, no recuerdo la fuente asi que no se de credito al autor original.
funcion DebuggerPresent: boolean
tipo
& nbsp & nbsp TDebugProc = funcion: boolean stdcall
var
& nbsp & nbsp Kernel32: HMODULE
& nbsp & nbsp DebugProc: TDebugProc
begin
& nbsp & nbsp Resultado := False
& nbsp & nbsp Kernel32 := GetModuleHandle('kernel32.dll')
& nbsp & nbsp si Kernel32 <> 0 then
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp @DebugProc := GetProcAddress(Kernel32, 'IsDebuggerPresent')
& nbsp & nbsp & nbsp & nbsp si se ha Asignado(DebugProc), a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := DebugProc
& nbsp & nbsp final
fin