Běží aplikace v IDE nebo je zkompilována ?

Funkce:
Private Declare Function FindWindowEx Lib "user32" Alias _
   "FindWindowExA" ( ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
   ByVal lpsz1 As String, ByVal lpsz2 As String) As Long 

Private Function RunningInIDE() As Boolean 

   Dim hWnd As Long 

   hWnd = FindWindowEx(0&, 0&, "ThunderFormDC", Me.Caption) 

   RunningInIDE = (hWnd = Me.hWnd) 

End Function 

Zpět

Autor: The Bozena