Wie kann mein Programm erkennen, wenn Delphi läuft?

Ich habe gehört, dass einige benutzerdefinierte Komponente verwenden Autoren ein RTL-routine, die prüft, um zu sehen, wenn Delphi läuft, um die shareware-Einschränkungen. Weiß jemand, was diese routine ist? Überprüfung der offensichtlichen Namen wie "DelphiRunning" oder "IsDelphiRunning" lässt sich nicht einschalten, etwas sinnvolles.

InformationsquelleAutor Mason Wheeler | 2009-05-28
  1. 18

    Gibt es 2 unterschiedliche Ideen hier:

    - Delphi wird ausgeführt

    - Die Ausführung der Anwendung unter dem debugger

    Den gemeinsamen Weg, um zu testen, ob Delphi läuft ist zu überprüfen, die Anwesenheit des bekannten IDE-Fenster, die eine bestimmte Klassennamen wie TAppBuilder oder TPropertyInspector.

    Diese 2 Werke in allen Delphi-version IIRC.

    Wenn Sie wissen möchten, ob Ihre Anwendung unter dem debugger, also startete wie gewohnt in der IDE mit "Ausführen" (F9) oder an den debugger, während bereits ausgeführt wird, Sie müssen nur zum testen der DebugHook Globale variable.

    Beachten Sie, dass "Trennen aus dem Programm" entfernt nicht die DebugHook Wert, aber "an den Prozess Anhängen" setzt Sie.

    function IsDelphiRunning: Boolean;
begin
  Result := (FindWindow('TAppBuilder', nil) > 0) and
    (FindWindow('TPropertyInspector', 'Object Inspector') > 0);
end;

function IsOrWasUnderDebugger: Boolean;
begin
  Result := DebugHook <> 0;
end;

    Wenn das Ziel ist, beschränken Sie die Nutzung einer Testversion Ihrer Komponente zu, wenn die Anwendung wird entwickelt, beide haben Fehler:

    - Versteckte windows mit den richtigen Classname/Titel enthalten, können bei der Anwendung

    - DebugHook kann manuell im code festgelegt

    • +1,aber was tun, incase - DebugHook can be manually set in the code kurz gesagt, sowohl die Fehler,die Abhilfe?
    • dann starten Sie spielen Katz und Maus... Eine Sache zu erinnern ist aber, dass die Einstellung manuell DebugHook kann zum Absturz der Anwendung führen, wenn die Anwendung auf einen DebugBreak oder asm int 3 end und es gibt keinen wirklichen debugger...
    • oh ok :P...ok dann wenn Ihr zum Absturz der Anwendung ,ist es ok
    InformationsquelleAutor François
  2. 3

    Können Sie DebugHook <> 0, die von der Komponente code. DebugHook ist eine Globale variable (wenn ich mich Recht erinnere, ist es in den Systemen der Einheit), das von der Delphi/RAD Studio-IDE, und konnte nicht von irgendwo sonst.

    Gibt es andere Techniken (FindWindow() für TAppBuilder, zum Beispiel), aber DebugHook nimmt alles von der Arbeit aus ihm heraus.

    • DebugHook Berichte, die nur dann wahr, wenn F9 gedrückt wird, innerhalb der IDE. Es meldet nicht wahr, wenn Sie Strg + Umschalt + F9 gedrückt wird, innerhalb der IDE.
    • Natürlich, das ist wahr. Strg+Umschalt+F9 Ausführen ohne debugging, die ganz klar nicht festgelegt DebugHook. Aber dann, wenn Sie nicht unter Kontrolle des Debuggers, du bist nicht in der IDE ausgeführt, richtig?
    InformationsquelleAutor Ken White
  3. 1

    Dies ist ein code-snippet aus http://www.delphitricks.com/source-code/misc/check_if_delphi_is_running.html.

    function WindowExists(AppWindowName, AppClassName: string): Boolean; 
var 
  hwd: LongWord; 
begin 
  hwd    := 0; 
  hwd    := FindWindow(PChar(AppWindowName), PChar(AppClassName)); 
  Result := False; 
  if not (Hwd = 0) then {window was found if not nil} 
    Result := True; 
end; 

function DelphiLoaded: Boolean; 
begin 
  DelphiLoaded := False; 
  if WindowExists('TPropertyInspector', 'Object Inspector') then 
    if WindowExists('TMenuBuilder', 'Menu Designer') then 
      if WindowExists('TAppBuilder', '(AnyName)') then 
        if WindowExists('TApplication', 'Delphi') then 
          if WindowExists('TAlignPalette', 'Align') then 
            DelphiLoaded := True; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if DelphiLoaded then 
  begin 
    ShowMessage('Delphi is running'); 
  end; 
end; 


function DelphiIsRunning: Boolean; 
begin 
  Result := DebugHook <> 0; 
end;
    • Kopieren und einfügen von horror. Dieses code-snippet, das sollte gereinigt werden oder vergessen werden. Wirklich.
    InformationsquelleAutor Moayad Mardini
Schreibe einen Kommentar