剛接手一個VB程式，以前沒用過VB，結果碰到好多問題啊。。都快瘋了。
我的需求：
呼叫exe所在檔案夾下的一個dll檔案
dll的介面函式：
extern "C" __declspec(dllexport) int LOGON_LogOn(void);
我的方法：
VB6不能使用相對路徑來呼叫。。。
so我用了LoadLibrary
代碼如下：
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long
Private Sub Form_Load()
On Error Resume Next
Dim lb As Long, pa As Long
Lb = LoadLibrary("LogOn.dll")
pa = GetProcAddress(lb, "LOGON_LogOn")
CallWindowProc GetProcAddress(lb, "LOGON_LogOn"), Me.hWnd, 0, 0, 0
FreeLibrary lb
End Sub
結果CallWindowProc GetProcAddress(lb, "LOGON_LogOn"), Me.hWnd, 0, 0, 0出錯
查了一下，發現CallWindowProc只能參考：有四個入參的函式....
那請問大俠，我想要呼叫任意個數的DLL介面函式，該如何實作？
或者更直接一點，如何才能讓我使用相對路徑來呼叫DLL？
uj5u.com熱心網友回復：
費那事兒。你把LogOn.dll放在c:\windows\system32檔案夾下（Win64位系統放在c:\windows\syswow64檔案夾下）
Private Declare Function LOGON_LogOn Lib "LogOn" () As Long
uj5u.com熱心網友回復：
系統會自動查找以下路徑：* 可執行檔案（程式）所在的路徑，可能就是你所說的 exe 所在路徑；
* Windows 所在路徑
* Windows\System32 路徑
所以，你直接如 1 樓宣告即可呼叫。
“VB6不能使用相對路徑來呼叫。。。”是聽誰說的？
uj5u.com熱心網友回復：
我就是不想使用這個，我想把dll和組態檔，exe等放在一個檔案夾下，這樣在其他機器上使用時直接拷貝過去就可以了。
如果直接顯式呼叫，Private Declare Function
我怎么還會這么煩呢。。
uj5u.com熱心網友回復：
確實不行啊，或者你給我段代碼參考一下?
Private Declare Function LOGON_LogOn Lib "LogOn" () As Long
Private Declare Function LOGON_LogOn Lib ".\LogOn" () As Long
Private Declare Function LOGON_LogOn Lib "\LogOn" () As Long
都不行，
必須是絕對路徑
uj5u.com熱心網友回復：
Declare 陳述句示例
該示例演示如何在標準模塊的模塊級使用 Declare 陳述句來宣告對元件 (DLL) 中的一個外部程序的參考。如果是 Private 的 Declare 陳述句，則可以用于類模塊。
'在 Microsoft Windows（16 位）中：
Declare Sub MessageBeep Lib "User" (ByVal N As Integer)
'假設 SomeBeep 是該程序名的別名。
Declare Sub MessageBeep Lib "User" Alias "SomeBeep"(ByVal N As Integer)
'在 Alias 子句使用順序號來呼叫 GetWinFlags。
Declare Function GetWinFlags Lib "Kernel" Alias "#132"() As Long
'在 32 位 Microsoft Windows 系統中，指定的庫應是 USER32.DLL，
'而不是 USER.DLL。可以使用條件編譯來撰寫
'既可在 Win32 又可在 Win16 環境運行的代碼。
#If Win32 Then
Declare Sub MessageBeep Lib "User32" (ByVal N As Long)
#Else
Declare Sub MessageBeep Lib "User" (ByVal N As Integer)
#End If
uj5u.com熱心網友回復：
用這個不會死人的！
uj5u.com熱心網友回復：
流行的安裝程式都用這個的。
uj5u.com熱心網友回復：
我已經說了，我需要的不是這個
我需要的是能使用相對路徑來呼叫DLL。因為條件規定就是一個工具包，沒有安裝，在任意電腦上解壓直接可用。
如果用Private Declare Function可以實作，可以告訴我怎么在這條代碼里面使用相對路徑嗎？
或者使用LoadLibrary的話，如何才能讓CallWindowProc呼叫只有一個引數的函式？
uj5u.com熱心網友回復：
我可以換個方式，比如在LoadForm時運行一個bat檔案，自動把dll拷貝到System32目錄下。但是這樣只是換個方法實作而且，而且治標不治本。
萬一有的電腦有系統檔案夾訪問權限，這樣就執行不了了。
所以我才想問一下，有什么辦法能在代碼中呼叫相對路徑的DLL（DLL就放在程式exe同目錄下）
因為我對VB不熟悉，現在又需要拿VB來改以前別人寫的一個測量程式。
uj5u.com熱心網友回復：
可不可以在環境變數里加path？uj5u.com熱心網友回復：
你就照 1 樓那樣宣告。然后將 DLL 放在可執行程式同一路徑下即可。我從來就沒有用過動態加載。做安裝包時，注意將 DLL 的路徑改為 AppPath（預設是系統路徑）。
uj5u.com熱心網友回復：
注意，相對路徑，相對的就是可執行檔案的當前路徑。至于 VB 提供的 Windows 路徑，Windows System 路徑， Visual Basic 路徑，都時一些附送的便利。此外，微軟認為你使用的 DLL 可能是公用的，放在系統路徑中，當你卸載程式時，DLL 仍會保留。
uj5u.com熱心網友回復：
LoadLibraryThe LoadLibrary function maps the specified executable module into the address space of the calling process.
HINSTANCE LoadLibrary(
LPCTSTR lpLibFileName // address of filename of executable module
);
Parameters
lpLibFileName
Pointer to a null-terminated string that names the executable module (either a .DLL or .EXE file). The name specified is the filename of the module and is not related to the name stored in the library module itself, as specified by the LIBRARY keyword in the module-definition (.DEF) file.
If the string specifies a path but the file does not exist in the specified directory, the function fails. When specifying a path, be sure to use backslashes (\), not forward slashes (/).
If the string does not specify a path, the function uses a standard search strategy to find the file. See the Remarks for more information.
Return Values
If the function succeeds, the return value is a handle to the module.
If the function fails, the return value is NULL. To get extended error information, call GetLastError.
Remarks
LoadLibrary can be used to map a DLL module and return a handle that can be used in GetProcAddress to get the address of a DLL function. LoadLibrary can also be used to map other executable modules. For example, the function can specify an .EXE file to get a handle that can be used inFindResource orLoadResource. Do not use LoadLibrary to "run" a .EXE file.
If the module is a DLL not already mapped for the calling process, the system calls the DLL's DllMain function with the DLL_PROCESS_ATTACH value. If the DLL's entry-point function does not return TRUE, LoadLibrary fails and returns NULL.
It is not safe to call LoadLibrary from DllMain. For more information, see the Remarks section in DllMain.
Module handles are not global or inheritable. A call to LoadLibrary by one process does not produce a handle that another process can use — for example, in calling GetProcAddress. The other process must make its own call to LoadLibrary for the module before calling GetProcAddress.
If no filename extension is specified in the lpLibFileName parameter, the default library extension .DLL is appended. However, the filename string can include a trailing point character (.) to indicate that the module name has no extension. When no path is specified, the function searches for loaded modules whose base name matches the base name of the module to be loaded. If the name matches, the load succeeds. Otherwise, the function searches for the file in the following sequence:
The directory from which the application loaded.
The current directory.
Windows 95 and Windows 98: The Windows system directory. Use theGetSystemDirectory function to get the path of this directory.
Windows NT: The 32-bit Windows system directory. Use the GetSystemDirectory function to get the path of this directory. The name of this directory is SYSTEM32.
Windows NT: The 16-bit Windows system directory. There is no function that obtains the path of this directory, but it is searched. The name of this directory is SYSTEM.
The Windows directory. Use theGetWindowsDirectory function to get the path of this directory.
The directories that are listed in the PATH environment variable.
The first directory searched is the one directory containing the image file used to create the calling process (for more information, see the CreateProcess function). Doing this allows private dynamic-link library (DLL) files associated with a process to be found without adding the process's installed directory to the PATH environment variable.
The Visual C++ compiler supports a syntax that enables you to declare thread-local variables: _declspec(thread). If you use this syntax in a DLL, you will not be able to load the DLL explicitly using LoadLibrary or LoadLibraryEx. If your DLL will be loaded explicitly, you must use the thread local storage functions instead of _declspec(thread).
Windows 95: If you are using LoadLibrary to load a module that contains a resource whose numeric identifier is greater than 0x7FFF, LoadLibrary fails.
Windows CE: Two different modules cannot have the same filename, given that the extensions are different. These effectively have the same "module" name. For example, if LoadLibrary is made on "Sample.cpl", the operating system will not load Sample.cpl, but instead will again load Sample.dll. A similar limitation exists for modules with the same name but residing in different directories. For example, if LoadLibrary is called on "\\Windows\Sample.dll", and then LoadLibrary is called on "\\MyDir\Sample.dll", "\\Windows\Sample.dll" will simply be reloaded.
A search path to the executable module cannot be specified. Unless the full path to the module is given, Windows CE will search the following path for the module:
The root directory of the PC Card RAM expansion card, if one exists.
The windows directory (\Windows).
The root directory (\).
QuickInfo
Windows NT: Requires version 3.1 or later.
Windows: Requires Windows 95 or later.
Windows CE: Requires version 1.0 or later.
Header: Declared in winbase.h.
Import Library: Use kernel32.lib.
Unicode: Implemented as Unicode and ANSI versions on Windows NT.
See Also
Dynamic-Link Libraries Overview, Dynamic-Link Library Functions, DllMain,FindResource, FreeLibrary, GetProcAddress,GetSystemDirectory,GetWindowsDirectory, LoadLibraryEx,LoadResource
uj5u.com熱心網友回復：
http://www.vbgood.com/forum.php?mod=viewthread&tid=88386&extra=&mobile=yes看看這個行嗎?
uj5u.com熱心網友回復：
壇子上有這個問題的討論。找不到路徑是在VS環境中，你要是編譯生成exe了，執行exe的時候，不會找不到。
你可以試試，應該這個問題根本就不用擔心。
如果你實在覺得即使在Visual Basic環境下未編譯的時候也不想拷貝那個dll，偷來的代碼：
做一點特殊處理：
Function InDebugMode() As Boolean
OnError Goto ErrProc:
Debug.Print 1 / 0
InDebugMode = False
Exit Function
ErrProc:
InDebugMode = True
End Function
在主程式中
If InDebugMode Then
使用一個硬編碼的路徑
Else
使用App.Path找相對路徑
End If
uj5u.com熱心網友回復：
用Declare宣告API，直接就能用了，干嗎在VB6中來“動態呼叫”！你說的那些“路徑問題”根本就是不存在的問題。
樓主真是沒事找事！
uj5u.com熱心網友回復：
兄弟，都三星了啊。VB能夠呼叫的DLL，要宣告成_stdcall。
uj5u.com熱心網友回復：
嚴重同意17樓！先用C封裝一個 dll，介面為 stdcall 的，也放在 exe 目錄下。
然后直接 Declare 宣告即可呼叫。
不用 LoadLibrary，也不存在路徑問題，一切 OK！
uj5u.com熱心網友回復：
我是用這個方式實作的：Function RunDll(SubFunctionName As String, ParamArray Parameters() As Variant)
RunDll （“LOGON_LogOn”,引數1,引數2,引數3,引數4)
ParamArray Parameters(，這個是可以壓入任意個引數的
uj5u.com熱心網友回復：
同意18Luj5u.com熱心網友回復：
一定要用stdcall，動態不動態呼叫取決于需求。如果需要動態呼叫，網上搜，有相關類別庫，專門實作這個功能的。uj5u.com熱心網友回復：
剛升3星沒多久。
最近偶爾來看看，回復一些貼子。
我用手機上的論壇，我自己都不清楚哪天升級的。
手機上進論壇后，必須要點“電腦版”，才能看到頭像和等級。
要不然只看到個ID，不是特別熟悉的人，都“不認識”呢。
你好像很久沒有來論壇了，現在怎么有空來呀？
uj5u.com熱心網友回復：
我都是這樣操作的，全記憶體處理，把DLL當成資源檔案，然后呼叫DLL里面的函式就行了,引數個數無限制。缺點是360有時會當成病毒，優點是可以做成綠色軟體，一個EXE包含所有的DLL,OCX，COMDLL也不需要注冊,OCX控制元件也不需要注冊就能使用。Function RunDll(SubFunctionName As String, ParamArray Parameters() As Variant)
RunDll （“LOGON_LogOn”,引數1,引數2,引數3,引數4)
ParamArray Parameters(，這個是可以壓入任意個引數的
uj5u.com熱心網友回復：
OCX不用注冊？COM DLL也不用注冊？你忽悠誰呢！！！
你如果通程序式指令完成注冊程序，
那不代表“不需要注冊”！
OCX檔案如果跟.EXE放一塊，
那可以說“不用注冊”：
系統加載程式時，會幫你把它注冊。
但COM的DLL好像跟.exe放一起也不行。
更何況，你說你的“全在記憶體中”，
系統在哪去找它？
uj5u.com熱心網友回復：
系統要找一個東西，并不一定要在**檔案夾中查找的。說白了，DLL，ocx都只是一些二進制代碼，如果有能力把這些代碼直接加到本EXE之內，也可以說相當于這些二進制代碼就是EXE自身的一部分。全記憶體中是可以完全實作的，需要用到匯編之類的技術，難度是比較大一點。一般的注冊OCX,之類是需要寫注冊表好幾個地方的，不注冊呢，無非是用代碼來實作這些要寫注冊表的GUID之類的內部呼叫。uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/113917.html
標籤：VB基礎類
上一篇：OLE服務器沒有注冊