26 mb runtime mı indirmek daha mantıklı - 5 dk uraşıp şu kodu derlemekmi daha mantıklı? 15 dk da runtime ın yaptığı şeyi 1 programla halledebilirsin...

Peki senin bu söylediğin Runtime Olmuyormu?

Yinede

hocam bu ocx dosyalarını 1 kere register etmemiz yeterli olmuyor mu her seferinde yani formlar her açıldığında register mı gerektiriyor

Her Seferinde Registerdan Kastın eklemekse evet her formda ekliyecen eğer kayıtsa

Aşağıdaki yöntemi uygulayın 1-Önce kullandığınız componentların ocx dosyalarını bir resource içine alın. 2-Resource ile ocx dosyalarını system32 ye çıkardıktan sonra : Shell "regsvr32 msadodc. ocx /s" şeklinde dosyaları register edin. Runtime dosyalarınında yaptığı zaten componentları pc ye yükleyip, register etmesidir. Bizde component ı resource ile çıkartıp, register ediyoruz msadodc. ocx yerine istediğiniz ocx adını yazın. Sonundaki /s işareti uyarı vermemesi içindir. Kaldırırsanız register etmek istiyormusunuz diye sorar tabik dosyaları resourcedan çıkarma ve register etme işlemini form load a bütün işlemlerden önce yapacaksınız. Yani form yüklendiğinde ilk olarak dosyaları çıakrıp register edecek Eğer system32 klasörüne çıkarttırmak istiyorsanız :SYSTEM32 BULMA: Kod: Private Declare Function GetSystemDirectory Lib "kernel32" Alias _ "GetSystemDirectoryA" _ As Long Private Sub Form_Load Dim tray As String 255 Dim uzn As Long uzn = GetSystemDirectory(tray, 255) tray = Left$ MsgBox "Windows System klasörü: " & tray End Sub Resource ile dosyaları tray değişkeninde bulduğunuz konuma çıkartırsanız Shell "regsvr32 msadodc. ocx /s" kullanabilirsiniz. Ama başka bir yere çıkartırsanız konum belirtmelisiniz : Shell "regsvr32 C:\Yeni Klasor\msadodc. ocx /s" 2. şekilde yaparsanız hata verme olasılığı çok yüksek Sağlıcakla kalın bütün kodlar tarafımdan yazılmıştır...

Güzel