Skip to main content

AccessTr.neT


Install creator ile Regedit Update

Install creator ile Regedit Update

Çözüldü #1
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]


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
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
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)
Cevapla
Çözüldü #3
Hocam çok teşekkürler
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
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
Cevapla
Çözüldü #5
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.
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #6
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task