نصب کامپوننت OCX و dll از طریق کد

[srh124]

سلام. ببخشید این دومین سوالیه که امروز می پرسم
من مب خواستم یه کامپوننت که چند تا OCX و dll روداره از طریق کدنصب کنم و نه با setup انگلیسی خودش
نصب dll رو میدونم بادستور regsvr32 انجام میشه ولی Ocx رو نمیدونم.
کامپوننت رو هم احتملا می شناسید. VSFlexGrid7 هست
ممنون از راهنماییتون

[majj]

ocx رو هم مثل همون dll ها ميتونيد نصب كنيد فقط بايد ادرس كامل بدين براي اين كار از دستور shell استفاده كنيد

[دختر پاییز]

ocx رو هم مثل همون dll ها ميتونيد نصب كنيد فقط بايد ادرس كامل بدين براي اين كار از دستور shell استفاده كنيد

درود به شما
ممکنه دستور نصب ocx و dll برای datagrid رو بنویسید(منظورم کدی که سبب نصب این فایلها میشه)
سپاس

[shs_night]

ocx.نام کنترل اکتیو ایکس regsvr32.exe
البنه به جای اکتیو ایکس dll رو هم میتونی بنویسی

[دختر پاییز]

[

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

یعنی اینجوری بنویسم:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[srh124]

[

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

یعنی اینجوری بنویسم:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

تا اونجایی که من میدونم مسیر کامل regsvr32 رو باید بنویسید. این فایل توی system32 هست.
ضمنا تابع shell یک مقدار برمیگردونه یعنی باید به یه متغیر انتساب داده بشه

[دختر پاییز]

ازتون سپاسگزارم ولی هر جور می نویسمش error میده
میشه خواهش کنم یکی کد نصب فایلهای مورد نیاز برای datagrid رو به صورت کامل برام بنویسه
خیلی بهش نیاز دارم

[srh124]

ازتون سپاسگزارم ولی هر جور می نویسمش error میده
میشه خواهش کنم یکی کد نصب فایلهای مورد نیاز برای datagrid رو به صورت کامل برام بنویسه
خیلی بهش نیاز دارم

ببین اول باید محل نصب ویندوز رو بفهمی. این کار با متغیر محیطی %windir% میشه که فولدر ویندوز رو بر میگردونه
بعد مثل اینه

dim retval as variant
retval=shell(wdir & "/system32.regsvr32.exe " & dllpath)

wdir مسیرفولدر ویندوز
dllpath مسیرکامل dll به همراه نام اون
بعد میتونی چک کنی توی فولدر system32 ببین dll تو اوجا هست یانه. قاعدتا اونجاکپی میشه

[دختر پاییز]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

srh124 از لطفت یه دنیا ممنون
ولی من این کد رو نوشتم و بهم error می ده
wdir مقدارش صفر می شه


Private Sub command1_Click()

Dim temp As Variant
temp = Shell(wdir& / system32.regsvr32.exe& / App.path & "/ msadodc.ocx")

End Sub

[srh124]

گفتم که باید متغیر wdir رو با مسیر فولدر ویندوز پر کنی. یه راهش اینه.
با تابع environ اگه اسمش درستیادم مونده باشه، میتونه مقدار یه متغیر محیطی رو بگیری
متغیر محیطی=environment variables
wdir=environ(windir)
یه سرچ توی msdn کنار vb بکنی توضیحات بیشتری داره
موفق باشی