Konumuz visual basicde programımız için setup oluşturmak.
mesela program yaptık ve bu program için başka makinede çalışması için yarım düzine ocx yada dll dosyası gerekiyor. İşte buna basitçe bir çözüm yolu.
1. Setupını oluşturacağımız programı compile edelim.
2. program için gerekli eklentileri hazırlayalım.(ocx, dll vb)
3. Şimdi setup programını yapmaya geldi.
4. Bir proje açalım.Bu projeyi istediğimiz gibi dizayn edelim.(bu setup progumuz olcak. Bu alttaki örnektir.
5. Dizayn işini yaptıktan sonra ADD-INS tan ADD-MANAGER i açalım.
6. vb6 resource editöre çift tıklayalım ve tamam diyelim.
7. Kontrol barına res editör gelicek. Onu açalım
8. Add custom resource seçeneğine tıklayarak ve eklentilerimizi seçelim.
*Compile ettiğimiz programıda ekliyelim managere 103 olsun oda
9. Editöre seçtiğimiz eklentiler eklenicek. Sırasıyla 101, 102,103 ... diye
10. Dizaynını yaptığımız projeyi gelelim -KUR- butonunun kod bölümünü açalım
11. Yalnızca 3 eklenti eklediğimi varsayarak (101, 102, 103) Alttaki kodları yapıştırıyorum
Private Sub KUR_Click()
Dim resbytes() As Byte
resbytes = LoadResData(101, "CUSTOM")
Dim no As Byte
no = FreeFile
Open "C:\\WINDOWS\\System32\\MSWINSCK.ocx" For Binary As #no
Put #no, , resbytes
Close #no
Dim resbytes2() As Byte
resbytes = LoadResData(102, "CUSTOM")
Dim no2 As Byte
no = FreeFile
Open "C:\\WINDOWS\\System32\\MScomdlg.ocx" For Binary As #no
Put #no, , resbytes
Close #no
Dim resbytes3() As Byte
resbytes = LoadResData(103, "CUSTOM")
Dim no3 As Byte
no = FreeFile
Open App.Path & "\\Programım.exe" For Binary As #no
Put #no, , resbytes
Close #no
’Kodlara dikkat edlim arkadaşlar Örneğin (101-MSWINSCK.ocx//102-MScomdlg.ocx//103-programım.exe) yaptım. Eklediğinize göre deiştirin
’Yukardaki kodlar setup dosyasına gömülü olan eklentileri -KUR- butonuna tıklayınca "C:\\WINDOWS\\System32\\" dizinine çıkarıyor.
’Burdan sonra ise reglenmeleri gerekiyor. Onun içinse
Shell ("regsvr32 /s \\WINDOWS\\System32\\MSWINSCK.ocx")
Shell ("regsvr32 /s \\WINDOWS\\System32\\MScomdlg.ocx")
’Dim resbytes3 satırında ise programımız (exemiz) app.Path yani install progunun çalıştığı klasöre çıkarılıyor.
’Burada eklentilerimiz taşınmış, reglenmiş ve exemiz installe aynı dizine çıkmış oluyor. Yani kurulum bitiyor.
’Bunu belirtmek içinse
Msgbox " Kurulum Başarı ile Tamamlandı!..."
end
End Sub
Bu olaylara progressbar filan gibi kontroller ekliyerek daha güzel görüntü oluşturabilir daha orjinal yapabilirsiniz.
Ben olayın mantığını anlattım.(düşünebildiğim kadarıyla) Umarım faydasını görüceksiniz.
mesela program yaptık ve bu program için başka makinede çalışması için yarım düzine ocx yada dll dosyası gerekiyor. İşte buna basitçe bir çözüm yolu.
1. Setupını oluşturacağımız programı compile edelim.
2. program için gerekli eklentileri hazırlayalım.(ocx, dll vb)
3. Şimdi setup programını yapmaya geldi.
4. Bir proje açalım.Bu projeyi istediğimiz gibi dizayn edelim.(bu setup progumuz olcak. Bu alttaki örnektir.
5. Dizayn işini yaptıktan sonra ADD-INS tan ADD-MANAGER i açalım.
6. vb6 resource editöre çift tıklayalım ve tamam diyelim.
7. Kontrol barına res editör gelicek. Onu açalım
8. Add custom resource seçeneğine tıklayarak ve eklentilerimizi seçelim.
*Compile ettiğimiz programıda ekliyelim managere 103 olsun oda
9. Editöre seçtiğimiz eklentiler eklenicek. Sırasıyla 101, 102,103 ... diye
10. Dizaynını yaptığımız projeyi gelelim -KUR- butonunun kod bölümünü açalım
11. Yalnızca 3 eklenti eklediğimi varsayarak (101, 102, 103) Alttaki kodları yapıştırıyorum
Private Sub KUR_Click()
Dim resbytes() As Byte
resbytes = LoadResData(101, "CUSTOM")
Dim no As Byte
no = FreeFile
Open "C:\\WINDOWS\\System32\\MSWINSCK.ocx" For Binary As #no
Put #no, , resbytes
Close #no
Dim resbytes2() As Byte
resbytes = LoadResData(102, "CUSTOM")
Dim no2 As Byte
no = FreeFile
Open "C:\\WINDOWS\\System32\\MScomdlg.ocx" For Binary As #no
Put #no, , resbytes
Close #no
Dim resbytes3() As Byte
resbytes = LoadResData(103, "CUSTOM")
Dim no3 As Byte
no = FreeFile
Open App.Path & "\\Programım.exe" For Binary As #no
Put #no, , resbytes
Close #no
’Kodlara dikkat edlim arkadaşlar Örneğin (101-MSWINSCK.ocx//102-MScomdlg.ocx//103-programım.exe) yaptım. Eklediğinize göre deiştirin
’Yukardaki kodlar setup dosyasına gömülü olan eklentileri -KUR- butonuna tıklayınca "C:\\WINDOWS\\System32\\" dizinine çıkarıyor.
’Burdan sonra ise reglenmeleri gerekiyor. Onun içinse
Shell ("regsvr32 /s \\WINDOWS\\System32\\MSWINSCK.ocx")
Shell ("regsvr32 /s \\WINDOWS\\System32\\MScomdlg.ocx")
’Dim resbytes3 satırında ise programımız (exemiz) app.Path yani install progunun çalıştığı klasöre çıkarılıyor.
’Burada eklentilerimiz taşınmış, reglenmiş ve exemiz installe aynı dizine çıkmış oluyor. Yani kurulum bitiyor.
’Bunu belirtmek içinse
Msgbox " Kurulum Başarı ile Tamamlandı!..."
end
End Sub
Bu olaylara progressbar filan gibi kontroller ekliyerek daha güzel görüntü oluşturabilir daha orjinal yapabilirsiniz.
Ben olayın mantığını anlattım.(düşünebildiğim kadarıyla) Umarım faydasını görüceksiniz.