Merhaba
Uygulama Setup dosyası için Install Creator kullanıyorum ( eğer sitede
yoksa ekleyebilirim )
Regedit ayarlarında 2 tane ayar yapmam lazım, şu ana kadar hep manüel olarak yaptım.
1. HKEY_LOCAL_MACHINE\Software\Microsoft\Shared Tools\
Graphics Filters\Import\JPEG\Options altında …
ShowProgressDialog değerini “No” yap ( dikkat case sensitive, “N” büyük “o” küçük
2. HKEY_CURRENT_USER\Software\Microsoft\Shared Tools\
Graphics Filters\Import\JPEG\Options altında ...
ShowProgressDialog değerini “No” yap ( dikkat case sensitive, “N” büyük “o” küçük
Install Creatorun aşağıdaki resimde görülen
bir güncelleştirme ekranı var
![[Resim: ekranresmi00007.jpg]](http://img14.imageshack.us/img14/2416/ekranresmi00007.jpg)
Ricam,
a. Bu yazılımı kullanan ve bu ekranı çözmüş bir arkadaştan yardım, çünkü "No" değerini nereye yazacağımı bulamadım
b. Bu iki ayarı yapabileceğim VB kodu varmıdır ?
Teşekkürler
sn okileturc, install creator kullandım ama bahsettiğiniz işlemi bilmiyorum ancak,
uygulamanızın ilk açılan formunda
Kod:
Function Kapat()
Dim sReturn As String
Dim sErr
Dim WS As Object
Set WS = CreateObject("WScript.Shell")
sReturn = WS.regread("HKCU\Software\Microsoft\Shared Tools\Graphics Filters\Export\JPEG\Options\ShowProgressDialog")
If sReturn = "Yes" Then 'change ShowProgressDialog entry to "No"
WS.regwrite "HKCU\Software\Microsoft\Shared Tools\Graphics Filters\Export\JPEG\Options\ShowProgressDialog", "No"
End If
sReturn = ""
sReturn = WS.regread("HKCU\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\ShowProgressDialog")
If sReturn = "Yes" Then 'change ShowProgressDialog entry to "No"
WS.regwrite "HKCU\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\ShowProgressDialog", "No"
End If
sReturn = ""
sReturn = WS.regread("HKLM\Software\Microsoft\Shared Tools\Graphics Filters\Export\JPEG\Options\ShowProgressDialog")
If sReturn = "Yes" Then
WS.regwrite "HKLM\Software\Microsoft\Shared Tools\Graphics Filters\Export\JPEG\Options\ShowProgressDialog", "No"
End If
sReturn = ""
sReturn = WS.regread("HKLM\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\ShowProgressDialog")
If sReturn = "Yes" Then
WS.regwrite "HKLM\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\ShowProgressDialog", "No"
End If
sReturn = ""
Set WS = Nothing
End Function
kodunu kullanabilirsin. (Bkz.
Polsoft Açılış Formu)
Kod'u daha önce eşref hocanın eklediği bir konudan almıştım, fakat hangi konu olduğunu hatırlamıyorum,
Uygulamanın kapanışındaki formda da kod yazılarak eski hale getirilmesi gerekli, 2. mesaja yazdığım fonksiyonun tersini yazarak uygulamanızın kapanışında çalıştırın
Hocam siz bu ayarları hiç kullanmıyor musunuz ? son yazdığınızdan biraz ürktüm doğrusu ( çıkarken eski durumuna getirme konusu ) Bu ayarlar sadece office uygulamalarının, bir bağlı JPEG dosyasını açarken çok kısa bir süre görüntülediği dialog penceresini iptal ediyor . "Loading image" veya "İmporting image" benzeri bir küçük pencere. Ancak bu dilaog penceresi bazen ekranda donup kalıyor ve uygulamanın kitlenmesine sebep oluyor. Bu nedenle sakıncalı bir iptal değil ( buraya kadar yazdıklarım benim bildiklerim ). Fazlasını söyleyebilecek arkadaşlardan yardım rica ediyorum. Eşref hoca ya da ayrıca tşk ederim.
sn okileturc, kod bahsettiğiniz gibi dialog penceresini iptal ediyor. Eski haline getirilmese de olur. Benim eski haline getirme konusunu açmamın sebebi, değiştirilen bir ayarı çıkışta eski haline getirmek.