Post سورس فایلهای OCX

[Error_system32]

سلام دوستان با توجه به این که برنامه نویسی با ویژوال بیسیک رو انجام میدم و برای زیبا سازی برنامه و ... از فایلهای OCX استفاده میکنم،و بعد از کامپایل کردن برنامه حتمآ این فایل رو باید در کنار EXE از برنامه قرار داد اما من میخواستم سورس کد این نوع فایلهای کمکی رو در خوده برنامه ی exe قرار بدم تا دیگه نیازی به قرار دادن این فایلها در کنار خوده برنامه نباشه اگه از دوستان کسی در این باره چیزی میدونه و بلده کمک کنه که این مشکل من حل بشه ممنون... .

فقط از برنامه های Resource Hacker ,Compiler و... اسم نبرین چون همه برای این کار نیستن... .

[civilmans]

براي اينكار در vb يك راه حل ساده هست كه ميتونيد فايل را به داخل فايل اجرايي اضافه و استخراج كنيد.
افزونه vb resource editor را فعال كنيد فايل اكتيو ايكس را به ريسورس برنامه اضافه كنيد و با يك كد ساده فايل را در محل مورد نظر استخراج كنيد.

کد:

Dim bte() As Byte
Dim Ppath As String
Ppath = Environ$("windir") & "\system32\xxx.dll"

bte = LoadResData(101, "CUSTOM")
Open Ppath For Binary As #1
Put #1, , bte
Close #1