E POSSIVEL SABER COMO O SISTEMA FOI EXECUTADO?

INFOSISTEMAS 27/02/2012 10:35:12
#395756

[ô]vc coloca no load do 1º form da sua aplicação

If App.PrevInstance Then
MsgBox App.EXEName + [Ô] Já Está Sendo Executando [Ô], 48
End
End If

FAUZE 27/02/2012 10:39:29
#395758

Olá Wanderson obrigado,

Mas não é isso que eu quero saber, por exemplo:
Existem algumas funções que são executadas na abertura do sistema que não são preciso executá-las quando estou trabalhando no desenvolvimento, então queria indentificar se o sistema está sendo executado no cliente ou se estou executando atraves do VB.

FAUZE 27/02/2012 10:58:19
#395762

Alevale,

Gostaria de saber se o sistema está sendo executado em tempo de programação ( na minha máquina) ou em tempo real (no cliente), tem como?

KERPLUNK 27/02/2012 11:15:18
#395765

Em um módulo:
Option Explicit

Private Declare Function GetModuleFileName Lib [Ô]kernel32[Ô] Alias [Ô]GetModuleFileNameA[Ô] (ByVal hModule As Long, _
ByVal lpFileName As String, _
ByVal nSize As Long) _
As Long
Private Declare Function GetModuleHandle Lib [Ô]kernel32[Ô] Alias [Ô]GetModuleHandleA[Ô] (ByVal lpModuleName As String) As Long

Private Function InIDE() As Boolean
Dim s As String

s = Space$(255)

Call GetModuleFileName(GetModuleHandle(vbNullString), s, Len(s))

InIDE = (UCase$(Trim$(s)) Like [Ô]*VB6.EXE*[Ô])

End Function

Quando quiser saber se está no exe ou IDE:
If InIDE then
msgbox [Ô]rodando na IDE[Ô]
else
msgbox [Ô]Rodando o executável[Ô]
end if

RICATOM 27/02/2012 11:21:38
#395766 Resposta escolhida

If App.LogMode = 1 Then [ô]compilado
msgbox [Ô]Rodando o executável[Ô]

Else
msgbox [Ô]rodando na IDE[Ô]
End If