mdid
if DebugHook <> 0 then ShowMessage('Debug') else ShowMessage('Release');
второй вариант определения находится ли наш процесс под отладкой:
function degugMode;
var
Debug : LongBool;
begin
CheckRemoteDebuggerPresent(GetCurrentProcess(), Debug);
exit(degugMode);
end;
з.ы.
ай-яй-яй, это не то, не внимательно прочитал вопрос..
if DebugHook <> 0 then ShowMessage('Debug') else ShowMessage('Release');
второй вариант определения находится ли наш процесс под отладкой:
function degugMode;
var
Debug : LongBool;
begin
CheckRemoteDebuggerPresent(GetCurrentProcess(), Debug);
exit(degugMode);
end;
з.ы.
ай-яй-яй, это не то, не внимательно прочитал вопрос..