delphi元件註冊函式

2021-09-26 10:36:05 字數 1255 閱讀 6310

function registerolefile(strolefilename: string; oleaction: byte): boolean;

const

registerole = 1; // 註冊

unregisterole = 0; // 解除安裝

type

toleregisterfunction = function: hresult; // 註冊或解除安裝函式的原型

var hlibraryhandle: thandle; // 由loadlibrary返回的dll或ocx控制代碼

hfunctionaddress: tfarproc; // dll或ocx中的函式控制代碼,由getprocaddress返回

regfunction: toleregisterfunction; // 註冊或解除安裝函式指標

begin

result := false;

// 開啟ole/dcom檔案,返回的dll或ocx控制代碼

hlibraryhandle := loadlibrary(pchar(strolefilename));

if (hlibraryhandle > 0) then // dll或ocx控制代碼正確

try// 返回註冊或解除安裝函式的指標

if (oleaction = registerole) then // 返回註冊函式的指標

hfunctionaddress := getprocaddress(hlibraryhandle,

pchar('dllregisterserver'))

else // 返回解除安裝函式的指標

hfunctionaddress := getprocaddress(hlibraryhandle,

pchar('dllunregisterserver'));

if (hfunctionaddress <> nil) then // 註冊或解除安裝函式存在

begin

regfunction := toleregisterfunction(hfunctionaddress); // 獲取操作函式的指標

if regfunction >= 0 then // 執行註冊或解除安裝操作,返回值》=0表示執行成功

result := true;

end;

finally

freelibrary(hlibraryhandle); // 關閉已開啟的ole/dcom檔案

end;

end;

Delphi時鐘元件

開發環境 delphi 7 開發名稱 時鐘元件 開發說明 時鐘可以切換指標型風格和數字型風格,可以設定時 分 秒的數值和顯示顏色,可以開啟和暫停,可以設定顯示大小。最近在學習delphi,以不同的實現方式來體現學習的過程,剛開始直接在窗體上繪製時鐘,完成使用定時器後,又用執行緒實現時鐘的走動 見第乙...

元件的註冊

1 mfc的幾個動態連線庫需要匯入 在j windows system32目錄下 msvcrtd.dll mfco42d.dll msvcr71.dll 2 vc6.0的幾個控制項需要註冊 使用的時候沒有問題,但是在.net環境下不提供註冊資訊沒法例項化,也就是沒法編輯.3 自己編寫的元件需要註冊 ...

元件的註冊

通過例項化vue構造器函式得到乙個vue例項,這個例項我們稱之為 根例項 它是最大的父級 這個根例項是以標籤的形式存在的,那麼我們也稱之為 根元件 根例項也是乙個元件,但是我們得到只是跟元件 vue.extend 它就是對vue功能的擴充套件,這個擴充套件就是元件 vue是通過 vue.extend...