Détecter si une application est en cours de dubugged ou pas.

10/1/2018

1238

Détecter si une application est en cours de dubugged ou pas.

La fonction suivante va détecter si l'application est en cours de débogage ou pas. Cette fonction ne fonctionnera pas sur Windows 95.
le Comportement d'une application qui pourrait être modifié, si elle est exécutée à l'intérieur d'un débogueur, par exemple composant les écrivains veulent que leurs composants non pour être exécuté dans le débogueur.
Réponse:

fonction de DebuggerPresent: boolean
type
& nbsp & nbsp TDebugProc = fonction: boolean stdcall
var
& nbsp & nbsp Kernel32: HMODULE
& nbsp & nbsp DebugProc: TDebugProc
begin
& nbsp & nbsp Result := False
& nbsp & nbsp Kernel32 := GetModuleHandle('kernel32.dll')
& nbsp & nbsp si Kernel32 <> 0 then
& nbsp & nbsp commencer
& ! & ! & ! & nbsp @DebugProc := GetProcAddress(Kernel32, 'IsDebuggerPresent')
& ! & ! & ! & nbsp si Affecté(DebugProc)
& ! & ! & ! & ! & ! & nbsp Résultat := DebugProc
& nbsp & nbsp fin
fin
pour utiliser un simple cas de test peut être utilisé
si DebuggerPresent puis
& nbsp & nbsp ShowMessage('le débogage')
else
& nbsp & nbsp ShowMessage('PAS de débogage')

Detecter si une application est en cours de dubugged ou pas.

Detecter si une application est en cours de dubugged ou pas. : Plusieurs milliers de conseils pour vous faciliter la vie.

La fonction suivante va detecter si l'application est en cours de debogage ou pas. Cette fonction ne fonctionnera pas sur Windows 95.
le Comportement d'une application qui pourrait etre modifie, si elle est executee a l'interieur d'un debogueur, par exemple composant les ecrivains veulent que leurs composants non pour etre execute dans le debogueur.
Reponse:

fonction de DebuggerPresent: boolean
type
& nbsp & nbsp TDebugProc = fonction: boolean stdcall
var
& nbsp & nbsp Kernel32: HMODULE
& nbsp & nbsp DebugProc: TDebugProc
begin
& nbsp & nbsp Result := False
& nbsp & nbsp Kernel32 := GetModuleHandle('kernel32.dll')
& nbsp & nbsp si Kernel32 <> 0 then
& nbsp & nbsp commencer
& ! & ! & ! & nbsp @DebugProc := GetProcAddress(Kernel32, 'IsDebuggerPresent')
& ! & ! & ! & nbsp si Affecte(DebugProc)
& ! & ! & ! & ! & ! & nbsp Resultat := DebugProc
& nbsp & nbsp fin
fin
pour utiliser un simple cas de test peut etre utilise
si DebuggerPresent puis
& nbsp & nbsp ShowMessage('le debogage')
else
& nbsp & nbsp ShowMessage('PAS de debogage')