Ma demande est en cours de débogage ?


Comment savoir si votre code est en cours d'exécution en mode debug.
j'ai trouvé ce code quelque part sur Internet, je ne me souviens plus de la source, donc je ne peux pas le crédit de l'auteur original.
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









Ma demande est en cours de debogage ?


Ma demande est en cours de debogage ? : Plusieurs milliers de conseils pour vous faciliter la vie.


Comment savoir si votre code est en cours d'execution en mode debug.
j'ai trouve ce code quelque part sur Internet, je ne me souviens plus de la source, donc je ne peux pas le credit de l'auteur original.
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


Ma demande est en cours de débogage ?

Ma demande est en cours de débogage ? : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation