请高手修改编译错误

jyjfjszx

专家好，下在代码在XP中好用,现升级到WIN1064位系统出现错误,提示编译错误：“若在64位系统上使用,则必须更新此项目中的代码.请栓查并更新DECLARE语名,然后用PRTSAFE属性标记它们。“请问如何修改。代码如下：Declare Function SHBrowseForFolder Lib "shell64.dll" Alias"SHBrowseForFolderA" (lpBrowseInfo As FolderInfor) As Long

Declare Function SHGetPathFromIDList Lib"shell64.dll" Alias "SHGetPathFromIDListA" (ByVal pidl AsLong, ByVal pszPath As String) As Long

Private Declare Function FindWindow Lib"user64" Alias "FindWindowA" (ByVal lpClassName As String,ByVal lpWindowName As String) As Long

Private Declare Function EnableWindow Lib"user64" (ByVal hWnd As Long, ByVal fEnable As Long) As Long

jyjfjszx

顶起来啊，请高用答题啊，在下先谢谢谢谢了

jyjfjszx

求高手解答

jyjfjszx

重金悬赏高手解决我的问题，

jyjfjszx

重金悬赏高手解决我的问题，

qa_public

帮顶~~~~~~~

jifdan

在这里看到了相关的内容https://docs.microsoft.com/zh-cn/previous-versions/office/ee691831(v=office.14)类似于：
Option Explicit
#If Win64 Then  '当系统为64位时，运行
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongLong)
#Else           '当系统为32位时，运行
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If


sub程序

jifdan

无意间在官网上看到如下内容https://docs.microsoft.com/zh-cn ... ons/office/ee691831(v=office.14)
用法类似于：

Option Explicit
#If Win64 Then  '当系统为64位时，运行
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongLong)
#Else           '当系统为32位时，运行
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

sub程序