VB中得到当前目录API定义 (转)[@more@]在
程序中,为了得到当前工作目录,使用了
api
函数GetCurrentDirectory,使用工具API Text Viewer中定义:
Public Declare Function GetCurrentDirectory Lib "kernel32" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
结果在程序出现 “实时错误‘453’,找不到DLL入口点 GetCurrentDirectory in kernel32 ",标准定认也会出错,当时也不相信,并且此函数刚在编的VC程序中 调用。于是用VC所带具DEPENDS.EXE打开kernel32.dll 文件,查找入口函数,发现有GetCurrentDirectoryA和GetCurrentDirectoryW两个函数,更改函数定义为:
Public Declare Function GetCurrentDirectoryA Lib "kernel32" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
程序通过。
注:操作 系统为98第二版
Public Declare Function GetCurrentDirectory Lib "kernel32" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
结果在程序出现 “实时错误‘453’,找不到DLL入口点 GetCurrentDirectory in kernel32 ",标准定认也会出错,当时也不相信,并且此函数刚在编的VC程序中 调用。于是用VC所带具DEPENDS.EXE打开kernel32.dll 文件,查找入口函数,发现有GetCurrentDirectoryA和GetCurrentDirectoryW两个函数,更改函数定义为:
Public Declare Function GetCurrentDirectoryA Lib "kernel32" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
程序通过。
注:操作 系统为98第二版
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-990609/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10752043/viewspace-990609/