Im debugging ja, sonst nicht?

[Surrounder]

Gibt es in Delphi eine Möglichkeit zu sagen dass es bestimmte Dinge nur ausführen soll ( also z.B. einen Funktionsaufruf ) wenn er aus Delphi heraus, also im debugging gestartet wird? Und wenn jemand die direkte exe startet nicht

Ich hab schon bei den Compilerschaltern geschaut aber ich glaub die Helfen mir da nicht.

Danke für einen Tip

[barf00s]

bRunFunction: boolean;


OnFormCreate:

bRunFunction := ParamCount >= 1;

...


procedure Foobar;
begin
if bRunFunction then
Haxx('blah')
else
;
end;


Run -> Parameters -> "blubb"




so "könnte" mans vllt machen

[Dax]

Wenn ich mich richtig erinnere, gibts noch sowas wie "IsDebuggerPresent" oder ähnlich, dürfte besser sein

[jfheins]

Genau, IsDebuggerPresent ist hier der bessere Weg.

[Surrounder]

Zitat von jfheins:

Genau, IsDebuggerPresent ist hier der bessere Weg.

OT: netter Avatar


Hab gerade gesehen in den Jedi Tools gibt es ja auch was, IsDebuggerAttached

Danke für die Hilfe

[barf00s]

"Oh genau, IsDebuggerPresent"

-.-°

[TeronG]

schon gelöst ??
hab hier schommal das

Delphi-Quellcode:

function  IDEStart: Boolean;
begin
  if DebugHook <> 0 then
    result := True                            // IDE-Start
  else
    result := False;                          // KEIN IDE-Start
end;

bzw das

Delphi-Quellcode:

function IDEStart: boolean; stdcall;
asm
  MOV     EAX, FS:[030H]
  TEST    EAX, EAX
  JS      @@W9X
@@WNT:
  MOV EAX, FS:[$18]
  MOV EAX, [EAX+$30]
  MOVZX EAX, [EAX+2]
  RET
@@W9X:
  MOV EAX, [$BFFC9CE4]
  MOV ECX, [EAX]
  CMP [ECX+$54], 00000001
  SBB EAX, EAX
  INC EAX
  RET
end;

gefunden

[HERMES]

mit kompilerschaltern scheint mir eigentlich der beste weg zu sein
{$ifdef debug}
...
{$endif}

[Dax]

Ja, Compilerschalter. Die sind nur für den Compiler. Aber nicht jeder Start aus der IDE kompiliert neu, und wenn man so arbeitet, kann man leicht einen Schalter vergessen