کامپونت ها در سیستم کاربر

[j.behrouzi]

سلام
یه برنامه نوشتم و با نرم افزار setup factory براش فایل نصب درست کردم کامپونت ها رو تو system32 کپی میکنه ولی برنامه نمی شناستشون ممنون میشم کمکم کنید

[رامین مرادی]

قبل از اجرای برنامت تو ساب مین برنامت اونا رو رجیستر کن .
دستورش هم راحته البته یه جستجو مس کردید بیش از ده بار تو تایپیک ها آموزش داده شده :متفکر:

[رامین مرادی]

Type num

num As String * 10

End Type

Sub Main()

Call CheckComponents
frmSplash.Show
End Sub

Sub CheckComponents()

Dim StrAppPath As String

Dim StrComFile As String

StrAppPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
StrComFile = "xpcontrols.ocx"

If Dir(StrAppPath & StrComFile) = vbNullString Then
Call MsgBox("COMDLG32.OCX not found.", vbExclamation)

End

Else
Call Shell("regsvr32 /s " & StrAppPath & StrComFile, vbHide)
End If

End Sub


این کد رو تو یه ماژول بنویس بعد از منوی پروجکت برو پروپرتیز و از اونجا اجرای برنامت رو بزار رو ساب مین

StrAppPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
StrComFile = "xpcontrols.ocx"
این کد چک می کنه که اون کامپوننت همراه برنامت هست یا نه

Call Shell("regsvr32 /s " & StrAppPath & StrComFile, vbHide)
این کد هم کامپوننتت اگه رجیستر نشده برات رجیستر می کنه
اگه مشکلی بود در خدمتیم
البته بگم این کد رو یکی از دوستام تو این سایت برام یاد داد البته اسمش یادم نیست ولی اگه دید دستش درد نکنه خدا اجرش بده