起動している ArcGIS Desktop アプリケーションの取得

 2016/9/1 (木)    

Public Sub GetRunningApplications()
    Dim pAppROT As IAppROT
    Set pAppROT = New AppROT
     
    Dim pApp As IApplication
    Set pApp = pAppROT.Item(1)
     
    Debug.Print pApp.hWnd
 
End Sub

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.