【正文】 對話框部件和打開對話框部件。在應(yīng)用程序之間可編程的潛能是巨大的。 automated procedure Clear。 begin Automation,RegisterClass(AutoClassInfo) end。 end。 表 StartMode 的取值及含義 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 取值 含義 ─────────────────────────────── SmStandAlone 用戶啟動應(yīng)用程序 SmAutomation Windows 為創(chuàng)建 OLE 對象而啟動程序 SmRegSever 應(yīng)用程序僅為注冊一個或多個 OLE 對象而啟動 SmUnregSever 應(yīng)用程序僅為注銷一個或多個 OLE 對象而啟動 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 當(dāng) StartMode 模式是 SmAutomation，而用戶不再需要服務(wù)器時發(fā)生OnLastRelease 事件。 創(chuàng)建進(jìn)程外服務(wù)器： Delphi 應(yīng)用程序； begin 之后加入以下代碼； if Automation,Server Registration then Exit。39。 begin CloseMemo for I := 1 to 3 do Memos[2] := 。 end。 其中 TileWindows 是 OLE 對 象 TMemoApp 中定義的方法。任何控制器可以用 ProgID 號來創(chuàng)建 OLE 對象實例。 exports DLLGetClassObject,DLLCanUnloadNow。 表 實例的取值及含義 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ instancing 類型 含義 ─────────────────────────────── ─────── internal OLE 對象是應(yīng)用程序的內(nèi)部對象，對象不需要注冊，外部 進(jìn)程不能創(chuàng) 建此對象 Single 每個服務(wù)器實例只能輸出一個 OLE 對象實例， 若控制器需要多個 OLE 對象實例， WIndows 為第一個 OLE 對象創(chuàng)建一個服務(wù)器實例 Multiple 一個服務(wù)器能創(chuàng)建和輸出多個 OLE 對象實例， 進(jìn)程內(nèi)服務(wù)器大多是 Multiple 類型 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 每個使用 OLEAuto 單元的工程文件自動地?fù)碛幸粋€叫 Automation 的對象，它是非可視對 象。 function TMemoApp,NewMemo : Variant。{FIFF4880 200D 11CF BDCF D020AFOE5B81}39。 在 EditFrom 單元中定義了 TMemoDoc 類： type TMemoDoc = Class(TAutoObject) private FEditForm : TEditForm?？雌饋砗芟髴?yīng)用程序在調(diào)用函數(shù)或過程一樣。)； OLE 包容器部件的 loadFromFile 方法可把文件中的對象裝入 OLE 包容器部件。只需將 TOLEDropNotify 的 PInitInfo屬性賦給 OLE 包容器部件的 PInitInfo 屬性。 以下為處理 OnDragDrop 事件的代碼： procedure (Sender, Source: TObject。 (39。采用上述辦法， 可以在人不參與的情況下，就能使得兩個應(yīng)用程序的相互作用。 funtion CretFileName : String。 Description : 39。 begin Result := MainForm,CreateMemo(39。就象 Application 部件擁有 Delphi 應(yīng)用程序的一些信息一樣，Automation 對象也擁有服務(wù)器的一些信息，其