Einzelnen Beitrag anzeigen

Benutzerbild von TeronG
TeronG

Registriert seit: 19. Jul 2004
Ort: München
960 Beiträge
 
Delphi 2007 Professional
 
#7

Re: Im debugging ja, sonst nicht?

  Alt 20. Jul 2005, 16:01
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
龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.
  Mit Zitat antworten Zitat