W jaki sposób mój program może powiedzieć, czy działa Delphi?

Question

Słyszałem, że niektórzy autorzy komponentów niestandardowych używają procedury RTL, która sprawdza, czy Delphi działa, aby skonfigurować ograniczenia shareware. Czy ktoś wie, co to za rutyna? Sprawdzanie oczywistych nazw, takich jak "DelphiRunning" lub "IsDelphiRunning", nie przynosi niczego użytecznego.

Answer 1

Istnieje 2 różne pomysły tutaj:
- Delphi jest uruchomiony i działa
- Aplikacja działa pod debugger

Wspólna sposobem sprawdzenia czy Delphi pracuje jest sprawdzenie obecność znanych okien IDE, które mają określoną nazwę klasy, taką jak TAppBuilder lub TPropertyInspector.
Te 2 prace we wszystkich wersjach Delphi IIRC.

Jeśli chcesz wiedzieć, czy aplikacja jest uruchomiona pod debugera, tj uruchomiony normalnie z IDE z „Uruchom” (F9) lub dołączony do debugera gdy już działa, po prostu trzeba przetestować DebugHook globalny zmienna.
Należy zauważyć, że "Odłącz od programu" nie usuwa wartości DebugHook, ale "Dołącz do procesu" ustawia ją.

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

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

Jeśli celem jest ograniczyć korzystanie z próbnej wersji swojego komponentu, gdy aplikacja jest rozwijany, mają zarówno wady:
- Ukryte okna z właściwego className/tytuł może być włączone do aplikacji
- DebugHook można ustawić ręcznie w kodzie

Answer 2

To jest fragment kodu z 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; 

Answer 3

Możesz użyć DebugHook <> 0 ze swojego kodu komponentu. DebugHook jest zmienną globalną (IIRC, znajduje się w jednostce Systems) ustawioną przez IDE Delphi/RAD Studio i nie można jej ustawić nigdzie indziej.

Istnieją inne techniki (FindWindow() dla TAppBuilder, na przykład), ale DebugHook bierze całą pracę z tego.