Programm innerhalb IDE gestartet?

[Domino]

Hallo DP,

wie kann man feststellen, ob ein Programm innerhalb der IDE gestartet wurde?

Gruß Domino

[toms]

Hi!

Gib wahrscheinlich verschiedene Möglichkeiten, dies herauszufinden.

Hier mal eine Möglichkeit:

Delphi-Quellcode:

type
  TIsDebuggerPresent = function: BOOL;

function IsDebuggerPresent: Boolean;
var
  hKernel32: Integer;
  IsDebuggerPresent: TIsDebuggerPresent;
  VerInfo: TOsVersionInfo;
begin
  Result := False;
  VerInfo.dwOSVersionInfoSize := SizeOf(VerInfo);
  GetVersionEx(VerInfo);
  if (VerInfo.dwPlatformId = VER_PLATFORM_WIN32_NT) and
    (VerInfo.dwMajorVersion >= 4) then
  begin
    hKernel32 := LoadLibrary('KERNEL32.DLL');
    if hKernel32 > 0 then
    begin
      IsDebuggerPresent := GetProcAddress(hKernel32, 'IsDebuggerPresent');
      if Assigned(IsDebuggerPresent) then
        Result := IsDebuggerPresent;
      FreeLibrary(hKernel32);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsDebuggerPresent() = True then
    ShowMessage( 'Debugger or IDE entdeckt' )
  else
    ShowMessage( 'Debugger or IDE NICHT entdeckt' );
end;

[APP]

Hallo

ich würde es so machen:

Delphi-Quellcode:

   
FUNCTION inIDE: Boolean;
   BEGIN
      // Klassenname von Delphi is TAppbuilder
      Result := FindWindow('TAPPBUILDER', NIL) <> 0;
   END;

[toms]

Die Function inIDE ist aber nicht unbedingt sicher,
d.h kann leicht ausgetrickst werden.

[APP]

Hallo toms,

da hast Du natürlich Recht, Deine Funktion ist total sophisticated,
aber wer denkt bei obiger Fragestellung schon etwas Böses :mrgreen: :mrgreen:

Falls Domino Komponenten oä. nur in der IDE lauffähig anbieten möchte
(z.B. als Shareware), dann ist meine Lösung unsicher, zum schnellen
Auffinden ob IDE oder nicht aber kürzer :zwinker:

[Daniel B]

Zitat:

Zitat von toms

Die Function inIDE ist aber nicht unbedingt sicher,
d.h kann leicht ausgetrickst werden.

Na Klar, aber von wem?

[toms]

Zitat:

Falls Domino Komponenten oä. nur in der IDE lauffähig anbieten möchte
(z.B. als Shareware), dann ist meine Lösung unsicher

That's the point.

[Domino]

Hallo toms,
vielen Dank für Deine Lösung.
Mir ist noch eine Möglichkeit eingefallen: Beim Start innerhalb der IDE einen Parameter mitgeben und diesen auswerten.
Hintergrund der Fragestellung: eine Dll zur Kommunikation mit einer S7-Steuerung funktioniert nicht in der Entwicklungsumgebung von Delphi !?!. Für die Entwicklungsumgebung gibt es eine abgespeckte Version. Daher muss ich die entsprechende Dll zur Laufzeit dynamisch einbinden..

Gruß
Domino

[toms]

Zitat:

Beim Start innerhalb der IDE einen Parameter mitgeben und diesen auswerten.

Für deinen Fall wäre das sicher eine angemessene Lösung.