Notes

Attribute VB_Name = "API_Module"
Option Explicit

'**********************************************************************************************

'API宣言
'64ビット
#If VBA7 And Win64 Then
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
'32ビット
#Else
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

'**********************************************************************************************

'アプリケーションが開いているか確認

Public Function CheckOpenedApp(Optional ByVal strClassName As String = vbNullString, _
Optional ByVal strTitle As String = vbNullString) As Boolean
Dim hWnd As Long

CheckOpenedApp = False
hWnd = FindWindow(strClassName, strTitle)
If hWnd > 0 Then CheckOpenedApp = True

End Function

'**********************************************************************************************

'処理を指定時間中断(ミリ秒)

Public Sub Sleep_Time(ByVal lMilliSecond As Long)

Sleep lMilliSecond

End Sub

'**********************************************************************************************