Você pode fazer isso de 2 formas:

1 - USANDO PARÂMETROS AO RODAR O PROGRAMA...
Como fazer isso? Clique em RUN/PARAMETERS
Digite: DEBUG
daí, no ONCREATE do MainForm, vc coloca:
if ParamStr(1) = 'DEBUG' THEN
begin
   // está em modo de debug
end;

2 - USANDO VARIÁVEIS PUBLICAS
Declare uma variável Boolean chamada DEBUGANDO na seção PUBLIC do MAINFORM
Coloque um BreakPoint (F5) na linha do ONCREATE do MainForm, com o seguinte conteúdo:

DEBUGANDO := FALSE;

Aperte F8 para pular de linha e depois CTRL F7.
Na janela que abre, digite DEBUGANDO e tecle Enter.
Vai aparecer FALSE no valor.... Daí, vc digita TRUE em NEW VALUE e clica no botão MODIFY.
Assim, vc faz manualmente o valor da var DEBUGANDO receber TRUE, e pode ter o controle se teu programa está em modo debug....

Tem outras formas tbém, mas isso fica por conta da sua imaginação...


rsrs

(ps: normalmente eu crio um arquivo em c:\ chamado DEBUG.TXT. Se ele existe, eu faço alguns controles a mais, como exibir telas a nível de programação, memos para SQLs, etc...)

Falou...


  ----- Original Message -----
  From: Brazilman2003
  To: delphi-br@yahoogrupos.com.br
  Sent: Tuesday, April 25, 2006 12:43 PM
  Subject: Re: [delphi-br] Detectar se aplicação está em modo Debug (executando pelo Delphi)


  Verifique se a janela Delphi está ativa, se estiver estará rodando via Delphi

  If FindWindows('Delphi 7') <> 0 then

  Júlio Abdala
    ----- Original Message -----
    From: andre_2703
    To: delphi-br@yahoogrupos.com.br
    Sent: Monday, April 24, 2006 2:41 PM
    Subject: [delphi-br] Detectar se aplicação está em modo Debug (executando pelo Delphi)


    Como detectar em runtime se a aplicação está em modo Debug (executando
    pelo Delphi) ?






    --
    <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>






  ------------------------------------------------------------------------------
    Links do Yahoo! Grupos

      a.. Para visitar o site do seu grupo na web, acesse:
      http://br.groups.yahoo.com/group/delphi-br/
       
      b.. Para sair deste grupo, envie um e-mail para:
      [EMAIL PROTECTED]
       
      c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.



  [As partes desta mensagem que não continham texto foram removidas]



  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>






------------------------------------------------------------------------------
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/
     
    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]
     
    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.



  __________ Informação do NOD32 IMON 1.1507 (20060425) __________

  Esta mensagem foi verificada pelo NOD32 sistema antivírus
  http://www.eset.com.br



[As partes desta mensagem que não continham texto foram removidas]



--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]




Links do Yahoo! Grupos

Responder a