Detectar si una aplicación se está dubugged o no.

10/1/2018

957

Detectar si una aplicación se está dubugged o no.

La siguiente función será detectar si se está depurando la aplicación o no. Esta función no funciona en Windows 95.
el Comportamiento de una aplicación podría ser cambiado si se ejecuta dentro de un depurador, por ejemplo, el componente de escritores que deseen que sus no registrados componentes para ejecutarse en el depurador.
Respuesta:

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
el uso de un simple si se puede usar la prueba
si DebuggerPresent, a continuación,
& nbsp & nbsp ShowMessage('depuración')
else
& nbsp & nbsp ShowMessage('NO de depuración')

Detectar si una aplicacion se esta dubugged o no.

Detectar si una aplicacion se esta dubugged o no. : Multi-millones de consejos para hacer su vida mas facil.

La siguiente funcion sera detectar si se esta depurando la aplicacion o no. Esta funcion no funciona en Windows 95.
el Comportamiento de una aplicacion podria ser cambiado si se ejecuta dentro de un depurador, por ejemplo, el componente de escritores que deseen que sus no registrados componentes para ejecutarse en el depurador.
Respuesta:

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
el uso de un simple si se puede usar la prueba
si DebuggerPresent, a continuacion,
& nbsp & nbsp ShowMessage('depuracion')
else
& nbsp & nbsp ShowMessage('NO de depuracion')