【正文】 end. num 是一個預定義的常數。 但在特定情況下， DLLs 也可以擁有自己的全局內存塊。位于第 39。 PFunc: TFarProc。這個值由 Loadlibrary 返回。否則，返回一個小于HINSTANCE_ERROR 的錯誤代碼。 使用這種方法，程序無法在運行時間里決定 DLLs 的調用。 for i := 0 to Len1 do if SourceStr[i] = ch then begin Result := i。 begin {DLL 的初始化工作 } SaveExit := ExitProc。所以大部分情況下用戶不會涉及到； 以設置多個退出過程，退出時按順序依次被調用； 和 WEP 對用戶透明，由系統(tǒng)自動調用。因此在 DLL 中的過程、函數絕對不要假定 DS = SS。如： exports InStr name MyInstr。 uses 子句 。這一方面是因為 Delphi 提供了豐富的函數使用戶不必直接去使用 Windows API。 動態(tài)鏈接庫的工作原理 “動態(tài)鏈接”這幾字指明了 DLLs 是如何工作的。 Windows 的發(fā)展要求允許同時運行的幾個程序共享一組函數的單一拷貝。這包括 Windows API 函數 ( ， ， ，? )，各種驅動程序文件，各種帶有 .Fon和 .Fot 擴展名的字體資源文件等。 一般工程文件的格式為： program 工程標題 。這一步是可選的； ，生成動態(tài)鏈接庫文件。要使用必須通過過程或函數界面才能完成。這就是在工程文件中的 begin...end 部分添加初始化代碼。 begin if ExitCode = wep_System_Exit then begin { 系統(tǒng)關閉時的相應處理 } end else begin { DLL 卸出時的相應 處理 } end。 export。 far。函數GetSystemDirectory 返回這一目錄的路徑； (4)包含當前任務可執(zhí)行文件的目錄。 如果 GetProcAddress 執(zhí)行成功， 則返回模塊中函數入口處的地址，否則返回 nil。 var Key: Char)。 if Order = 1 then := 39。這將給其它使用該 DLLs 的應用程序造成困難。 if hMem = 0 then MessageDlg(39?？梢允褂玫姆峙錁酥救缦卤硭?。 由 DLLs 管理的全局內存塊是應用程序間進行數據傳輸的又一途徑，下面我們將專門討論這一問題。 end。c:\dlls\39。 每調用一次 Loadlibrary 就應調用一次 FreeLibray，以保證不會有多余的庫模塊在應用程序結束后仍留在內 存中。文件必須被解壓后才能被裝裁 20 動態(tài)鏈接庫文件非法 21 應用程序需要 32 位擴 展 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 假如在應用程序用 Loadlibrary 調用某一模塊前，其它應用程序已把該模塊裝入內存，則 Loadlibrary 并不會裝載該模塊的另一實例，而是使該模塊的“引用計數”加 1。 若程序只在其中的一部分調用 DLLs 的過程，或者程序使用哪個 DLLs， 調用其中的哪個過程需要根據程序運行的實際狀態(tài)來判斷，那么使用動態(tài)調用就是一個很好的選擇。 Result := 1。而在自定義退出過程 LibExit 結束時再把ExitProc 的值恢復。 DLLs 退出時的執(zhí)行過程。需注意的是如果讀者想嵌入匯編語言代碼，絕不要使 SS 和 DS登錄同一個值。 Index 指示為過程或函數分配一個順序號。不同的關鍵字通知編譯器生成不同的可執(zhí)行文件。 使用傳統(tǒng)的 Windows 編程方法來創(chuàng)建和使用一個 DLLs 是一件很 令人頭痛的事，正如傳統(tǒng)的 Windows 編程方法本身就令人生畏一樣。在創(chuàng)建 Windows程序時，鏈接過程并不把 DLLs文件鏈接到程序上。這種方法同只把函數儲存在已編譯的 .OBJ 文件中相比更有利于代碼的重用。只包含共享數據的 DLLs稱為資源文件。真正的區(qū)別在工程文件上。 ，此時 library 后跟的庫名自動修改； 、函數代碼。例如： exports InStr name MyInStr resident。 庫初始化代碼的編寫 傳統(tǒng) Windows 中動態(tài)鏈接庫的編寫，需要兩 個標準函數： LibMain 和 WEP，用于啟動和關閉 DLL。 var SaveExit: Pointer。 uses SysUtils, Classes。例如： function Instr(SourceStr : PChar。 : 把指定庫模塊裝入內存 語法為： function Loadlibrary(LibFileName: PChar): THandle。這將引起混亂。如圖是程序的運行界面。 txt := StrAlloc(80)。這些對象由直接或