因为Storage.dll是系统文件,已经被xp注册,xp会保护这个文件,你改名、删除、系统都会从dllcatch目录中恢复。我的解决办法是将你程序目录下的Storage.dll文件改名为Storage1.dll,然后将你所有关于Storage.dll的声明改为对Storage1.dll的声明,如下:
Public Declare Function BackupData Lib "storage1.dll" (ByVal filename As String, ByVal backname As String) As Long
Public Declare Function ResumeData Lib "storage1.dll" (ByVal filename As String, ByVal backname As String) As Long
Public Declare Function GetBit Lib "storage1.dll" (ByVal bit As Long, ByVal index As Integer) As Integer
Public Declare Function GetBits Lib "storage1.dll" (ByVal bit As String, ByVal l As Integer) As Long
Public Declare Function ShowHelp Lib "storage1.dll" (ByVal hwnd As Long, ByVal chmname As String, ByVal htmlname As String) As Long
Public Declare Function AddWndMsg Lib "storage1.dll" (ByVal hwnd As Long, ByVal msg As Long, ByVal procaddress As Long) As Long
我反正这样调试成功,见运行图如下: