Section:             Exports                                      
  Flags:             00000000                                     
  Time Stamp:        40BEC356 : Thu Jun 03 14:21:10 2004          
  Major Version:     0000                                         
  Minor Version:     0000                                         
                                                                  
Exports from nMOT_MEXA_DLL.dll                                    
  4 exported name(s), 4 export addresse(s).  Ordinal base is 1.   
  Sorted by Name:                                                 
    RVA      Ord. Hint Name                                       
    -------- ---- ---- ----                                       
    00009B16    1 0000 DllCanUnloadNow => Xh░                     

 
function MyStandby(ET:Integer):Integer;
Type   TDLLRegFunc= Procedure;Stdcall;
Var
  DLLPath:String;
  FuncAddr:Pointer;
  DLLHandle:THandle;
  MyRec:TSearchRec;
  DLLReg:TDLLRegFunc;
  DLLOBJ:olevariant;
Begin
  DLLPath:=ExTractFilePath(Application.ExeName);
  if DLLPath[Length(DLLPath)] <> '\' then DLLPath:=DLLPath '\';
  DLLHandle:=LoadLibrary(Pchar(DLLPATH 'nMot_Mexa_DLL.dll'));
  // 以上表示 假設你的 DLL 跟主程式擺在一起,程式要到自己的目錄 Load Library
  FuncAddr:=GetProcAddress(DLLHandle,Pchar('DllRegisterServer'));
  if FuncAddr = nil then Begin
    // 如果 FuncAddr 是 nil 表示 你的 DLL 不是 ActiveX DLL,那偶就投降了.
    Result:=-1;
  end else Begin
    @DLLREG:=FuncAddr;
    DLLReg;
    // 以上跟 regsvr32 意思一樣,就是註冊你的 DLL
    DLLOBJ:=CreateOleObject('nMot_Mexa_DLL.Class1');
    // 以上是開啟你的 CoClass 一個 CoClass 是一組 Function 或 Porperty 的組合 須要 use 到 ComObj
    // 因為我不知道你的 TypeLibrary 所以隨便打一個
    // 如果前面有註冊成功那麼,這時後 你 電腦的 Regiestry 應該會有 nMot_Mexa.?????? 這樣的記錄
    // 用 RegEdit 找 HKEY_CLASSES_ROOT 下面那一個像是你要的 CoClass
    // 把那個名字填回 CreateOleObject 裡面取代 nMot_Mexa_DLL.Class1
    // 這樣就可以直接 Call 了,
    // 其實如果真的到這邊,也可以用 Project/import TypeLibrary 取得 typeLibrary 
    // 用 add 後 CreateUnit 就好了 Delphi 會自動把 Type Library 加到 Imports 裡面
    Result:=DLLOBJ.Standby(1);
  end;
end;