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...