各位前輩請教一下: 於Delphi中製的DLL如何給VB使用?? 我有下載00017869_dllDemo 但是於VB6用[設定使用項目]-->按瀏覽-->選擇DLL 出現錯誤[無法引用所指定的檔] 設問要如何修改才可以使用?? 還是不能用[設定使用項目]??要用WinAPI方試?? 我有找相關的資料但都不是我要的 非常非常的謝謝你,因為有你這世界變的更美好 ☆ ^_^ ☆ °∴°﹒☆°．﹒‧°∴°﹒°．﹒‧°∴°﹒ ﹒‧°∴°﹒☆°．﹒‧°∴°﹒°．﹒‧°∴°﹒﹒‧°∴°﹒☆°．

您的方法錯誤了 vb6 裡[設定使用項目]-->按瀏覽-->選擇DLL 它是指"ActiveX DLL"    二個方向 一、用Delphi 開發ActiveX DLL，如上的方法使用 二、dllDemo 那種dll 你要在vb 裡…像是宣告API 的方式引用 例：

Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long
Declare Function CheckMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDCheckItem As Long, ByVal wCheck As Long) As Long
Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long    

這裡有一個VB Call Delphi Dll 的範例 http://delphi.tthayer.com/ping.asp?file_id=d10free/vbcalldp.zip    

引言: 您的方法錯誤了 vb6 裡[設定使用項目]-->按瀏覽-->選擇DLL 它是指"ActiveX DLL" 二個方向 一、用Delphi 開發ActiveX DLL，如上的方法使用 二、dllDemo 那種dll 你要在vb 裡…像是宣告API 的方式引用 例：

Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long
Declare Function CheckMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDCheckItem As Long, ByVal wCheck As Long) As Long
Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long    

謝謝 ddy 版主,回覆速度真快!! 原來如此,我知道了 但再請教一下: 1.那Dll檔要放在那才可以,可以動態指定目錄嗎 如我要指定 系統目錄\Dll\abc.dll 2.有何方法可以先檢是是否有裝這個DLL?? 非常非常的謝謝你,因為有你這世界變的更美好 ☆ ^_^ ☆ °∴°﹒☆°．﹒‧°∴°﹒°．﹒‧°∴°﹒ ﹒‧°∴°﹒☆°．﹒‧°∴°﹒°．﹒‧°∴°﹒﹒‧°∴°﹒☆°．

還有另一個範例 http://www.iss.u-net.com/dsort32.htm    經D7 /VB6 測試ok    

引言: 1.那Dll檔要放在那才可以,可以動態指定目錄嗎 如我要指定 系統目錄\Dll\abc.dll 2.有何方法可以先檢是是否有裝這個DLL??

1、dll 放那裡都行一般來說…放在System 目錄或是主程式目錄，都能找得到 2、你仍是能指定dll 應在何處，或是檢查dll 是否存在 我第二次po 的範例link 那是我已測試過的 裡面有個function ,檢查dll 是否存在所指定位置

Sub CheckDllIsInPath()
    If FileExists("\windows\system\dsort32a.dll") = False Then _
       If FileExists("\windows\dsort32a.dll") = False Then _
          MsgBox ("Put DSORT32A.DLL in C:\WINDOWS")
End Sub

< src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217">