AccessTr.neT

degerli arkadaşlar
ekteki barkod programını kullanmak için font klasör içine yazı fontu, windows system32 nin içine barcodex.ocx i kopyalıyorum ,çalıştıra /regsvr32 barcodex.ocx yazıyorum daha kolay kurulumu yapması için tek tıklama ile nasıl bir yok izlenir komut dosyasımı yazılır ? makromu yazılır ? bilemiyorum bu konuda yardımcı olurmusunuz ben bunları tektek aşagıdaki yazı le yapıyorum bunun daha kolay olması için yardmlarınızı bekliyorum
-----------------------------
ocx reg dediğim olay şu : ilişikteki barcodex.ocx i windows system32 nin içine kopyalıyorsun ve başlat tan çalıştıra geliyorsun /regsvr32 barcodex.ocx yazıp entere basıyorsun. Bunu yaptıktan sonra önceki gönderdiğim programı çalıştırabilirsin..font dosyasının içindeki fontu c:\windows\fontun içine yapıştır şeklinde yapıyorum

selam
ben olsam
bat dosyası hakkında biraz araştırma yapardım
vb kodları ile belli bir klasördeki dosyayı kopyalama ve belli bir adrese yapıştırma konusunu araştırırdım
yine vb ile registy kaydı nasıl yapılır bakardım
ben olsaydım
saygılarımla

---

fazla bir deneme yapmadım ama
alttaki kod ile reg kaydı yapılabilir

call Shell "regsvr32 barcodex.ocx /s"

aydın kardeşimizin önerileri dogrultusunda yaptıgım araştırma neticesinde ekteki programı buldum ingilizce olması nedeniyle türkçeleştirmeye çalıştım ama genede tam başarılı olup programında neler nasıl yaplacagını beceremedim bu halıyle ekliyorum bir arkadaşımızın işine yarar veye bizlere nasıl yapılacagını tarif eder kurulumu yaptıktan sonra içindeki ingilizce dil dosyasını C:\Program Files\Dr.Batcher\Language klasörünün içine atarsa türkçeleşmiş olur

selam
dosya yollarını kendinize uyrlarsanız çalışır
sadece reg ayarını yapamadım

Public Function fontekle()
'font dosyası C:\Windows\Fonts
'ocx dosyası C:\Windows\System32
Dim fs1, fs2, fs3, fs4, fs5 As Object
Dim font1, font2, font3, font4, font5 As String, ekle As String
font1 = "C:\Users\A Yapı\Desktop\barkod\Fonts\BC02.ttf"
font2 = "C:\Users\A Yapı\Desktop\barkod\Fonts\code39.ttf"
font3 = "C:\Users\A Yapı\Desktop\barkod\Fonts\code128.ttf"
font4 = "C:\Users\A Yapı\Desktop\barkod\Fonts\ean13.ttf"
font5 = "C:\Users\A Yapı\Desktop\barkod\Fonts\EAN-13.ttf"

ekle = "C:\Windows\Fonts\"
Set fs1 = CreateObject("Scripting.FileSystemObject")
Set fs2 = CreateObject("Scripting.FileSystemObject")
Set fs3 = CreateObject("Scripting.FileSystemObject")
Set fs4 = CreateObject("Scripting.FileSystemObject")
Set fs5 = CreateObject("Scripting.FileSystemObject")

fs1.CopyFile font1, ekle
fs2.CopyFile font2, ekle
fs3.CopyFile font3, ekle
fs4.CopyFile font4, ekle
fs5.CopyFile font5, ekle

Set fs1 = Nothing
Set fs2 = Nothing
Set fs3 = Nothing
Set fs4 = Nothing
Set fs5 = Nothing
End Function

Public Function ocxekle()
'font dosyası C:\Windows\Fonts
'ocx dosyası C:\Windows\System32
Dim fs1 As Object
Dim oce As String, ekle As String
oce = "C:\Users\A Yapı\Desktop\barkod\barcodex.ocx"

ekle = "C:\Windows\System32\"
Set fs1 = CreateObject("Scripting.FileSystemObject")

fs1.CopyFile oce, ekle

Set fs1 = Nothing
End Function

Public Function regle()
Shell "RegSvr32 /s" & "C:\Users\A Yapı\Desktop\barkod\barcodex.ocx"
End Function