AcrobatReaderアプリケーションを終了する為には (ID:106130)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 アドバイスありがとうございます。 早速、下記の手順で試したのですが…。 ---------------------------------------------- 1.EnumWindowで全てのウィンドゥを列挙 2.GetWindowTextでハンドルや名前を取得 3.IsWindowVisibleで表示されているウィンドゥを取得 4.GetWindowTextで取得した名前の頭14バイトが"Acrobat Reader" である場合は、メッセージボックスを出す ---------------------------------------------- というところでまずは試してみたのですが、 1.EnumWindowのところで「DLLが正しく呼び出せません」 ようエラーになってしまい、うまくいきません。 なにか、コードが足りないのでしょうか？ ↓↓↓↓ コード ↓↓↓↓ 【標準モジール】 Option Explicit Public Declare Function EnumWindows Lib "USER32" (ByVal lpEnumFunc As Long, lPalam As Long) As Long Public Declare Function GetWindowText Lib "USER32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Public Declare Function IsWindowVisible Lib "USER32" (ByVal hWnd&) As Long Public Function Rekkyo(ByVal Handle As Long) As Boolean Dim Ret, RET2 As Long Dim Leng As Long Dim Name As String 'バッファ確保 Name = String(255, Chr(0)) Leng = Len(Name) '名前を取得する Ret = GetWindowText(Handle, Name, Leng) '表示されているWindowのみリストに追加 If Ret <> 0 Then RET2 = IsWindowVisible(Handle) If RET2 = 1 Then If Left(Name, 14) = "Acrobat Reader" Then MsgBox (Name) End If End If End If '次にいく Rekkyo = True End Function 【フォーム：コマンドボタンが貼り付けてあります】 Private Sub Command1_Click() Dim Ret As Long Ret = EnumWindows(AddressOf Rekkyo, 0) End Sub