我的寫法    New一個 DLL Wizard
------------------------------
專案檔 *.dpr    library GetAccessMsg;    uses
  SysUtils,
  Classes,
  SendMsg in 'SendMsg.pas';    exports
   SendToLogSale,
   GoToLogSale;
{$R *.res}    begin
end.
-----------------------------------------------------------
程式 *.pas
------------------------------
unit SendMsg;    interface    Uses  Windows,Messages, Dialogs,ShellApi,SysUtils,Forms;               // .dll中提供給外部呼叫用的函式
Function SendToLogSale(str1:Pchar;str2:Pchar;str3:Pchar):Boolean;export;stdcall;
Function GoToLogSale():Boolean;export;stdcall;    implementation    Function SendToLogSale(str1:Pchar;str2:Pchar;str3:Pchar):Boolean;
Begin
''''    end    ------------------------------------------------
VB 去 Call
------------------------------
Option Explicit
Public Declare Function SendToLogSale Lib "I:\GetAccessMsg.dll" (ByVal str1 As String, ByVal str2 As String, ByVal str3 As String) As Boolean
Public Declare Function GoToLogSale Lib "I:\GetAccessMsg.dll" () As Boolean    Public Function uf_RunLonSale(FormName As String) As String       If SendToLogSale("OPENFORM", FormName, "") Then       Else
    MsgBox ("錯誤!!")
   End If
    
End Function    Public Function uf_GoToLogSale() As String       If GoToLogSale() Then       Else
    MsgBox ("錯誤!!")
   End If
    
End Function