Autor Téma: Ako zistím či je aplikácia spustená z Delphi?  (Přečteno 381 krát)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 6141
  • Karma: 44
    • Verze Delphi: W10 + D11
Ako zistím či je aplikácia spustená z Delphi?
« kdy: 21-11-2021, 20:36:32 »
Ak aplikácia beží z Delphi, tak pri obnove databázy sa s DB nedá nič robiť. Rád by som si vypísal oznam o čo ide. Lebo na to určite zabudnem. {$IFNDEF DEBUG} nemusí stačiť.
Je to možné?
W10 64b, Delphi 10.4, FireBird 3.08
Expert na kladenie nejasne formulovaných otázok.

Offline Radek Červinka

  • Administrátoři
  • Padawan
  • *****
  • Příspěvků: 3002
  • Karma: 108
    • Verze Delphi: D2007, DXE + 2 poslední
    • O Delphi v češtině
Re:Ako zistím či je aplikácia spustená z Delphi?
« Odpověď #1 kdy: 21-11-2021, 20:43:49 »
if IsDebuggerPresent then xx

Coz neni uplne test na delphi, ale zda je aplikace spustena s debuggerem. Ale mi to vetsinou stacilo.
Embarcadero MVP - Czech republic

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 6141
  • Karma: 44
    • Verze Delphi: W10 + D11
Re:Ako zistím či je aplikácia spustená z Delphi?
« Odpověď #2 kdy: 21-11-2021, 21:19:07 »
To mi úplne stačí. Veď ide len o pripomenutie o čo go. Málokedy púšťam niečo bez debuggera. Ale v takom prípade určite nepracujem/nebudem pracovať s DB.
Ďakujem.
W10 64b, Delphi 10.4, FireBird 3.08
Expert na kladenie nejasne formulovaných otázok.

Offline pepak

  • Padawan
  • ******
  • Příspěvků: 1559
  • Karma: 37
    • Pepak.net
Re:Ako zistím či je aplikácia spustená z Delphi?
« Odpověď #3 kdy: 22-11-2021, 20:52:15 »
Osobně ještě raději testuji DebugHook <> 0, protože do toho je skoro vyloučené, aby zasahoval jiný debugger než Delphovský.

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 6141
  • Karma: 44
    • Verze Delphi: W10 + D11
Re:Ako zistím či je aplikácia spustená z Delphi?
« Odpověď #4 kdy: 22-11-2021, 22:02:08 »
Great
Rated 1 time
Ale ja iný nemám. Takže mi to stačí :D  Podľa Tvojho príspevku aj tak neviem o čom presne píšeš.
W10 64b, Delphi 10.4, FireBird 3.08
Expert na kladenie nejasne formulovaných otázok.