Autoit; Program Arama, Kaldırma Ve Bilgi Verme?

[FireWalkeR]

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

[Mehmet]

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

[FireWalkeR]

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

[Mehmet]

@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:

[FireWalkeR]

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

[MostWanted]

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.

[Mehmet]

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()