2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
無料ブログはココログ

« インターネットエクスプローラの起動スイッチ | トップページ | Vista+IE8(IE7?)で、制限付きサイトゾーンのフォルダが使える。 »

2009年8月 2日 (日)

Vista以降で、現在または最後にアクティブなシェルを捕捉する。

Win32APIのFindWindow()を併用すれば、正確に捕捉できます。

hwnd=CreateObject("Excel.Application").ExecuteExcel4Macro("CALL(""user32"",""FindWindowA"",""JCJ"",""CabinetWClass"",0)")
For Each ie In CreateObject("Shell.Application").Windows()
  If ie.hwnd=hwnd Then Exit For
Next
If IsEmpty(ie) Then
  MsgBox "Not Found"
Else
  MsgBox ie.Document.Folder.Self.Path
End If

« インターネットエクスプローラの起動スイッチ | トップページ | Vista+IE8(IE7?)で、制限付きサイトゾーンのフォルダが使える。 »