arkadaslar baslıkda belirttiğim gibi yaptığım programlara ocx gömmek istiyorum yani ben xp de yaptığım program win7 de "ocx" istiyor bu ocx u programa gömüp adam çalıştırdığınde program otomatik o ocx u system32 atsın ve yüklesin istiyorum sonucda adama şunu şuraya at çalıştıra şunu yaz diyemem nasıl yaparım bunu mümkünmüdür yardımlarınısı bekliyorum
vb6 da yapılmış programa ocx nasıl gömerim yardımm!!
- Konuyu başlatan lozenge
- Başlangıç tarihi
- Konuyu başlatan
- #3
ama ben programın kendinden olsun istiyorum işde form un unloadme kısmına kod olcak tıklar tıklamaz programı acmadan hemen ocx kurcak
bitana buldum ama bi yerinde hata varbulduğum kod bu işde ama calısmıyo
Kod:
Dim resbytes() As Byte
resbytes = LoadResData(101, "CUSTOM")
Dim no As Byte
no = FreeFile
Open Environ$("WINDIR") & "\System32\" & "mswinsock.ocx" For Binary As #no
Put #no, , resbytes
Close #no
Shell "cmd /c regsvr32/s mswinsock.ocx", vbHide
Kod:
Dim resbytes() As Byte
resbytes = LoadResData(101, "CUSTOM")
Dim no As Byte
no = FreeFile
Open Environ$("WINDIR") & "\System32\" & "mswinsock.ocx" For Binary As #no
Put #no, , resbytes
Close #no
Shell "regsvr32 /s mswinsock.ocx", vbHide
