Sleep API conversion 32 / 64 bit

[tiredofit]

I want to find a conversion for the Sleep API.

Should it be:

#If  VBA7 Then ' Excel 2010 or later
 
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As LongPtr)
 
#Else  ' Excel 2007 or earlier
 
    Public Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long)
 
#End  If

or

#If  Win64 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else 
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
#End  If

I have seen another API and it's very complicted:

#If  VBA7 Then    ' (OFFICE 2010 AND LATER - Either 32bit or 64bit Editions)
    
        Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
                                                                                      ByVal lpWindowName As String) As LongPtr
    
        #If  Win64 Then   '(64bit OS) AND (64bit Office)
        
            Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongPtrA" (ByVal hWnd As LongPtr, _
                                                                                                   ByVal nIndex As Long) As LongPtr
                                                                                                   
            Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" (ByVal hWnd As LongPtr, _
                                                                                                   ByVal nIndex As Long, _
                                                                                                   ByVal dwNewLong As LongPtr) As LongPtr
        
        #Else     ' (32 or 64 bit OS) AND (32bit Office)
            
            Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, _
                                                                                                ByVal nIndex As Long) As Long
                                                                                                
            Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, _
                                                                                                ByVal nIndex As Long, _
                                                                                                ByVal dwNewLong As Long) As Long
         
         #End  If
    
    #Else     ' (OFFICE 2007 AND BEFORE)  .. Both (32bit OS) AND (32bit Office)
    
        Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
                                                                              ByVal lpWindowName As String) As Long
                                                                              
        Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, _
                                                                                    ByVal nIndex As Long) As Long
                                                                                    
        Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, _
                                                                                    ByVal nIndex As Long) As Long
    
    #End  If
    
    Private Const WS_SYSMENU = &H80000
    Private Const GWL_STYLE = (-16)

Thanks

 

[jkpieterse]

As far as I know, the correct declaration is:

#If VBA7 Then
Declare PtrSafe Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
#Else 
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
#End  If

 

[tiredofit]

As far as I know, the correct declaration is:

#If VBA7 Then
Declare PtrSafe Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
#Else 
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
#End  If

Thanks


Will that take care of all the combinations, ie?


OFFICE 2010 AND LATER - Either 32bit or 64bit Editions
(32 or 64 bit OS) AND (32bit Office)
(OFFICE 2007 AND BEFORE) .. Both (32bit OS) AND (32bit Office)

 

[Jaafar Tribak]

Thanks


Will that take care of all the combinations, ie?


OFFICE 2010 AND LATER - Either 32bit or 64bit Editions
(32 or 64 bit OS) AND (32bit Office)
(OFFICE 2007 AND BEFORE) .. Both (32bit OS) AND (32bit Office)

Yes.

 

[RoryA]

Either of your two options should work for Sleep.

 

[tiredofit]

Thanks