Hvordan fortelle om koden blir kjørt i debug mode.I fant denne koden et sted på Internett, jeg kan ikke huske kilden slik at jeg ikke kan kreditere den opprinnelige author.function DebuggerPresent: boolean -typen TDebugProc = funksjon: boolean; STDCALL; Var Kernel32: HMODULE; DebugProc: TDebugProc; begynne Resultat: = False; Kernel32: = GetModuleHandle ('kernel32.dll'); hvis Kernel32 < > 0 da begynneDebugProc: = GetProcAddress (Kernel32, 'IsDebuggerPresent'); hvis Assigned (DebugProc) da Resultat: = DebugProc; end, end; Anmeldelser