رجيستر كردن فايلهاي Ocx

با سلام.
مي خواستم بدونم با چه كدي ميشه فايلهاي ocx كه در برنامه ام استفاده كردم رو در ويندوز رجيستر كنم؟
با تشكر.

سلام

کد:

---

program RegisterMyOCX;
uses
  OLECtl, Windows, Dialogs;
var
  OCXHand: THandle;
  RegFunc: TDllRegisterServer; //add  to the uses clause
begin
  OCXHand := LoadLibrary('c:\windows\system\test.ocx');
  RegFunc := GetProcAddress(OCXHand, 'DllRegisterServer'); //case sensitive
  if RegFunc <> 0 then
    RegFunc
  else
    ShowMessage('Error!');
  FreeLibrary(OCXHand);

  // You can the same way unregister the OCX:
  // replace 'DllRegisterServer' by 'DllUnregisterServer'
end.

---

در بسیاری از موارد اگر دوستان نگاهی به [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] بیندازن ، به احتمال قوی کارشون راه میفته !!! (البته با خودم هم هستم:))