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

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

[Daniel B]

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.