Detectar si mi aplicación se está ejecutando en el IDE "Delphi 2007 .Net"

Question

¿Cómo puedo detectar si mi aplicación se está ejecutando en el IDE "Delphi 2007 .Net", hay algo así como DebugHook?

Adiós.

Answer 1

Responda mi propia pregunta.

uses System.Diagnostics; 

function IDEDelphiNetRunning:Boolean; 
Begin 
Result:=Debugger.IsAttached; 
End; 

funciona bien para mí.

Adiós.

Answer 2

La llamada WinAPI de IsDebuggerPresent().

Answer 3

Algo así como:

Function IDEIsRunning : boolean; 
begin 
    result := DebugHook <> 0; 
end; 

podrían ser adecuadas.

Answer 4

que consideran que esta respuesta más general, desde embarcadero

Uso IsDebuggerPresent() la llamada API de Windows. Ejemplo en C++:

if (IsDebuggerPresent()) 
    Label1->Caption = "debug"; 
else 
    Label1->Caption = "no debug"; 

Answer 5

La unidad JEDI JclDebug.pas contiene lo siguiente:

function IsDebuggerAttached: Boolean; 
var 
    IsDebuggerPresent: function: Boolean; stdcall; 
    KernelHandle: THandle; 
    P: Pointer; 
begin 
    KernelHandle := GetModuleHandle(kernel32); 
    @IsDebuggerPresent := GetProcAddress(KernelHandle, 'IsDebuggerPresent'); 
    if @IsDebuggerPresent <> nil then 
    begin 
    // Win98+/NT4+ 
    Result := IsDebuggerPresent 
    end 
    else 
    begin 
    // Win9x uses thunk pointer outside the module when under a debugger 
    P := GetProcAddress(KernelHandle, 'GetProcAddress'); 
    Result := DWORD(P) < KernelHandle; 
    end; 
end; 

Answer 6

function IsDebugMode():Boolean; 
begin 
    Result:=False; 
{$IFDEF DEBUG} 
    Result:=True; 
{$ENDIF} 
end;