FireWalkeR Posted February 25, 2015 Share Posted February 25, 2015 arkadaşlar autoitte yeniyim ve katılımsız program hazırlarken hazırladığım program bilgisayarda varmı varsa sürümü nedir ve kaldırılma işlemi için nasıl bir kod kullanmalıyım yardımcı olabilir misiniz? Mesela : bilgisayarınızda winrar 5.20 versiyonu bulundu, kaldırılıyor ve winrar 5.21 versiyonu kuruldu gibi bilgi verecek şekilde bir katılımsız kurulum hazırlamak istiyorum yardımlarınızı bekliyorum teşekkürler Quote Link to comment Share on other sites More sharing options...
Mehmet Posted February 25, 2015 Share Posted February 25, 2015 (edited) unistall yapmak istediğinde programın versiyonunu kayıt defterinden okutabilirsin HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall daha sonra bu tarz birşeyler ekleyebilirsin denemeden yazdım ama olmaz ise tekrar cevabına göre ayarlarım SplashTextOn("winrar kurulu", "sisteminizde winrar kurulu lütfen winrar'ı kaldırın", 480, 100, -1, -1, 1, "Arial", 20) Sleep(3000) SplashOff() ;x86 için: ShellExecuteWait(@ProgramFilesDir & "\WinRAR\Uninstall.exe", "") ShellExecuteWait(@HomeDrive & "\Program Files\WinRAR\Uninstall.exe", "") Edited February 25, 2015 by Mehmet Quote Link to comment Share on other sites More sharing options...
FireWalkeR Posted February 25, 2015 Author Share Posted February 25, 2015 saol Mehmet peki winrar'ın hangi sürümü kurulu olduğunu ve direk sormadan kaldırmaya başlamasını istiyorum, nasıl düzenleyebiliriz kodu mesela: bilgisayarınızda winrar 5.20 kurulu, şimdi kaldırılıyor ve winrar 5.21 kuruldu gibi birşeyler Quote Link to comment Share on other sites More sharing options...
Mehmet Posted February 26, 2015 Share Posted February 26, 2015 @FireWalkeR winrarı sessiz kaldırmak kolay veya bilgi vermek vs. ama işin tuhaf tarafı birtürlü versiyonu okutamadım hatada vermiyor ilginç :blink: hiç değer vermiyorki yoksa gerisi kolay :rolleyes: Local $versionoku = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\WinRAR archiver", "DisplayVersion") SplashTextOn("winrar kurulu", $versionoku ,480, 100, -1, -1, 1, "Arial", 20) Sleep(3000) SplashOff() biri bu reg anahtarını neden okutamadığımı söylesin yeter gerisini ben hallederim :thumbsdown: Quote Link to comment Share on other sites More sharing options...
FireWalkeR Posted February 26, 2015 Author Share Posted February 26, 2015 evet haklısın Mehmet versiyon okumuyor sanırım kod'da küçük bir hata var, peki sessiz kaldırma işini de winrar'da dahil olmak üzere bütün programlar da parametre ile mi yapılıyor yardımlarının devamını bekliyorum :D teşekkürler Quote Link to comment Share on other sites More sharing options...
MostWanted Posted February 26, 2015 Share Posted February 26, 2015 Local $versionoku = RegRead("HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\WinRAR archiver", "DisplayVersion") MsgBox(0, "", $versionoku) 64 bit sistemlerde böyle kullanmak gerekiyor. Bir sistemin 64 bit olup olmadığını @osarch makrosu ile kontrol edebilirsiniz. Quote Link to comment Share on other sites More sharing options...
Mehmet Posted February 27, 2015 Share Posted February 27, 2015 Teşekkürler @MostWanted @FireWalkeR senin için birşeyler yazdım ama 32 bit sistemde hiç denemedim sen denersin :) #RequireAdmin Global $aMesaJ = "Sisteminizde" Global $bMesaJ = "version winrar Tespit edildi eski version kaldırılıyor lütfen bekleyiniz.." Global $versionokux86 = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\WinRAR archiver", "DisplayVersion") Global $versionokux64 = RegRead("HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\WinRAR archiver", "DisplayVersion") If @OSArch = "X86" Then If RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\WinRAR archiver", "DisplayVersion") = "" Then MsgBox(0,"","x86 sistemde winrar yok kurulum yap kodu buraya") Else SplashTextOn("",$aMesaJ & @TAB & $versionokux86 & @TAB & $bMesaJ ,300, 80, -1, -1, 1, "Arial", 12) Sleep(3000) ShellExecuteWait(@ProgramFilesDir & "\WinRAR\Uninstall.exe", "/S") MsgBox(0,"","x86 winrar kaldırıldı kurulum başla kodu buraya") EndIf Else If RegRead("HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\WinRAR archiver", "DisplayVersion") = "" Then MsgBox(0,"","x64 sistemde winrar yok kurulum yap kodu buraya") Else SplashTextOn("",$aMesaJ & @TAB & $versionokux64 & @TAB & $bMesaJ ,300, 80, -1, -1, 1, "Arial", 12) Sleep(3000) ShellExecuteWait(@HomeDrive & "\Program Files\WinRAR\Uninstall.exe", "/S") MsgBox(0,"","x64 winrar kaldırıldı kuruluma başla kodu buraya") EndIf EndIf SplashOff() Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.