Mega Code Archive

 

Categories / Delphi / Hardware

 

Debug yapılıyormu [kenel yardımıyla öğrenin]

function DebuggerPresent: boolean; type TDebugProc = function: boolean; stdcall; var Kernel32: HMODULE; DebugProc: TDebugProc; begin Result := False; Kernel32 := GetModuleHandle('kernel32.dll'); if Kernel32 <> 0 then begin @DebugProc := GetProcAddress(Kernel32, 'IsDebuggerPresent'); if Assigned(DebugProc) then Result := DebugProc; end; end; //to use a simple if test can be used if DebuggerPresent then ShowMessage('debugging') else ShowMessage('NOT debugging');